<!--#include file="dailynSql.Asp"-->
<%
    Server.ScriptTimeOut=150
    on error resume next
	dim conn
	dim dbpath
   	set conn=server.createobject("adodb.connection")
	DBPath = Server.MapPath("#einfodata/#einfo$webdata.mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
    If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接错误，请检查数据库!"
		Response.End
	End If

	function connClose
	Conn.close
	Set conn = Nothing
	End Function
%>
<SCRIPT LANGUAGE=JavaScript src="maneinfo/Counter.asp"></SCRIPT>