<%


dim conn        '数据库连接
dim connstr        '连接字符串
dim db            '数据库文件路径

db = "/database/trfsoft.mdb"    '演示时用ACCESS数据库
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set conn  =  Server.CreateObject("ADODB.Connection")
if err Then
    err.clear
end if
'对于实时性要求不高的高用，使用adUseClient游标
conn.CursorLocation = adUseClient

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

%>



错误:

ADODB.Connection 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/Ican/inc/conndb.asp，行 15

我这是上传到服务器上才出现 的错误,在本地没有出现,请各位高手指教一下

conn.CursorLocation = adUseClient
改成
conn.CursorLocation = 3
试试

又出现了这样的错误;在本地测试正常,但是防到服务器上就都是错误 请各位高手继续指教 ,谢谢

Microsoft JET Database Engine 错误 '80004005'

'D:\web\user\test\database\trfsoft.mdb'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

/Ican/inc/conndb.asp，行 16

因为楼主用的是绝对路径，换成相对路径即可
试试用db = "../database/trfsoft.mdb"
不清楚楼主运行的文件和数据库相对的位置，以上写法只是个人猜测

我的数据库是在database下,本地测试正常,怎么到服务器上就都是错呢

楼主一楼的程序在哪个文件夹下呢？

而conn.asp是在Inc目录下

我换成"../database/trfsoft.mdb"这是在服务器上出现的错误?


Microsoft JET Database Engine 错误 '80004005'

'D:\web\user\test\database\trfsoft.mdb'不是一个有效的路径。 确定路径名称拼写是否正确，以及是否连接到文件存放的服务器。

/Ican/inc/conndb.asp，行 16