数据

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
%>希望对你有所帮助

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