<!--#include file="../conn/database_conn.asp" -->
<%
	Response.Buffer=True
	StartTime=Timer()
	'''''''''''''''''''''''''''''' 网站出错信息显示开始 '''''''''''''''''''''''''''''''''''''''''''''''''
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.commandtimeout=900
	conn.open ConnStr
	If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "<br><br><br><br><br><br><br><div align='center'>数据库连接出错!请检查连接数据库的参数及字符串设置是否正确！</div>"
	Response.End
	'''''''''''''''''''''''''''''' 网站出错信息显示结束 '''''''''''''''''''''''''''''''''''''''''''''''''
	End If
	sub closeconn()
		conn.close
		set conn=nothing
	end sub
	Sub CloseDB()
		On Error Resume Next
		If IsObject(Conn) Then
			Conn.Close
			Set Conn = Nothing
		End If
	End Sub
%>