Question

网页代码翻译

请大神帮助翻译这段代码 跪谢
<%
'virtual_directory =""
Server.ScriptTimeOut=5000
Session.Timeout=300
conn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("pro_data/#jxtx!junxing.mdb")
'conn_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("\"&virtual_directory&"pro_data/#jxtx!junxing.mdb")

set conn=server.createobject("adodb.connection")
conn.open conn_str
startime=timer()
%>

Answer 1

<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>
是否可以解决您的问题？