login2.asp

admin/admin.asp是WAP的后台管理登陆页面

<!-- #include file="conn.asp" -->
<%
dim rsad,pno
set rsad=Server.CreateObject("ADODB.Recordset")
rsad.open "select * from login where id='"&request("shouji")&"'",conn,1,3
if rsad.bof and rsad.eof then
response.redirect "index.asp"
else
pno=rsad("phone")
end if

set rs=Server.CreateObject("ADODB.Recordset")
rsstr="select * from sheet where shouji='"&pno&"'"
rs.open rsstr,conn,1,3

if rs.recordcount=1 then
if request("password")<>"" then rs("pass")=request("password")
if request("name")<>"" then rs("nc")=request("name")
rs("gender")=cint(request("ge"))
rs("pic")=request("pic")
if request("ct")<>"" then rs("city")=request("ct")
if request("old")<>"" then rs("old")=request("old")
if request("qq")<>"" then rs("qq")=request("qq")
if request("email")<>"" then rs("email")=request("email")
if request("con")<>"" then rs("ex")=request("con")
rs("xinghao")=request.serverVariables("HTTP_USER_AGENT")
rs.update
if request("name")<>"" then rsad("name")=request("name")
if request("password")<>"" then rsad("pass")=request("password") 
response.redirect "bbs.asp?shouji="&request("shouji")&"" 
else
response.redirect "err.asp?id=9" 
end if
rsad.close
setrsad=nothing
conn.close
set conn=nothing
%>