conn.asp.bak

数值计算方法网络课件系统是浙江大学过程装备与控制工程专业2001级本科生毕业设计成果。本系统采用ASP＋ACCESS架构

<%@Language=VBScript CODEPAGE=936%>
<% Option Explicit %>
<%
Dim Conn, Rs, Sql

Sub DBConnBegin()
		Response.write "100000" & "<br>"
	'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
		Response.write "200000" & "<br>"

End Sub

%>