本帖代码_爱情_爱情故事

<SCRIPT language=vbs>
' Mini script to eliminate BASE tag "Access Denied" error from OE for popup scripts.
' Script by Bill Scott, June, 2002
'
' VBScript version.
Set bs0 = document.all.tags（"BASE"）
on error resume next
bs0（0）.removeAttribute "href",0
</SCRIPT>

<STYLE>BODY {
BORDER-RIGHT: #3E4F49 10px groove;
BORDER-LEFT: #3E4F49 10px groove;
BORDER-TOP: #3E4F49 10px groove;
BORDER-BOTTOM: #3E4F49 10px groove
}

.BUTTON1 {
BORDER-RIGHT: #ffffff 3px ridge;
BORDER-LEFT: #ffffff 3px ridge;
BORDER-TOP: #ffffff 3px ridge;
BORDER-BOTTOM: #ffffff 3px ridge;
FONT-FAMILY: Kelt;
FONT-SIZE: 14pt;
FONT-WEIGHT: bold;
WIDTH: 100px;
TOP: 10px;
HEIGHT: 30px;
COLOR: #3E4F49;
POSITION: absolute;
CURSOR: hand;
BACKGROUND: #BDCCCA
}

</STYLE>

</HEAD>

.BACK{
LEFT:-1800;
TOP:-1800;
POSITION:absolute
}

.TAB{
LEFT:-1800;
TOP:-1800;
POSITION:absolute
}

.TAB2{
RIGHT:-1800;
TOP:-1800;
POSITION:absolute
}

.IMG1{
TOP:-1800px;
LEFT:-1800px;
HEIGHT:319px;
WIDTH:400px;
FILTER:REVEALTRANS;
VISIBILITY:visible;
POSITION:absolute
}

.IMG2{
TOP:-1800px;
LEFT:-1800px;
HEIGHT:319px;
WIDTH:400px;
FILTER:REVEALTRANS;
VISIBILITY:hidden;
POSITION:absolute
}

.MESS1{
BORDER-RIGHT:#182F17 6px ridge;
BORDER-LEFT:#182F17 6px ridge;
BORDER-TOP: #182F17 6px ridge;
BORDER-BOTTOM:#182F17 6px ridge;
TOP:0;
RIGHT:0;
HEIGHT:100px;
WIDTH:500px;
OVERFLOW:auto;
POSITION:absolute;
FONT-FAMILY:Kelt;
FONT-SIZE:14pt;
FILTER: progid:DXImageTransform.Microsoft.gradient（startColorstr=#D0E7CF,endColorstr=#3A6D38, gradientType=0）;
FONT-WEIGHT:bold;
COLOR:#000000;
TEXT-ALIGN:center;
SCROLLBAR-BASE-COLOR:#D0E7CF;
SCROLLBAR-TRACK-COLOR:#D0E7CF;
SCROLLBAR-ARROW-COLOR:#000000;
BACKGROUND-COLOR:#D0E7CF
}

.BUTTON2{
BORDER-RIGHT:#182F17 3px ridge;
BORDER-LEFT:#182F17 3px ridge;
BORDER-TOP:#182F17 3px ridge;
BORDER-BOTTOM:#182F17 3px ridge;
FONT-FAMILY: Kelt;
FONT-SIZE: 14pt;
FONT-WEIGHT: bold;
WIDTH: 100px;
COLOR:#000000;
CURSOR:hand;
HEIGHT:30px;
WIDTH:100px;
TOP:92%;
LEFT:45%;
POSITION:absolute;
BACKGROUND:#D0E7CF
}

</STYLE>

<IMG class=IMG2 id=pic2
style="Z-INDEX: 2;FILTER: progid:DXImageTransform.Microsoft.Iris（irisstyle=Diamond,motion=out）; VISIBILITY: hidden"
src="http://3281688.com/555/jpg/www.3281688.com音画教学网/106.jpg" width="400" height="319">

<DIV class=MESS1 id=mess1>
<DIV>　<p>又一个无眠的夜，在夜深灯残人不寐，两处沉吟寄真情。依着笔尖的眷恋，我把满怀的柔情，静静的夜中，久久难以入睡，望着窗外的月光，枉遍陌途，尽是自己冷落笑声，掸指风尘，清风心头…… 爱恨分明的文字还在独自凛冽，化身为指尖淋漓的暗香，浅浅的滑出，无声无息，不多不少，不偏不倚。纵然有一些故事在我的人生的旅程上，还来不及开始，便已匆匆谢幕，可我依旧会牢记故事的始末。我知道生命终会消失不见，惟有文字的留痕恒久丰盈。以指尖走过的岁月里，我在意的是自己的文字是否能留下更深的温暖，更真的情怀。风吟万籁，点点滴滴，声声断断，曾经郁结在我眉头的是这一季微凉的踌躇，与交错的落寞无关，那突然的迟疑，只因我，情深释然。人生何以要有情感？人总是伤在情感上，不论友情亲情还是爱情都能令人无法接受那失去之痛，所以令人常在半夜里难以入睡，曾经是最好的最真诚的友谊，可是为何人的？为何不能保留着永久的情义，永久的感觉？曾经有着好多的误解，可是到最后总是能重归于好，但是这一次的永别可能是疼生的分离，我痛心的在邮件上打下了这一生中最后的文字发给你的时候，我感觉到了指尖上是湿润的，原来我的泪水不知何时不争气地跑了出来，跟着指尖滴落在邮件上，在这个秋风吹着的黑夜里我终于掉失了一个人生中真诚的友谊，我望着远方对你说，祝你永远快乐，我会永远记着曾经相处的友情，当作人生中最美的回忆。</DIV></DIV>

