login.asp

该程序是初学者最好用的程序!~欢迎大家使用 QQ:68056085

<!-- #include file="conn.asp" -->
<!-- #include file="333.asp" -->
<%
dim rscon,pno
  set rscon=server.createobject("adodb.recordset")
  rscon.open "select masterphone from config where id=1",conn,1,1

if request("name")="" or request("shouji")="" or request("password")="" then response.redirect "err.asp?id=1"

if not IsNumeric(request("shouji")) then
response.redirect "err.asp?id=5"
else
if len(request("shouji"))<>11 then
response.redirect "err.asp?id=6"
else
if left((request("shouji")),2)<>"13" then
response.redirect "err.asp?id=7"
else
pno=request("shouji")

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

if rs.recordcount=0 then
rs.addnew
rs("shouji")=pno
rs("pass")=request("password")
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")
if pno=""&rscon("masterphone")&"" then rs("bz")="-99-"
rs.update
set rs10=Server.CreateObject("ADODB.Recordset")
rs10.open "select id from login where phone='"&pno&"'",conn,1,1

set rs1=Server.CreateObject("ADODB.Recordset")
rs1.open "select id from login where id='"&sessionid&"'",conn,1,1
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select * from login",conn,1,3
if rs10.bof and rs10.eof then
if rs1.bof and rs1.eof then
rs2.addnew
rs2("id")=sessionid
rs2("phone")=request("shouji")
rs2("name")=request("name")
rs2("pass")=request("password")
rs2.update
response.redirect "index.asp?shouji="&sessionid
else
response.redirect "login.asp?name="&request("name")&"&amp;shouji="&request("shouji")&"&amp;password="&request("password")&""
end if
else
rs2("id")=sessionid
rs2.update
response.redirect "index.asp?shouji="&sessionid
end if


else
response.redirect "err.asp?id=4" 
end if
end if
end if
end if
conn.close
set conn=nothing
%>