ASP注册登录用SQL数据库

最新问答

• 我究竟怎么了555

  sql库和access库只是连接库的方式不一样，其他的作代都是可以公用的一下是连接sql 和access库简单代<%
  
  dim conn,connstr,db,rs,rs_s,rs_s1
  'db="库路径"
  set conn = server.createobject("adodb.connection")
  connstr="driver={sql server};server=(local);uid=sql用户名;pwd=sql密;database=newcer;connect"
  'connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath(""&db&"")
  conn.open connstr
  %>注释掉的是access的连接代用户注册其实就把信息到库中，登录就是把填入输入框中的和库中的做下比较，一下是一下代注册处理代
  
  <%if request.Form("pass")="OK" then
  if request.Form("verifycode")<>Session("GetCode") then
  response.Write ""
  response.end
  end if
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from [jx_users] where username='"&trim(request("username"))&"'",conn,1,1
  if rs.recordcount>0 then
  rs.close
  set rs=nothing
  call usererr() else
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from [jx_users] where mail='"&trim(request("mail"))&"'",conn,1,1
  if rs.recordcount>0 then
  rs.close
  set rs=nothing
  call emailerr()
  else
  rs.close
  set rs=nothing
  set rs=server.CreateObject("adodb.recordset")
  rs.open "select * from [jx_users]",conn,1,3
  rs.addnew
  '商城注册
  rs("username")=trim(request("username"))
  rs("pwd")=md5(trim(request("pwd")))
  rs("cmyname")=trim(request("cmyname"))rs("crd")=trim(request("crd"))
  rs("crdnumber")=trim(request("crdnumber"))
  rs("xm")=trim(request("xm"))
  rs("sheng")=trim(request("sheng"))
  rs("city")=trim(request("city"))
  rs("adr")=trim(request("adr"))
  rs("idcode")=trim(request("idcode"))rs("tel")=trim(request("tel"))
  rs("fax")=trim(request("fax"))
  rs("phone")=trim(request("phone"))
  rs("mail")=trim(request("mail"))
  'rs("mob")=trim(request("mob"))
  'rs("sheng")=trim(request("fcity1"))
  'rs("shi")=trim(request("fcity2"))
  'rs("qu")=trim(request("fcity3"))
  'rs("add")=trim(request("add"))
  'rs("post")=trim(request("post"))
  rs("qq")=trim(request("qq"))
  rs("msn")=trim(request("msn"))'rs("adddate")=now()
  rs("lastlogin")=now()
  rs("logins")=1
  'rs("jiaoyijine")=0
  rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")
  rs.update
  rs.close
  set rs=nothing
  response.Write ""
  end if
  end if
  else
  response.Write ""
  end if
  sub usererr()
  response.Write ""
  end sub
  sub emailerr()
  response.Write ""
  end sub
  %>登录处理代
  
  <%
  if request.Form("pass")="OK" then
  dim username,password,comeurl,verifycode
  username=replace(trim(request("username")),"'","")
  pwd=md5(replace(trim(request("pwd")),"'",""))
  verifycode=replace(trim(request("verifycode")),"'","")
  comeurl=request("logurl")
  if username="" or pwd="" or verifycode="" then
  response.write ""
  response.end
  end if
  if cstr(session("getcode"))<>cstr(verifycode) then
  response.Write ""
  response.end
  end ifset rs=server.CreateObject("adodb.recordset")
  rs.Open "select * from [jx_users] where username='"&username&"' and pwd='"&pwd&"'" ,conn,1,3
  if not(rs.bof and rs.eof) then
  'if rs("reglx")=0 then
  'response.Write ""
  end ifelse
  response.Write ""
  end if
  sub loginok()
  if request.servervariables("http_referer")<>Request.ServerVariables("SERVER_NAME")&"login.asp" then
  response.redirect("index.asp")
  'response.redirect(request.servervariables("http_referer"))
  else
  'if comeurl<>Request.ServerVariables("SERVER_NAME")&"/shop/login.asp" then
  'response.redirect(comeurl)
  'else
  response.redirect("index.asp")
  'end if
  end if
  end sub
  %>希望对你有所帮助

  浏览 281赞 135时间 2024-03-04
• 潘朵拉的音乐

  额，我看了一下你说的，，可是你想问的问题是什么？

  浏览 163赞 146时间 2023-05-26