制作网页代码翻译
发布网友
发布时间：2022-04-21 21:30
共3个回答
热心网友
时间：2022-07-13 01:06
<SCRIPT language=VBScript>
'定义变量
dim w,t,p,mm,c,mr,dy,tmp,vs
'变量初始化
vs=5
dy=1
p=1
mr="<BR><BR><BR>"
c="<font color=white><B>|"&mr
Set w = document.body
'建立子程序
sub tp
'从字符串t中P位置处查找1个字符
m=mid(t,p,1);
if m="" then c=mr '如果没找到测让变量mr赋给c
if m="`" then m="" '如果找到的是 ` 测让m为空
mm=mid(mm,1,len(mm)-1)'从mm的第一个字符位置取出mm总字符数减1个字符并赋给mm
if m="<" then av=instr(mid(t,p),">")'如果m是<则从字符串t中P位置处后面所有字符中查找>的位置并赋给av
m=mid(t,p,av)'从字符串t中P位置处取出av个字符赋给m
p=p+av-1 '赋予P新值
if m="&" then av=instr(mid(t,p),";")
m=mid(t,p,av):p=p+av-1
tmp=100
if m="." then tmp=400
else if m="," then tmp=200
else if m=" " then tmp=200
if w.scrollHeight-w.scrollTop> w.offsetHeight then w.scrollTop=w.scrollTop+int(dy)'如果全文的高度减去网页被卷进去的高度大于可见区的高度就将网页卷进去的高度增加dy，就是设置滚动
dy=dy+dy/vs
else dy=1
mm=mm&m
w1.innerHTML=mm&c'设置w1里的内容
p=p+1
if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes" ' SetTimeOut在16+tmp时间之后执行一次tp，否则显示滚动条
end sub
sub window_onload()
w.scroll="yes"‘显示滚动条
w.bgcolor="#A8A8A8" '背景色
w.style.cursor="crosshair" '鼠标样式
t=w0.innerHTML 'w0之间的内空
t=ww0.innerHTML + t
tp
end sub
window_onload()
</SCRIPT>
热心网友
时间：2022-07-13 01:07
JS代码，看不懂，
贴到DW里面试试效果就知道是干嘛的了撒追问其实你拿DW试也不知道，不信你试试。还好我用明白大半了，谢啦！
热心网友
时间：2022-07-13 01:07
这是vb？看来我白学了追问谢谢关注此问题！
