ASP注册登录用SQL数据库

sql数据库和access数据库只是连接数据库的方式不一样，其他的 *** 作代码都是可以公用的一下是连接sql 和access数据库简单代码<%
dim conn,connstr,db,rs,rs_s,rs_s1
'db="数据库路径"
set conn = servercreateobject("adodbconnection")
connstr="driver={sql server};server=(local);uid=sql用户名;pwd=sql密码;database=newcer;connect"
'connstr="provider=microsoftjetoledb40;data source=" & servermappath(""&db&"")
connopen connstr
%>注释掉的是access的连接代码用户注册其实就把信息添加到数据库中，登录就是把填入输入框中的数据和数据库中的做下比较，一下是一下代码注册处理代码<!--#include file="md5asp"-->
<!--#include file="conn/connasp"-->
<%if requestForm("pass")="OK" then
if requestForm("verifycode")<>Session("GetCode") then
responseWrite "<script LANGUAGE='javascript'>alert('请输入正确的验证码！');historygo(-1);</script>"
responseend
end if
set rs=serverCreateObject("adodbrecordset")
rsopen "select from [jx_users] where username='"&trim(request("username"))&"'",conn,1,1
if rsrecordcount>0 then
rsclose
set rs=nothing
call usererr() else
set rs=serverCreateObject("adodbrecordset")
rsopen "select from [jx_users] where mail='"&trim(request("mail"))&"'",conn,1,1
if rsrecordcount>0 then
rsclose
set rs=nothing
call emailerr()
else
rsclose
set rs=nothing
set rs=serverCreateObject("adodbrecordset")
rsopen "select from [jx_users]",conn,1,3
rsaddnew
'商城注册
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")=RequestServerVariables("REMOTE_ADDR")
rsupdate
rsclose
set rs=nothing
responseWrite "<script LANGUAGE='javascript'>alert('恭喜!注册成功，为了方便购物请登录完善你的资料');locationhref='indexasp';</script>"
end if
end if
else
responseWrite "<script LANGUAGE='javascript'>alert('对不起，请按照步骤进行注册!');locationhref='usr_regasp';</script>"
end if
sub usererr()
responseWrite "<script LANGUAGE='javascript'>alert('用户注册失败! 您输入的用户名已存在，请返回重新输入!');historygo(-1);</script>"
end sub
sub emailerr()
responseWrite "<script LANGUAGE='javascript'>alert('用户注册失败! 您输入的E-mail地址已存在，请返回重新输入!');historygo(-1);</script>"
end sub
%>登录处理代码<!--#include file="conn/connasp"-->
<!--#include file="md5asp"-->
<%
if requestForm("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
responsewrite "<script LANGUAGE='javascript'>alert('请提交完整的信息！');historygo(-1);</script>"
responseend
end if
if cstr(session("getcode"))<>cstr(verifycode) then
responseWrite "<script LANGUAGE='javascript'>alert('请输入正确的验证码！');historygo(-1);</script>"
responseend
end ifset rs=serverCreateObject("adodbrecordset")
rsOpen "select from [jx_users] where username='"&username&"' and pwd='"&pwd&"'" ,conn,1,3
if not(rsbof and rseof) then
'if rs("reglx")=0 then
'responseWrite "<script LANGUAGE='javascript'>alert('对不起！您的帐户还未通过审核！');historygo(-1);< /script>"
'responseend
'elseif rs("reglx")=4 then
'responseWrite "<script LANGUAGE='javascript'>alert('对不起！您的帐户被锁定，请联系管理员！');historygo(-1);< /script>"
'responseend
'end if
Session("username")=rs("username")
Session("userid")=rs("userid")
rs("lastlogin")=now()
rs("logins")=rs("logins")+1
rs("userlastip")=RequestServerVariables("REMOTE_ADDR")
rsUpdate
rsClose
set rs=nothing
username=Session("username")
connexecute("delete from jx_action where username='"&username&"'")
if request("linkaddress")="" then
call loginok()
else
responseredirect request("linkaddress")
end if
else
responsewrite "<script LANGUAGE='javascript'>alert('对不起，您的用户名或密码有误！');historygo(-1);</script>"
end ifelse
responseWrite "<script LANGUAGE='javascript'>alert('对不起，请按照步骤进行访问!');locationhref='loginasp';</script>"
end if
sub loginok()
if requestservervariables("http_referer")<>RequestServerVariables("SERVER_NAME")&"loginasp" then
responseredirect("indexasp")
'responseredirect(requestservervariables("http_referer"))
else
'if comeurl<>RequestServerVariables("SERVER_NAME")&"/shop/loginasp" then
'responseredirect(comeurl)
'else
responseredirect("indexasp")
'end if
end if
end sub
%>希望对你有所帮助

以上就是关于ASP注册登录用SQL数据库全部的内容，包括:ASP注册登录用SQL数据库、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！