怎么用ASP连接sql数据库

能不能详细点啊。

access数据库是mdb文件，如果你用access打开时不能编辑，那就检查一下这个文件是否设置为只读了。

而如果是在ASP中打开这个mdb文件进行数据库的读写，步聚如下：

一、创建Adodb.Connection对象用来连接数据库

使用以下语句：Set Conn=Server.CreateObject("Adodb.Connection")

打开数据库连接：Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&server.mappath("xxx.mdb")

其中的xxx.mdb就是你的access数据库名称(可以加上路径例如：/data/xxx.mdb。

二、创建adodb.recordset记录集对象来打开数据表并获取记录集

使用以下语句：

set rs=server.createobject("adodb.recordset")

rs.open "select * from xxtable",conn,1,3

这样就打开了xxtable这个表，并返回了其中的所有记录，并且是以可编辑状态打开的。其中的conn即是你的数据库连接对象的名称，后面紧跟着的1是recordset记录集对象的游标类型，此处为1表示你通过此SQL语句获得的记录集的游标可以前后移动，这样你就可以进行记录集的循环等 *** 作。最后面的一个数字3，是记录集的锁定类型，3表示可编辑

关于游标类型及锁定类型可以百度搜索一下

通过上面两步，你已经获得了一些记录集并且处于可编辑这些记录集的状态了

接下来就可以使用rs.addnew,rs.update进行记录的新增，更新 *** 作。

比如新增：

rs.addnew() '表示新增一条记录

rs("name")="test1"

rs("pass")="1234"

rs.update()

这样就新增了一条记录，其中的rs.addnew()表示新增一条记录，紧接着用rs("name"),rs("pass")来写入数据到name,pass这两个字段中，然后使用rs.update来保存一下你刚才的写入，这样一条新记录的插入就完成了。

而如果你只是修改一条已有的记录，则不需要rs.addnew()，后面的代码一样即可完成。不过修改记录一般是会先查询指定条件的某一条记录再进行rs.updae

当然你也可以不使用recordset记录集对象，而直接用sql语句的insert,update等来完成。

另外补充说明一点：

如果你发现用recordset或是sql的insert,update不能成功增加记录或修改记录，那么你就检查一下你的这个数据库连接代码是否连接成功（也就是数据库文件的路径是否写对）。如果这些都对，那么你再检查这个数据库文件是否是只读状态，如果也不是只读状态，那么就应该是文件权限的问题了。当你的MDB文件在NTFS格式的磁盘分区中时，需要设置文件的权限才可以写入数据，否则就只能读取。

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=newcerconnect"

'connstr="provider=microsoft.jet.oledb.4.0data source=" &server.mappath(""&db&"")

conn.open connstr

%>注释掉的是access的连接代码用户注册其实就把信息添加到数据库中，登录就是把填入输入框中的数据和数据库中的做下比较，一下是一下代码注册处理代码<!--#include file="md5.asp"-->

<!--#include file="conn/conn.asp"-->

<%if request.Form("pass")="OK" then

if request.Form("verifycode")<>Session("GetCode") then

response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码！')history.go(-1)</script>"

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 "<script LANGUAGE='javascript'>alert('恭喜!注册成功，为了方便购物请登录完善你的资料')location.href='index.asp'</script>"

end if

end if

else

response.Write "<script LANGUAGE='javascript'>alert('对不起，请按照步骤进行注册!')location.href='usr_reg.asp'</script>"

end if

sub usererr()

response.Write "<script LANGUAGE='javascript'>alert('用户注册失败! 您输入的用户名已存在，请返回重新输入!')history.go(-1)</script>"

end sub

sub emailerr()

response.Write "<script LANGUAGE='javascript'>alert('用户注册失败! 您输入的E-mail地址已存在，请返回重新输入!')history.go(-1)</script>"

end sub

%>登录处理代码<!--#include file="conn/conn.asp"-->

<!--#include file="md5.asp"-->

<%

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 "<script LANGUAGE='javascript'>alert('请提交完整的信息！')history.go(-1)</script>"

response.end

end if

if cstr(session("getcode"))<>cstr(verifycode) then

response.Write "<script LANGUAGE='javascript'>alert('请输入正确的验证码！')history.go(-1)</script>"

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 "<script LANGUAGE='javascript'>alert('对不起！您的帐户还未通过审核！')history.go(-1)</script>"

'response.end

'elseif rs("reglx")=4 then

'response.Write "<script LANGUAGE='javascript'>alert('对不起！您的帐户被锁定，请联系管理员！')history.go(-1)</script>"

'response.end

'end if

Session("username")=rs("username")

Session("userid")=rs("userid")

rs("lastlogin")=now()

rs("logins")=rs("logins")+1

rs("userlastip")=Request.ServerVariables("REMOTE_ADDR")

rs.Update

rs.Close

set rs=nothing

username=Session("username")

conn.execute("delete from jx_action where username='"&username&"'")

if request("linkaddress")="" then

call loginok()

else

response.redirect request("linkaddress")

end if

else

response.write "<script LANGUAGE='javascript'>alert('对不起，您的用户名或密码有误！')history.go(-1)</script>"

end ifelse

response.Write "<script LANGUAGE='javascript'>alert('对不起，请按照步骤进行访问!')location.href='login.asp'</script>"

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

%>希望对你有所帮助

---