ASP连接Access金沙国际官网的几种方法

 更新时间:2012年08月29日 09:27:01   投稿:mdxy-dxy   我要评论
学习程序很大一部分需要与金沙国际官网连接操作,这里简单的整理下asp连接access的一些代码,方便需要的朋友

1. 相对与比较老的环境,建议使用第二个

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) 

2.win2003以上的机器,建议用此方法,效率更高

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) 

3.

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 

4. 建odbc源xxx

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

5、附上一个经常用的sqlserver与access通用的连接金沙国际官网代码

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

相关文章

最新评论