Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString = "Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL資料庫,請認真修改好以下資料庫選項
DataServer = "wwwjb51net" '資料庫伺服器IP
DataUser = "jb51net" '通路資料庫使用者名
DataBaseName = "jb51net" '資料庫名稱
DataBasePsw = "密碼" '通路資料庫密碼
SqlNowString = "getdate()"
ystr=1
nstr=0
suiji="newid()"
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "資料庫連接配接出錯,請檢查Conn.asp檔案中的資料庫參數設定。":Response.End
%>
這就是微學網-程式員之家為你提供的"ASP連接配接Access資料庫的幾種方法"希望對你有所幫助.本文來自網絡,轉載請注明出處:http://www.weixuecn.cn/article/2303.html