asp中几句帮我翻译一下

Question

yzcv=zj*(len(zj)+len(zcn&"bossiWebMIB"))

Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop

zcv=zcv+0
if yzcv=zcv then
dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = FSO.CreateTextFile(Server.MapPath("zcm.asp"), True)
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)&zcn&chr(34)&chr(13)&"zcv="&zcv&chr(37)&">"
Set TS1 = Nothing
Set FSO = Nothing
response.write("<script>alert('注册成攻:!!!恭喜!!!您所填写的信息已成功注册!');location.href='../list.asp'</script>")
response.end
else
response.write("<script language=vbscript>msgbox ""注册失败:用户名或注册码错误!""</script>")
end if
end if
end if
%>

额.帮我翻译,如果好的话,我会++分的.

Answer 1

yzcv=zj*(len(zj)+len(zcn&"bossiWebMIB"))
' 变量 yzcv 赋值为 变量 zj 乘以 zj 的长度（len 计算字符窜长度）楼主你脑残啊 ，你是不是从来不知道甚么叫 ASP ？连 zj 是什么都不知道？并且加上变量 zcn跟上字符窜“bossiWebMIB”的长度（楼主你又脑残，变量 zcn 也不知道是什么）
Do While yzcv>10000000000
yzcv=yzcv-10000000000
loop
' 当变量 yzcv 大于 1000000000 的时候做循环，每次循环减去 1000000000 直到他小于 1000000000 为止

zcv=zcv+0
' 变量 zcv 加上 0 ，保持不变，楼主你超级脑残，看这么脑残的程序大约是脑袋里面浸水了
if yzcv=zcv then
'如果变量 yzcv 等于变量 zcv 那么
dim fso,ts1
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
' 这句话是创建一个 FSO 对象 ，即文件操作对象 。楼主你不要告诉我你不知道什么是 FSO ，那我就找不到骂你的话了 。
Set TS1 = FSO.CreateTextFile(Server.MapPath("zcm.asp"), True)
' 创建对象 TS1 等于创建的 ZCM.ASP 文件 ，并且为覆盖式创建
TS1.write "<"&chr(37)&"dim zcn,zcv"&chr(13)&"zcn="&chr(34)&zcn&chr(34)&chr(13)&"zcv="&zcv&chr(37)&">"
' 在 zcm.asp 里面写上 <% dim zcn,zcv 回车（chr(13)是回车）zcn="zcn" 回车zcv = 变量zcv%> 即：
'<%
'dim zcn,zcv
'zcn="zcn"
'zcv=zcv （这里的 zcv 是用户填写的内容 ，是那个超长的字符窜）
'%>
'狗屁不通，什么狗屁东西
Set TS1 = Nothing
'释放文件对象
Set FSO = Nothing
' 释放 FSO 对象
response.write("<script>alert('注册成攻:!!!恭喜!!!您所填写的信息已成功注册!');location.href='../list.asp'</script>")
' 打出一段 JS 程序，效果是会在屏幕上弹出一个警告框，警告内容是：注册成攻:!!!...。楼主你脑残的不能再脑残了，连成功的功都写错了，我没办法说你
response.end '结束程序运行
else ' 否则
response.write("<script language=vbscript>msgbox ""注册失败:用户名或注册码错误!""</script>")' 注册失败弹出框
end if'这个和下面两个就不解释了，要连这个都要解释楼主我就真找不到天下有甚么语言能形容你这种笨货了 。
end if
end if
%>
总之 ，这个程序是一段将信息保存至文本文件的程序，因为它要写入的东西太多以至于数据库字段无法存放的缘故 。