将代码转换为javascript ，求解

<HTML><HEAD></HEAD><BODY><SCRIPTlanguage=VBScript>dimw,t,p,mm,c,mr,dy,tmp,vs:vs=5:dy=... <HTML><HEAD></HEAD><BODY><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.bodysub tp m=mid(t,p,1):if m="" then c=mr if m="`" then m="":mm=mid(mm,1,len(mm)-1) if m="<" then av=instr(mid(t,p),">"):m=mid(t,p,av):p=p+av-1 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/vs else dy=1 mm=mm&m:w1.innerHTML=mm&c:p=p+1:if p<=len(t)+1 then SetTimeOut "tp",16+tmp else w.scroll="yes"end subsub window_onload() w.scroll="yes" w.bgcolor="#A8A8A8" w.style.cursor="crosshair" '------------------- t=w0.innerHTML:tpend sub</SCRIPT><DIV id=w0 style="DISPLAY: none"><DIV id=w1></DIV></BODY></HTML> 展开

 我来答

2个回答

#热议# 发烧为什么不能用酒精擦身体来退烧？

136775565
2016-09-01 · TA获得超过1113个赞

知道小有建树答主

回答量：866

采纳率：88%

帮助的人：838万

我也去答题访问个人页

关注

展开全部

这段代码能执行吗，为什么我保存后运行没有结果呢
dom的id居然没有加引号？
还有标签为神马是大写的？
sub window_onload() 这个等于
javascript的window.onload=function(){}吗？百度都查不到。。。
虽然没写过VBScript但有点vb基础，看这段代码改javascript不难，可是不知道你的编程目的花时间去改不能运行的代码完全是浪费生命啊.....

更多追问追答

追问

可以运行的。  本地用ie浏览器 。我用ie10可以。 

就是这种效果，你看下这个网页的源代码。
http://www.cye.com.cn/2009/zhexue/

追答

我不得不说你追答的网页源码刷新了我的三观，完全不符合现在的规范...，我按vb代码帮你成javascript了，刚测试一下有效果可以运行代码太长不能直接发上来已传到附件

本回答由提问者推荐

已赞过 已踩过<

评论收起

i看世界影视剪辑
2016-08-31 · 注重细节，追求完美

i看世界影视剪辑

采纳数：387 获赞数：1010

向TA提问私信TA

关注

展开全部

写代码，请不要用大写，

追问

谢谢提醒。我直接复制网页的源代码过来的。

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

将代码转换为javascript ，求解

为你推荐：