📄 ks_refreshcommonjscls.asp
字号:
Status1=Status1 &"if ( seq >= len ) {" & vbcrlf
Status1=Status1 &"seq = 0;" & vbcrlf
Status1=Status1 &"window.status = '';" & vbcrlf
Status1=Status1 &"window.setTimeout(""KSCMS_Status1();"", interval );" & vbcrlf
Status1=Status1 &"}" & vbcrlf
Status1=Status1 &" else" & vbcrlf
Status1=Status1 &"window.setTimeout(""KSCMS_Status1();"", interval );" & vbcrlf
Status1=Status1 &"}" & vbcrlf
Status1=Status1 &"KSCMS_Status1();" & vbcrlf
Status1=Status1 &"</script>" & vbcrlf
End Function
'文字在状态栏上从右往左循环显示
Function Status2(Text,Speed)
Status2="<script>" & vbcrlf
Status2=Status2 & "<!--" & vbcrlf
Status2=Status2 & "function KSCMS_Status2(seed)" & vbcrlf
Status2=Status2 & "{ var m1 = """ & Text & """ ;" & vbcrlf
Status2=Status2 & "var m2 = """" ;" & vbcrlf
Status2=Status2 & "var msg=m1+m2;" & vbcrlf
Status2=Status2 & "var out = "" "";" & vbcrlf
Status2=Status2 & "var c = 1;" & vbcrlf
Status2=Status2 & "var speed = " & Speed & ";" & vbcrlf
Status2=Status2 & "if (seed > 100)" & vbcrlf
Status2=Status2 & "{ seed-=2;" & vbcrlf
Status2=Status2 & "var cmd=""KSCMS_Status2("" + seed + "")"";" & vbcrlf
Status2=Status2 & "timerTwo=window.setTimeout(cmd,speed);}" & vbcrlf
Status2=Status2 & "else if (seed <= 100 && seed > 0)" & vbcrlf
Status2=Status2 & "{ for (c=0 ; c < seed ; c++)" & vbcrlf
Status2=Status2 & "{ out+="" "";}" & vbcrlf
Status2=Status2 & "out+=msg; seed-=2;" & vbcrlf
Status2=Status2 & "var cmd=""KSCMS_Status2("" + seed + "")"";" & vbcrlf
Status2=Status2 & "window.status=out;" & vbcrlf
Status2=Status2 & "timerTwo=window.setTimeout(cmd,speed); }" & vbcrlf
Status2=Status2 & "else if (seed <= 0)" & vbcrlf
Status2=Status2 & "{ if (-seed < msg.length)" & vbcrlf
Status2=Status2 & "{" & vbcrlf
Status2=Status2 & "out+=msg.substring(-seed,msg.length);" & vbcrlf
Status2=Status2 & "seed-=2;" & vbcrlf
Status2=Status2 & "var cmd=""KSCMS_Status2("" + seed + "")"";" & vbcrlf
Status2=Status2 & "window.status=out;" & vbcrlf
Status2=Status2 & "timerTwo=window.setTimeout(cmd,speed);}" & vbcrlf
Status2=Status2 & "else { window.status="" "";" & vbcrlf
Status2=Status2 & "timerTwo=window.setTimeout(""KSCMS_Status2(100)"",speed);" & vbcrlf
Status2=Status2 & "}" & vbcrlf
Status2=Status2 & "}" & vbcrlf
Status2=Status2 & "}" & vbcrlf
Status2=Status2 & "KSCMS_Status2(100);" & vbcrlf
Status2=Status2 & "-->" & vbcrlf
Status2=Status2 & "</script>" & vbcrlf
End Function
'文字在状态栏上打字之后移动消失
Function Status3(Text,Speed)
Status3="<SCRIPT LANGUAGE=""JavaScript"">" & vbcrlf
Status3=Status3 & " <!-- " & vbcrlf
Status3=Status3 & " var Message=""" & Text & """; " & vbcrlf
Status3=Status3 & " var place=1; " & vbcrlf
Status3=Status3 & " function scrollIn() {" & vbcrlf
Status3=Status3 & " window.status=Message.substring(0, place);" & vbcrlf
Status3=Status3 & " if (place >= Message.length) {" & vbcrlf
Status3=Status3 & " place=1;" & vbcrlf
Status3=Status3 & " window.setTimeout(""KS_Status3()"",300);" & vbcrlf
Status3=Status3 & " } else {" & vbcrlf
Status3=Status3 & " place++;" & vbcrlf
Status3=Status3 & " window.setTimeout(""scrollIn()""," & Speed & ");" & vbcrlf
Status3=Status3 & " }" & vbcrlf
Status3=Status3 & " }" & vbcrlf
Status3=Status3 & " function KS_Status3() {" & vbcrlf
Status3=Status3 & " window.status=Message.substring(place, Message.length);" & vbcrlf
Status3=Status3 & " if (place >= Message.length) {" & vbcrlf
Status3=Status3 & " place=1;" & vbcrlf
Status3=Status3 & " window.setTimeout(""scrollIn()"", 100);" & vbcrlf
Status3=Status3 & " } else {" & vbcrlf
Status3=Status3 & " place++;" & vbcrlf
Status3=Status3 & " window.setTimeout(""KS_Status3()"", " & Speed & ");" & vbcrlf
Status3=Status3 & " }" & vbcrlf
Status3=Status3 & " }" & vbcrlf
Status3=Status3 & " KS_Status3();" & vbcrlf
Status3=Status3 & " -->" & vbcrlf
Status3=Status3 & " </SCRIPT> " & vbcrlf
End Function
'对联广告
Function Ads(LeftSrc,RightSrc,CloseSrc,Speed)
Ads="<script language=""javascript"">" & vbcrlf
Ads=Ads & "var delta="& Speed & ";" & vbcrlf
Ads=Ads & "var collection;" & vbcrlf
Ads=Ads & "var closeB=false;" & vbcrlf
Ads=Ads & "function floaters() {" & vbcrlf
Ads=Ads & "this.items = [];" & vbcrlf
Ads=Ads & "this.addItem = function(id,x,y,content)" & vbcrlf
Ads=Ads & " {" & vbcrlf
Ads=Ads & " document.write('<DIV id='+id+' style=""Z-INDEX: 10; POSITION: absolute; width:80px; height:60px;left:'+(typeof(x)=='string'?eval(x):x)+';top:'+(typeof(y)=='string'?eval(y):y)+'"">'+content+'</DIV>');" & vbcrlf
Ads=Ads & " var newItem = {};" & vbcrlf
Ads=Ads & " newItem.object = document.getElementById(id);" & vbcrlf
Ads=Ads & " newItem.x = x;" & vbcrlf
Ads=Ads & " newItem.y = y;" & vbcrlf
Ads=Ads & " this.items[this.items.length] = newItem;" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & "this.play = function()" & vbcrlf
Ads=Ads & " {" & vbcrlf
Ads=Ads & " collection = this.items" & vbcrlf
Ads=Ads & " setInterval('play()',30);" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & "}" & vbcrlf
Ads=Ads & "function play()" & vbcrlf
Ads=Ads & "{" & vbcrlf
Ads=Ads & " if(screen.width<=800 || closeB)" & vbcrlf
Ads=Ads & " {" & vbcrlf
Ads=Ads & " for(var i=0;i<collection.length;i++)" & vbcrlf
Ads=Ads & " {" & vbcrlf
Ads=Ads & " collection[i].object.style.display = 'none';" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & " return;" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & " for(var i=0;i<collection.length;i++)" & vbcrlf
Ads=Ads & " {" & vbcrlf
Ads=Ads & " var followObj = collection[i].object;" & vbcrlf
Ads=Ads & " var followObj_x = (typeof(collection[i].x)=='string'?eval(collection[i].x):collection[i].x);" & vbcrlf
Ads=Ads & " var followObj_y = (typeof(collection[i].y)=='string'?eval(collection[i].y):collection[i].y);" & vbcrlf
Ads=Ads & " if(followObj.offsetLeft!=(document.body.scrollLeft+followObj_x)) {" & vbcrlf
Ads=Ads & " var dx=(document.body.scrollLeft+followObj_x-followObj.offsetLeft)*delta;" & vbcrlf
Ads=Ads & " dx=(dx>0?1:-1)*Math.ceil(Math.abs(dx));" & vbcrlf
Ads=Ads & " followObj.style.left=followObj.offsetLeft+dx;" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & " if(followObj.offsetTop!=(document.body.scrollTop+followObj_y)) {" & vbcrlf
Ads=Ads & " var dy=(document.body.scrollTop+followObj_y-followObj.offsetTop)*delta;" & vbcrlf
Ads=Ads & " dy=(dy>0?1:-1)*Math.ceil(Math.abs(dy));" & vbcrlf
Ads=Ads & " followObj.style.top=followObj.offsetTop+dy;" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & " followObj.style.display = '';" & vbcrlf
Ads=Ads & " }" & vbcrlf
Ads=Ads & "}" & vbcrlf
Ads=Ads & "function closeBanner()" & vbcrlf
Ads=Ads & "{" & vbcrlf
Ads=Ads & " closeB=true;" & vbcrlf
Ads=Ads & " return;" & vbcrlf
Ads=Ads & "}" & vbcrlf
Ads=Ads & "var theFloaters = new floaters();" & vbcrlf
Ads=Ads & "theFloaters.addItem('followDiv1','document.body.clientWidth-106',80,'<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""100"" height=""250""><param name=""movie"" value=""" & rightSrc &"""><param name=""quality"" value=""high""><embed src=""" & rightSrc &""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""100"" height=""250""></embed></object><br>"
if CloseSrc<>"0" then Ads=Ads & "<br><img src=""" & CloseSrc & """ onClick=""closeBanner();"">"
Ads=Ads & "');" & vbcrlf
Ads=Ads & "theFloaters.addItem('followDiv2',6,80,'<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width=""100"" height=""250""><param name=""movie"" value=""" & LeftSrc &"""><param name=""quality"" value=""high""><embed src=""" & LeftSrc &""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" width=""100"" height=""250""></embed></object><br>"
if CloseSrc<>"0" then Ads=Ads & "<br><img src=""" & CloseSrc & """ onClick=""closeBanner();"">"
Ads=Ads & "');" & vbcrlf
Ads=Ads & "theFloaters.play();" & vbcrlf
Ads=Ads & "</script>" & vbcrlf
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -