<%
'必须先定义后使用
Option Explicit
Response.buffer=true
dim db,starttime,closetime,conn
db="../database/#js0750.mdb" '数据库的位置
'打开数据库连接
function open_database()
On Error Resume Next
set conn=server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(db)
if err then
set conn=nothing
response.Write("数据库连接出错，请检查连接字符")
response.End()
end if
starttime=timer()
end function
%>