ASP连接Access软件服务的几种浏览
ASP连接Access软件服务的几种浏览
http://www.zjjv.com/2012-11-05 来源: 站长家园 责任编辑(袁袁) 我要投递新闻
学习程序很大一部分需要与软件服务连接操作，这里简单的整理下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"
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"
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"
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
%>
0
上一篇：asp连接SQL和Access数据代码(asp里的随机函数) 下一篇：没有了
