asp+accsee连接数据库的问题

asp+accsee连接数据库的问题

asp+access的链接方式

<%
db = "db/link.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
Set con = Server.CreateObject("ADODB.Connection")
con.open ConnStr
if err.number<>0 then
err.clear
set con =nothing
con.close
end if
%>

asp+sql2000的链接方式
<%
connstr="driver={SQL SERVER};server=192.168.1.100;uid=sa;pwd=sa;database=link;"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
%>

把下文中db="db/shuju.mdb"修改成你的数据库名称和地址就行了
<%
Dim conn
function opendb()
On Error Resume Next
db="db/shuju.mdb"
connstr="driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(db)
Set conn=Server.CreateObject("ADODB.Connection")
conn.open connstr
end function

function closedb()
conn.close
set conn=nothing
end function
%>

是access连接的，不过他这个好像是dw自动生成的代码！

'asp+access连接数据库文件
dim conn,connstr,DBName
DBName=''数据库的相对路径''
Set conn = Server.CreateObject(''ADODB.Connection'')
connstr=''Provider=Microsoft.Jet.OLEDB.4.0;Data Source='' & Server.MapPath(DBName)
conn.Open connstr
On Error Resume Next
Set conn = Server.CreateObject(''ADODB.Connection'')
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write ''数据库连接出错，请检查Conn.asp中的数据库指向。''
Response.End
End If
'从你的文件上看好象不是asp+access连接,像sql远程数据库连接