中科新闻网沃尔沃xc90荣誉版:asp+access建站数据库问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/30 11:22:35
我不大懂，还请大家帮忙把数据库连接文件的源码给写下！
我的意思是怎么把ODBC数据库连接方式换成 能在虚拟主机上使用的连接方式~
原连接文件conn.asp的代码
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_conn_STRING
MM_conn_STRING = "dsn=yuantuo;"
%>
在dw中建立 自定义连接字符串 中输入:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("data/aaa.mdb")
dw会自动建立连接文件
注: data/aaa.mdb是数据库的相对路径,就是相对与你的虚拟目录的路径.
比如你的数据库文件为aaa.mdb,并且存放在虚拟网站目录的data文件夹里,你可以用上面的连接字符串.
<%
Dim db,conn,ConStr,Sql,rs
db="vote.mdb"
ConStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'On Error Resume Next
Set conn=server.createobject("adodb.connection")
conn.open ConStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
Sub EndConnection
conn.close
Set conn=Nothing
End Sub
%>
<%
dim conn
dim connstr
dim db
db="datebase\seaheart.mdb" '你的数据库文件的位置
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("datebase\seaheart.mdb")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请报告本站站长，谢谢！"
Response.End
End If
sub CloseConn() '这是关闭数据库时调用的过程
conn.close
set conn=nothing
end sub
%>
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("数据库相对路径")
set conn = server.createobject("adodb.connection")
conn.open strconn
不会意思,还没学到那个阶级,对不起了!无能为力