<%
'on error resume next
dim conn
set conn=server.CreateObject("adodb.connection") 
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(DatabaseUrl)
if Err.Number <> 0 then
		Response.Write("<script>alert('[系统错误]\n\n数据库连接错误！请检查系统参数设置>>站点常量设置,或者/inc/config.asp文件!');</script>")  
        Response.End
end if
sub connclose	
   conn.close
   set conn=nothing   
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'是否外部提交
''''''''''''''''''''''''''''''''''''''''''''''''''''
Function isSelfRefer() 
	Dim sHttp_Referer, sServer_Name 
	sHttp_Referer = CStr(Request.ServerVariables("HTTP_REFERER")) 
	sServer_Name = CStr(Request.ServerVariables("SERVER_NAME")) 
	If Mid(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name Then 
		IsSelfRefer = True 
	Else 
		IsSelfRefer = False 
	End If 
End Function 
%>