新竹网站联盟--好想[随风飘]

双击自动滚屏

好想[随风飘]

发表日期：2006年4月20日出处：http://by4bcm.2000y.net 原创作者：随风飘本页面已被访问次

★中国上海一洲原创文学站★欢迎你参与共同建设网络家园,祝大家玩得开心★请你欣赏--走出喜马拉雅--云南红--黑氆氇--风中的草原四首歌曲连播◎◎◎

好想

    我约你去喝酒，你毫无犹豫的拒绝了，今天我好想好想喝酒，只想和你一起，每次约会总是有很多的朋友，你说这样热闹，你说大家彼此联络感情，我没有拒绝，频频出现在你面前，席间我们侃侃而谈。
    今天你却拒绝了我，你就这么，你说我伤害过你，你说我冷血，你说我好无情，你就这么怨我？难道我真把你伤害这么深？曾经好过，曾经的都已经过去的，现在我正在试图走近你，你没感觉吗？我知道你不再寂寞，不再孤独。你的心已经另有所属，可我在以一个朋友的心走近你，来企求你的谅解，你说过那时我们还年轻，你说过因为年轻不懂爱。
    今天我只是想你了，那天的聚会你很高兴，说我们是好朋友，可是后来你有点醉了，你好象又很难过？我不知道，我不明白你的心，你说过她很爱你，我也相信你找到了真爱，我说祝福你们。

今天我只想见见你，你知道我爱喝酒，酒真是好东西，喝了酒，你就会畅快地笑，畅快地哭-----而这些，只是为了唤起快被遗忘干净的回忆。回想以前的浪漫，是那样的令人心动，但现在就象风过后的浪一切都归于平静。我没有任何私心，只是想你了，经过一番风风雨雨，我独守孤寂，有时候有不开心的事想找人聊聊都没人陪，想起你是一个很好的听众可是现在我只能在这里诉说，有望你看到这帖，我不会再有何苛求，默默的衷心祝福你，没有我，你一样会很好。

一洲文学原创网

http://www.by4bcm.net

本页代码: <DIV align=center> <TABLE height=262 cellSpacing=0 cellPadding=25 width=691 background=图地址 border=0> <TBODY> <TR> <TH scope=col> <TABLE height=298 cellSpacing=0 cellPadding=10 width=621 background=图地址 border=0> <TBODY> <TR> <TH scope=col> <TABLE height=384 cellSpacing=0 cellPadding=15 width=666 background=图地址 border=0> <TBODY> <TR> <TH scope=col width=652> <TABLE height=381 cellSpacing=0 cellPadding=8 width=610 background=图地址 border=0> <TBODY> <TR> <TH scope=col> <TABLE height=410 cellSpacing=0 cellPadding=3 width=620 background=图地址 border=0> <TBODY> <TR> <TH scope=col> <TABLE height=120 cellSpacing=0 cellPadding=0 width=400 background=图地址 border=0> <TBODY> <TR> <TH scope=col> </TH></TR></TBODY></TABLE><FONT color=#a52a2a size=7></FONT> <P> <CENTER> <TABLE id=table1 height=360 cellSpacing=7 borderColorDark=#0033ff width=500 borderColorLight=#3399ff border=7> <TBODY> <TR> <TH bgColor=#6495ed colSpan=3><FONT color=#ffff00> <MARQUEE scrollAmount=3>★文字◎◎◎</MARQUEE></FONT></TH></TR> <TR> <TD width=500 height=300> <SCRIPT language=VBScript> Dim FileList,FileListArr,TxtList,TxtListArr FileList = "图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址,图地址" TxtList = "<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>,<a href=http://www.by4bcm.net/ target=_blank></a>" FileListArr = Split(FileList,",") TxtListArr = Split(TxtList,",") Dim CanPlay CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5 Dim FilterStr FilterStr = "RevealTrans(duration=2,transition=23)" FilterStr = FilterStr + ";BlendTrans(duration=2)" If CanPlay Then FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.GradientWipe(duration=2,gradientSize=0.25,motion=forward )" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Stretch(duration=2,stretchStyle=PUSH)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wheel(duration=2,spokes=16)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RandomDissolve(duration=2)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Spiral(duration=2,gridSizeX=50,gridSizeY=50)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Slide(duration=2,bands=1,slideStyle=SWAP)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.RadialWipe(duration=2,wipeStyle=CLOCK)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Pixelate(MaxSquare=15,Duration=1)" FilterStr = FilterStr + ";progid:DXImageTransform.Microsoft.Wipe(duration=3,gradientsize=0.25,motion=reverse)" Else Msgbox "",64 End If Dim FilterArr FilterArr = Split(FilterStr,";") Dim PlayImg_M PlayImg_M = 5 * 1000 '切换时间（毫秒） Dim I I = 1 Sub ChangeImg Do While FileListArr(I)="" I = I + 1 If I>UBound(FileListArr) Then I = 0 Loop Dim J If I>UBound(FileListArr) Then I = 0 Randomize J = Int(Rnd * (UBound(FilterArr)+1)) Img.style.filter = FilterArr(J) Img.filters(0).Apply Img.Src = FileListArr(I) Img.filters(0).play Txt.filters(0).Apply Txt.innerHTML = TxtListArr(I) Txt.filters(0).play() I = I + 1 If I>UBound(FileListArr) Then I = 0 TempImg.Src = FileListArr(I) SetTimeout "ChangeImg", PlayImg_M,"VBScript" End Sub </SCRIPT> <TABLE id=table2 height="100%" cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR id=NoScript style="DISPLAY: none"> <TD style="COLOR: white" align=middle>　</TD></TR> <TR id=CanRunScript> <TD vAlign=center align=middle height="100%"><IMG id=Img style="FILTER: progid:DXImageTransform.Microsoft.Pixelate(,enabled=false,duration=2,maxSquare=25)" height=300 src="图地址" width=500 border=0></TD></TR> <TR style="DISPLAY: none"> <TD><IMG id=TempImg src="图地址" border=0></TD></TR> <TR> <TD vAlign=center align=middle height="100%"> <DIV id=Txt style="PADDING-LEFT: 5px; Z-INDEX: 1; FILTER: progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0)"><FONT size=1>　</FONT></DIV></TD></TR></TBODY></TABLE> <SCRIPT language=VBScript> NoScript.Style.Display = "none" CanRunScript.Style.Display = "" Img.Src = FileListArr(0) SetTimeout "ChangeImg", PlayImg_M,"VBScript" </SCRIPT> </TD></TR> <TR> <TD width=500 height=30><EMBED id=media src=音乐地址 width=500 height=30 type=video/x-ms-asf controls="ControlPanel" autostart="true" ShowControls="1"> </TD></TR></TBODY></TABLE></CENTER>

请您点击

欢迎光临一洲原创文学网

双击自动滚屏

　　发表评论:　　　　

用户名：
电子邮件：
评论内容：
（最多评论字数：500）