'-------------------------------------------------------
'星星制作
'搜集整理

'-------------------------------------------------------

Dim scw, sch, winx, winy, mess1w, mess1h, picw, pich, gap, thi, th1, th2

a=0
b=0
c=0
d=0
e=0
f=0

Sub Window_OnLoad（）
window.status="脚本收藏----搜集整理--星星制作"
scw=document.body.clientWidth
sch=document.body.clientHeight
ClearInterval（thi）
thi=SetInterval （"scroll1", 64）
End Sub

Sub scroll1（）
a=a
b=b+1
document.body.style.backgroundPosition=a&" "&b
End sub

picw=400
pich=319
mess1w=500
mess1h=100

Set Popup=window.createPopup（）
Set PopupBody=Popup.document.body
Set prop=popupbody.all

winx=window.parent.screen.width
winy=window.parent.screen.height

popupbody.style.border="10px groove #3A6D38"
popupbody.background=wit.src
popupbody.innerHTML="<div style='display:none'>"+PopupStyle.innerHTML+"</div>"+contents.innerHTML

SUB popOpen（）
Popup.show 0, 0, winx, winy
prop.tab1.style.posleft=0
prop.tab1.style.PosTop=-1
prop.tab1.background=tab.src
prop.tab2.style.posright=0
prop.tab2.style.PosTop=-1
prop.tab2.background=elles1.src
gap=（winy-（mess1h+pich））/3
prop.pic1.style.postop=gap
prop.pic1.style.posleft=（winx/2）-（picw/2）
prop.pic2.style.postop=gap
prop.pic2.style.posleft=（winx/2）-（picw/2）
prop.mess1.style.Postop=（2*gap）+pich
prop.mess1.style.PosLeft=（winx/2）-（mess1w/2）
Cleartimeout（th1）
th1=Settimeout （"start", 2000）
Clearinterval（th2）
th2=SetInterval （"scroll2", 64）
END SUB

SUB Help（）
END SUB

SUB scroll2（）
c=c
d=d-1
e=e
f=f+1
prop.tab1.style.backgroundPosition=c&" "&d
prop.tab2.style.backgroundPosition=e&" "&f
END SUB

Sub start（）
Cleartimeout（th1）
prop.pic1.style.filter="progid:DXImageTransform.Microsoft.Iris（irisstyle=diamond,motion=out）"
prop.pic1.filters（0）.Apply（）
prop.pic1.style.visibility="visible"
prop.pic1.filters（0）.Play（5.000）
th1=Settimeout （"change", 6000）
End Sub

Sub change（）
Cleartimeout（th1）
prop.pic1.style.filter="progid:DXImageTransform.Microsoft.Iris（irisstyle=diamond,motion=in）"
prop.pic1.filters（0）.Apply（）
prop.pic1.style.visibility="hidden"
prop.pic1.filters（0）.Play（5.000）
th1=Settimeout （"change1", 6000）
End Sub

Sub change1（）
Cleartimeout（th1）
prop.pic2.style.filter="progid:DXImageTransform.Microsoft.Iris（irisstyle=diamond,motion=out）"
prop.pic2.filters（0）.Apply（）
prop.pic2.style.visibility="visible"
prop.pic2.filters（0）.Play（5.000）
th1=Settimeout （"change2", 6000）
End Sub

Sub change2（）
Cleartimeout（th1）
prop.pic2.style.filter="progid:DXImageTransform.Microsoft.Iris（irisstyle=diamond,motion=in）"
prop.pic2.filters（0）.Apply（）
prop.pic2.style.visibility="hidden"
prop.pic2.filters（0）.Play（5.000）
th1=Settimeout （"start", 6000）
End Sub

SUB Window_OnResize（）
Window.location.reload
END SUB

</SCRIPT>
</BODY></HTML>

精彩推荐

近期贴子

其他人还看过

更多
爱网小贴士

精彩推荐

近期贴子

其他人还看过

更多 爱网小贴士

更多
爱网小贴士