conn.asp

来自「一个漂亮的网络工作室源码 后台地址:/admin 用户名:admin 密码」· ASP 代码 · 共 42 行

<%@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("db&efooo/efooo.mdb")


'-->>
'//创建数据库连接
'<<--
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='mailto:[e-mail]' class=a>Licky</a>")
end function
%>