雨笑烟燃-提供一个asp /function的全屏滚动代码

提供一个asp /function的全屏滚动代码

今天空闲点,刚好需要一个全屏滚动的代码,就网上找了一个写成了asp的形式.

function screen_fly(picsrc,Linkurl,picw,pich,picspeed)
dim pfstr
'----------------------------------------------
'pfstr --输出字符
'picsrc---图片路径
'Linkurl---图片链接
'picw---图片宽度
'pich---图片高度
'picspeed---滚动速度
'-------------------------------------------
picsrc="http://siyizhu.com/logo.gif"
Linkurl="http://www.google.com"
pich=31
picw=88
picspeed=3
pfstr=""
pfstr=pfstr & "<SCRIPT language=""javascript""> " & vbcrlf & chr(10)
pfstr=pfstr & "var imagepath=""" & picsrc & """;" &  vbcrlf & chr(10)
pfstr=pfstr & "var imagewidth=" & picw & ";" & vbcrlf & chr(10)
pfstr=pfstr & "var imageheight=" & pich & ";" & vbcrlf & chr(10)
pfstr=pfstr & "var speed=" & picspeed & ";" &  vbcrlf & chr(10)
pfstr=pfstr & "var imageclick=""" & Linkurl & """;" & vbcrlf & chr(10)
pfstr=pfstr & "var hideafter=0; " & vbcrlf & chr(10)
pfstr=pfstr & "var isie=0; " & vbcrlf & chr(10)
pfstr=pfstr & "if(window.navigator.appName==""Microsoft Internet 

Explorer""&&window.navigator.appVersion.substring(window.navigator.appVersion.indexOf

(""MSIE"")+5,window.navigator.appVersion.indexOf(""MSIE"")+8)>=5.5) { " & vbcrlf & chr(10)
pfstr=pfstr & "isie=1; " & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "else { " & vbcrlf & chr(10)
pfstr=pfstr & "isie=0; " & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "if(isie){ " & vbcrlf & chr(10)
pfstr=pfstr & "var preloadit=new Image() " & vbcrlf & chr(10)
pfstr=pfstr & "preloadit.src=imagepath " & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "function pop() { " & vbcrlf & chr(10)
pfstr=pfstr & "if(isie) { " & vbcrlf & chr(10)
pfstr=pfstr & "x=x+dx;y=y+dy; " & vbcrlf & chr(10)
pfstr=pfstr & "oPopup.show(x, y, imagewidth, imageheight); " & vbcrlf & chr(10)
pfstr=pfstr & "if(x+imagewidth+5>screen.width) dx=-dx; " & vbcrlf & chr(10)
pfstr=pfstr & "if(y+imageheight+5>screen.height) dy=-dy; " & vbcrlf & chr(10)
pfstr=pfstr & "if(x<0) dx=-dx; " & vbcrlf & chr(10)
pfstr=pfstr & "if(y<0) dy=-dy; " & vbcrlf & chr(10)
pfstr=pfstr & "startani=setTimeout(""pop();"",50); " & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "function dismisspopup(){ " & vbcrlf & chr(10)
pfstr=pfstr & "clearTimeout(startani) " & vbcrlf & chr(10)
pfstr=pfstr & "oPopup.hide() " & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "function dowhat(){ " & vbcrlf & chr(10)
pfstr=pfstr & "if (imageclick==""dismiss"") " & vbcrlf & chr(10)
pfstr=pfstr & "dismisspopup() " & vbcrlf & chr(10)
pfstr=pfstr & "else " & vbcrlf & chr(10)
pfstr=pfstr & "window.open(imageclick);" & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "if(isie) { " & vbcrlf & chr(10)
pfstr=pfstr & "var x=0,y=0,dx=speed,dy=speed; " & vbcrlf & chr(10)
pfstr=pfstr & "var oPopup = window.createPopup(); " & vbcrlf & chr(10)
pfstr=pfstr & "var oPopupBody = oPopup.document.body; " & vbcrlf & chr(10)
pfstr=pfstr & "oPopupBody.style.cursor=""hand""; " & vbcrlf & chr(10)
pfstr=pfstr & "oPopupBody.innerHTML = '<IMG SRC=""'+preloadit.src+'"">';" & vbcrlf & chr(10)
pfstr=pfstr & "oPopup.document.body.onmouseover=new Function(""clearTimeout(startani)"") " & 

vbcrlf & chr(10)
pfstr=pfstr & "oPopup.document.body.onmouseout=pop; " & vbcrlf & chr(10)
pfstr=pfstr & "oPopup.document.body.onclick=dowhat; " & vbcrlf & chr(10)
pfstr=pfstr & "pop(); " & vbcrlf & chr(10)
pfstr=pfstr & "if (hideafter>0) " & vbcrlf & chr(10)
pfstr=pfstr & "setTimeout(""dismisspopup()"",hideafter*1000)" & vbcrlf & chr(10)
pfstr=pfstr & "} " & vbcrlf & chr(10)
pfstr=pfstr & "</SCRIPT> " & vbcrlf & chr(10)
screen_fly=pfstr
end function

雨笑烟燃

专注于VB.net.关注WPF.

导航

2005-12-16 16:9:33

提供一个asp /function的全屏滚动代码

Tags: works

发布:yuxiaoyanran | 分类:资源共享 | 评论:0 | 引用:247 | 浏览:

日历

最新评论及回复

最近发表

Powered By Z-Blog 1.8 Walle Build 100427

Copyright yxyr.com ,Some Rights Reserved.浙ICP备06021833号

雨笑烟燃

专注于VB.net.关注WPF.

导航

2005-12-16 16:9:33

提供一个asp /function的全屏滚动代码

Tags: works

发布:yuxiaoyanran | 分类:资源共享 | 评论:0 | 引用:247 | 浏览: strBatchCount+="spn217=217,"

日历

最新评论及回复

最近发表

Powered By Z-Blog 1.8 Walle Build 100427

发布:yuxiaoyanran | 分类:资源共享 | 评论:0 | 引用:247 | 浏览: