云和变更项目业主批复:请高手帮我看看这一小段代码行吗?急用

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/29 07:50:43
<%Response.Buffer=True
Response.Expires=0
datapath ="../data/"
datafile ="loginpay.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;
Data Source="&Server.MapPath(""&datapath&""&datafile&"")
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
SqlNowString="Now()"
SqlChar="'"
ver="5.13a"
On Error Resume Next
Set cn=Server.CreateObject("ADODB.Connection")
cn.open ConnStr
set rs=Server.CreateObject("ADODB.Recordset")
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<center>数据库连接出错,请检查连接字串。"
Response.End
End If %>
这里面是怎么实现ASP与ACCESS数据库的连接啊 ,我看了半天怎么觉得好象是用的OLEDB又象是ODBC啊

datapath ="../data/"
datafile ="loginpay.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;
Data Source="&Server.MapPath(""&datapath&""&datafile&"")
'Connstr="DBQ="&server.mappath(""&datapath&""&datafile&"")&";DRIVER={Microsoft Access Driver (*.mdb)};"
这句错了,换这个试试
dim conn,connstr,db,rs,rs_s,rs_s1
db="../data/loginpay.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

明显是OLEDB呀