还有这一段
<%
zj=replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(left(replace(Request.ServerVariables("SERVER_NAME"),"www.",""),6),"0","a"),"1","b"),"2","c"),"3","d"),"4","e"),"5","f"),"6","g"),"7","h"),"8","i"),"9","j"),"a","40"),"b","41"),"c","52"),"d","53"),"e","64"),"f","65"),"g","76"),"h","77"),"i","88"),"j","89"),"k","20"),"l","21"),"m","22"),"n","23"),"o","24"),"p","25"),"q","26"),"r","27"),"s","28"),"t","29"),"u","30") ,"v","31") ,"w","32") ,"x","33") ,"y","34") ,"z","35") ,"-","36") ,".","37")
yzcv=zj*(len(zj)+len(zcn&"liangjingcr"))
Do While yzcv>10000000000
yzcv=yzcv-10000000000
Loop
Function echo(num)echo=Chr(num)End Function
if yzcv<>zcv then
response.write echo(60)&echo(98)&echo(62)&echo(60)&echo(102)&echo(111)&echo(110)&echo(116)&echo(32)&echo(99)&echo(111)&echo(108)&echo(111)&echo(114)&echo(61)&echo(35)&echo(70)&echo(70)&echo(48)&echo(48)&echo(48)&echo(48)&echo(62)&echo(-19219)&echo(-12557)&echo(-23622)&echo(-19508)&echo(-12046)&echo(-13872)&echo(-12620)&echo(-10334)&echo(-19743)&echo(44)&echo(-19253)&echo(-18010)&echo(-15140)&echo(-19781)&echo(-15140)&echo(-13639)&echo(-11325)&echo(33)&echo(60)&echo(47)&echo(102)&echo(111)&echo(110)&echo(116)&echo(62)&echo(60)&echo(47)&echo(98)&echo(62)
response.end
end if
%>
这是reg.asp程序
<%
if request("type")="reg" then
zcn=request.Form("zcn")
zcv=request.Form("zcv")
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('注册成攻:!!!恭喜!!!您所填写的信息已成功注册!');</script>")
end if
%>