UC知道求~”ASP”那位好人帮我解释一下这段代码～～
来源：百度知道 编辑：UC知道 时间：2024/05/21 17:46:03
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit '用于在文件级强制对该文件中的所有变量进行显式声明。
Response.Buffer = True '这句话的意思就是指明输出页面是否被缓冲，当属性值为True时，服务器将不会向客户端发送任何信息，直到所有程序执行完或者遇到<%Response.Flush%，才会释放缓冲区的信息。
Dim Conn,Startime '定义变量coonn ,startime
Startime = Timer()
Sub ConnectionDatabase()
Dim ConnStr,Db
Db = "Data/FengLing_File.mdb" '请修改数据库名字，如改为Data/FengLing_File.asp
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db) 'provider=microsoft.jet.oledb.4.0 是数据源类型，进行与数据库连接。 data source="&server.MapPath 是数据库地址
On Error Resume Next '
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
Sub CloseDatabase()
If IsObject(Conn) then
<%
Option Explicit '用于在文件级强制对该文件中的所有变量进行显式声明。
Response.Buffer = True '这句话的意思就是指明输出页面是否被缓冲，当属性值为True时，服务器将不会向客户端发送任何信息，直到所有程序执行完或者遇到<%Response.Flush%，才会释放缓冲区的信息。
Dim Conn,Startime '定义变量coonn ,startime
Startime = Timer()
Sub ConnectionDatabase()
Dim ConnStr,Db
Db = "Data/FengLing_File.mdb" '请修改数据库名字，如改为Data/FengLing_File.asp
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db) 'provider=microsoft.jet.oledb.4.0 是数据源类型，进行与数据库连接。 data source="&server.MapPath 是数据库地址
On Error Resume Next '
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
Sub CloseDatabase()
If IsObject(Conn) then
On Error Resume Next ' 出错处理
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConnStr 打开数据库连接
If Err Then 如果出错
err.Clear 清除错误
Set Conn = Nothing 关闭连接
Response.Write "数据库连接出错，请检查连接字串。" 给出提示
Response.End 响应结束
End If
End Sub
Sub CloseDatabase() 定义关闭数据库的函数
If IsObject(Conn) then 如果连接存在
Conn.close 关闭
Set Conn=Nothing 清空连接
End If
End Sub