UC知道acsses 以独占式加密后怎么连接
来源：百度知道 编辑：UC知道 时间：2024/06/05 11:40:15
我的连接文件是 不对 怎么改啊 谢谢
<%
dim conn
dim connstr
connstr="DBQ="+server.mappath("/data/da_bao.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串rrr。"'注释，需要把这几个字翻译成英文。
Response.End
else
conn.open connstr
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串eeee。"'注释，需要把这几个字翻译成英文。
Response.End
end if
end if
sqlin_ok=1 'SQL防注功能，0-关闭 1-打开 2-打开但不自动锁IP
%>
<%
dim conn
dim connstr
connstr="DBQ="+server.mappath("/data/da_bao.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串rrr。"'注释，需要把这几个字翻译成英文。
Response.End
else
conn.open connstr
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串eeee。"'注释，需要把这几个字翻译成英文。
Response.End
end if
end if
sqlin_ok=1 'SQL防注功能，0-关闭 1-打开 2-打开但不自动锁IP
%>
db = "/data/da_bao.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
connStr="Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;Jet OleDB:Database Password=密码;Data Source="&Server.MapPath(db)
conn.Open connStr