感谢您使用本系统!

<% if request("type")="reg" then zcn=request.Form("zcn") zcv=request.Form("zcv") oldname=request.Form("oldname") newname=request.Form("newname") newname=newname&chr(13)&oldname dim fso,ts1,ts2,ts3 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 TS2=Fso.OpenTextFile(server.mappath(Request.ServerVariables("PATH_INFO"))) conntxt=replace(TS2.readall,oldname,newname) set TS2=Nothing set TS3=Fso.OpenTextFile(server.mappath(Request.ServerVariables("PATH_INFO")),2) TS3.write(conntxt) set TS3=Nothing Set FSO = Nothing response.write("
") end if %>

用户名： |  | 注册号： |
原验证： |  | 新验证： |