ASP结合Access网络的几种水果

发布时间：2023-06-26 15:03:37 所属栏目：Asp教程来源：

导读：学习程序很大一部分需要与数据库连接操作，这里简单的整理下asp连接access的一些代码，方便需要的朋友

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

set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")

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

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!