conn.asp

员工身份查询系统 员工身份查询系统

<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit

Dim Load
Set Load=New PageLoad

Class PageLoad
  Dim T1,T2
  Private Sub Class_Initialize()
    T1=Timer
  End Sub
  Public Function Times()
    T2=Timer
    Times="执行时间："&FormatNumber((T2-T1)*1000,2)&""
  End Function
End Class

'//定义数据库路径
'<<--
Dim SysPath,dbPath,db
db="../52725/52725.asa"
dbPath=Server.MapPath(db)


'-->>
'//创建数据库连接
'<<--
Dim conn,connstr
Set conn = Server.CreateObject("Adodb.Connection")
connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source="&dbPath
'connstr="driver={microsoft access driver (*.mdb)};uid=admin;pwd=123;dbq="&dbPath&""
conn.open(connstr)
'-->>
'//关闭数据库连接
'<<--
Function CloseConn
conn.close
Set conn = Nothing
End Function
%>