conn.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 27 行

<!--#include file="Config.asp" -->
<!--#include file="AcData.asp" -->
<%
On Error Resume Next
Dim Db,DatabasePath,Grade
Dim Member,Password,id,rsx,rs2,rs3,rs,sql,conn,ii,i,Money1,Money2
Session.Timeout = 20
Db="/"&SysPath&DatabasePath&"/"&Dataname&""
Set conn = Server.CreateObject("ADODB.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&Db&"")
conn.open connstr
If Err Then
    err.Clear
    Set conn = Nothing
    Response.Write "数据库连接出错!" 
    Response.End
End If 

Sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	End if
End Sub
%>
<!--#include file="Auto.asp" -->