学习程序很大一部分需要与数据库连接操作,这里简单的整理下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
%>