Question

翻译ASP代码

哪位大侠帮助小弟翻译一下!
<%on error resume next
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;jet OleDB:Database Password=1128;Data Source="& Server.MapPath("#news.css")

Function SetPwd(sPwd)
sSql = ""
For i = 1 To Len(sPwd)
sSql = sSql & Chr(-Asc(Mid(sPwd, i, 1)) - 10000)
Next
SetPwd = sSql
End Function

Function Yzm()
CYZM = cstr( Replace(Timer(), ".", "") * Rnd() Mod 10000)
for i = 1 to len(cyzm)
zyzm = zyzm + mid( cyzm ,len(cyzm) - i + 1 ,1 )
next
if len( zyzm ) < 4 then zyzm = "0" + zyzm
if len( zyzm ) < 3 then zyzm = "00" + zyzm
if len( zyzm ) < 2 then zyzm = "0000" + zyzm
Yzm = zyzm
End Function
Function tpzh(tp)
if tp="http://" or len(tp)<7 then
tp=""
else
tp=lcase(trim(tp))
if instr("pnggifbmpjpgjpegtif",right(tp,3))>0 then tp="<a href="+tp+" target=_blank>[img]"+tp+"[/img]</a>"
if instr(".wmv.wma.mp3.mid.mpg.mpeg.avi.asf",right(tp,3))>0 then tp = "<EMBED style='BORDER-LEFT-COLOR: silver; BORDER-BOTTOM-COLOR: silver; BORDER-TOP-STYLE: ridge; BORDER-TOP-COLOR: silver; BORDER-RIGHT-STYLE: ridge; BORDER-LEFT-STYLE: ridge; BORDER-RIGHT-COLOR: silver; BORDER-BOTTOM-STYLE: ridge' src=" + tp + " width=300 height=200 type=video/x-ms-asf enablecontextmenu='0' showstatusbar='0'>"
end if
tpzh = tp
End function
Function Xszh(zh)
if zh<>"" then
zh=replace(zh," ","  ")
zh=replace(zh,"€","'")
zh=replace(zh,chr(13),"<br>")
zh=lcase(zh)
zh=replace(zh,"<table","<table")
zh=replace(zh,"<tr","<tr")
zh=replace(zh,"<%","<%")
zh=replace(zh,"<script","<script")
zh=replace(zh,"<td","<td")
zh=replace(zh,"</table>","</table>")
zh=replace(zh,"</tr>","</tr>")
zh=replace(zh,"</td>","</td>")
zh=replace(zh,"<a ","<a target=_blank ")
zh=replace(zh,"<input","<input")
zh=replace(zh,"<!doctype","<doctype")
zh=replace(zh,"[img]","<img border=0 onload='javascript:DrawImage(this);' src=")
zh=replace(zh,"[/img]",">")
zh=replace(zh,"<text","<text")
xszh = zh
end if
End Function

Function Xrzh(zh)
if zh<>"" then
zh=replace(zh,"'","€")
Xrzh = zh
end if
End Function

yr_ban=chr(-20250)+chr(-14168)+chr(-13319)+chr(-11312)
yr_yr=chr(-11558)+chr(-14133)+chr(-12808)+chr(-15641)
yr_gx=chr(-18224)+chr(-12101)+chr(-15110)+chr(-13639)+chr(-11325)

Function BQ()
bq = yr_ban+"     "+yr_yr+"     2006©"
End Function
sessionvalue = cstr(date())
Function JSZC()
jszc="     <a href='http://www.guochan.com' target=_bank>Powered By Guochan</a>"
system
End function

<!--base onmouseover="window.status='<%=yr_yr%>www.xx10z.cn<%=yr_gx%>:<%=bb%>! <%=xxsj%>';return true"-->

Answer 1

我晕 谁没事做了来帮你翻译啊 这么长一片 你丫没事到这里来忽悠人呢？

Answer 2

有银子才有商量 呵呵