Question

求ASP连接数据库代码

ASP提供两种访问数据库的方法：在第一种方法中每次访问数据库都要与数据库连接一次，一旦与数据库建立连接语句就可以对数据进行操作；当对数据的操作完成，所有相关的对象都被关闭。
与数据库相连的另一种方法是当用户的任务完成后连接才被关闭，这是由Global．asp文件所控制。每个基于ASP的internet应用可以有一个存放在应用根目录中的Global.asp文件，该文件有四个事件：Applicattion-start，Senssion-start, Applicattion-End和Session-end用户与数据库的连接是在Session-start事件中，用Session-end事件关闭连接[1]。
在本网页中用如下代码来实现ASP与数据库的连接：
<%
dim connectstr
on error resume next
Set connectstr = Server.CreateObject("ADODB.Connection")
connectstr.Open "driver={SQL Server};server=localhost;uid=jsj2000;database=Biaobenku;pwd=jsj2000"
if err.number <> 0 then
response.write "数据库操作失败："&err.description
response.end
end if
%>
求助哪位朋友帮我写一段用,同样语言 ,不同格式, 实现目的一样的代码,.
这个是老师写的, 他要我自己写一段,希望大家帮帮忙

Answer 1

<%
Class DB
Private conn
Private connstr

Private Sub Class_Initialize
'构造函数
connstr = "driver={SQL Server};server=localhost;uid=jsj2000;database=Biaobenku;pwd=jsj2000"
Set conn = Server.CreateObject("ADODB.Connection")
End Sub

Private Sub Class_Terminate
'析构函数
connstr = ""
If (isObject(conn)) Then set conn = nothing
End Sub

Public Function OpenDB
'对外服务接口，打开一个与数据库的连接
conn.open connstr
If Err.number <> 0 Then
Response.Write("数据库操作失败："&Err.description)
Response.End
End If
End Function

'其他的方法...

End Class
%>
<%
on error resume next
set MyDB =new DB '创建一个数据库类的实例
MyDB.OpenDB '打开与数据库的连接
%>

Answer 2

<%
Dim DBName,Conn
DBName"" '定义数据库路径及名称
SET Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBName)
%>

Answer 3

dim db
db="db.mdb"
on error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div align=""center"">数据库连接出错！</div>"
Response.End
End If

Answer 4

dim db
db="date/db.mdb" //为数据库文件路径和文件名称根据自己文件位置设定
on error resume next
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing