conn.asp

来自「员工身份查询系统 员工身份查询系统」· ASP 代码 · 共 43 行

<%@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=Server.MapPath("52725/52725.asa")


'-->>
'//创建数据库连接
'<<--
Dim conn,connstr
Set conn = Server.CreateObject("Adodb.Connection")
connstr="Provider=Microsoft.JET.OLEDB.4.0;Data Source="&db
conn.open(connstr)
'-->>
'//关闭数据库连接
'<<--
Function CloseConn
conn.close
Set conn = Nothing
End Function
function cp()
response.Write("&nbsp;&nbsp;Designed by <a href='http://www.52725.com' class=a>www.52725.com</a>")
end function
%>