ASP无法连接ACCESS数据库(高手请教) 100
这个连接数据库代码:<%OptionExplicit'要求变量声明,这样所有包含此文件的都需要声明变量dimconn'数据库连接dimconnstr'连接字符串dimdb...
这个连接数据库代码:
<%
Option Explicit '要求变量声明,这样所有包含此文件的都需要声明变量
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "Database/shopbook.mdb" '演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'连接 SQL Server时使用下面的连接字符串
'connstr = "Provider=SQLOLEDB; User ID=sa; Password=; Initial Catalog=trfhandset; Data Source=localhost"
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接,在每页中调用此函数,将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
'替换单引号,向数据库中写入数据时用
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "’")
end function
'替换单引号并进行HTML编码,向网页输出数据库内容时用
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
'此句用于将字符串中的回车符转换为HTML中的换行标记
Convert = Replace(Convert, chr(13), "<br>")
end function
%> 展开
<%
Option Explicit '要求变量声明,这样所有包含此文件的都需要声明变量
dim conn '数据库连接
dim connstr '连接字符串
dim db '数据库文件路径
db = "Database/shopbook.mdb" '演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'连接 SQL Server时使用下面的连接字符串
'connstr = "Provider=SQLOLEDB; User ID=sa; Password=; Initial Catalog=trfhandset; Data Source=localhost"
Set conn = Server.CreateObject("ADODB.Connection")
if err Then
err.clear
end if
conn.Open connstr
'关闭数据库连接,在每页中调用此函数,将连接放入连接池
sub CloseConn()
conn.Close()
Set conn = Nothing
end sub
'替换单引号,向数据库中写入数据时用
function RealString(strSrc)
RealString = Replace(Trim(strSrc), "'", "’")
end function
'替换单引号并进行HTML编码,向网页输出数据库内容时用
function Convert(strSrc)
Convert = Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
'此句用于将字符串中的回车符转换为HTML中的换行标记
Convert = Replace(Convert, chr(13), "<br>")
end function
%> 展开
2个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询