set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION") DBPath = Server.MapPath("customer.mdb") dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SQL="select * from auth where id='" & user_id &"'" SET uplist=dbconnection.EXECUTE(SQL) 

set dbconnection=Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("customer.mdb") dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath SQL="select * from auth where id='" & user_id &"'" SET uplist=dbconnection.EXECUTE(SQL) 

DBPath = Server.MapPath("customer.mdb") set session("rs")=Server.CreateObject("ADODB.Recordset") ' rs=Server.CreateObject("ADODB.Recordset") connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath SQL="select * from auth where id='" & user_id &"'" session("rs").Open sql,connstr,1,3 

set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 

<% 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 %>