conn.asp

来自「数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计」· ASP 代码 · 共 26 行

<%@Language=VBScript CODEPAGE=936%>
<% Option Explicit %>
<%
Dim Conn, Rs, Sql
Sub DBConnBegin()
	'If IsObject(Conn) = True Then Exit Sub
	Set Conn = Server.CreateObject("ADODB.Connection")
	On Error Resume Next
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/#data.mdb")
	If Err.Number > 0 Then
		Response.write "数据库连接错误"
		Response.End
	End If
	Set Rs = Server.CreateObject( "ADODB.Recordset")
End Sub

Sub DBConnEnd()	'释放数据库连接对象
	On Error Resume Next
	Rs.Close
	Set Rs = Nothing
	Conn.Close
	Set Conn = Nothing

End Sub

%>