Question

有没有大神知道ASP VBscript连接access数据库代码怎么写

要求在虚拟主机上能用，是不是用自定义字符串连，qq号留下我把文件用邮箱发给你，帮我改下

Answer 1

下面是搭袭我的conn.asp, 以前是mdb的现在改sql, 你应该看得懂, mdb有两种连接方式, OLEDB和DBQ都可以运行
所有文件在首行引用即可
<!--#include file=conn.asp-->

------conn.asp------
<%
Option Explicit
Response.Buffer = True
Dim rs,rs1,rs2,rs3,rs4,rs5,Db,DbPath,MyDbpath,adoConn,adoConn1,Sql,sql1,sql2,sql3,sql4,admin_name,admin_pass,username,password
Dim local(30)

MyDbPath = "192.168.38.141"
Db = "DickDB"
'Db = "\\192.168.38.153\database\H#R.mdb"

Const EnabledSession= true
Const IsDeBug = 1
Sub ConnectionDatabase
Dim ConnStr
'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & db & ";Jet OLEDB:Database Password='tommy'"
'ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath(MyDbPath & db) & ";Jet OLEDB:Database Password='tommy';admin"腔空
'connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};password='tommy'"
ConnStr = "Provider=SQLOLEDB;Data Source=192.168.38.141;User ID=webasp02;Password=webasp02#;Database=DicksonSHDB"

Set adoconn = server.CreateObject("ADODB.Connection"知圆兄)
adoconn.open ConnStr
If Err Then
Response.Write err.description & err.number
err.Clear
Set adoConn = Nothing
'Response.Write "Database Error, Please contact the IT Department!"
Response.End
End If

End Sub

%>

Answer 2

<%
Dim dbFileName
dbFileName = "data/#data.mdb"

'上颂卖李面改成数据库目录
Dim dbFilePath
dbFilePath = Server.MapPath(dbFileName)
On Error Resume Next

Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFilePath
If Err Then
Err.Clear
Response.write ("数配贺据库出错"野迟)
Response.end
Set Conn = Nothing
conn.close
End If
%>

追问

代码放在哪里

追答

把你的代码复制上来看看，一般是用我的代码替换conn.asp或者conn.inc的代码

追问

追答

把我的代码的数据库位置改成connection_odbc_conn_dsn.htm试试（区分大小写），替换这些代码

如果还不行尝试把htm改成mdb，有的主机不支持重命名的数据库。

追问

代码的数据库位置是什么

追答

直接把以下代码换掉你复制上来那些就行

追问

换了之后连网页都打不开了，你看看上面这个图里的代码要不要换

追答

把ljdata.asp弄上来看看谢谢

追问

追答

。。。。。。不好意思，你的第一张图里面的代码需要大改。我在用手机打不了那么多，而且有些我看不懂。菜鸟路过，帮不了你真不好意思。