conn.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<%
'**************************************************
'----------------后台管理系统----------------
'--------------Designed by FlyinG------------
'--------------mail:[e-mail]-------------
'----------------QQ:18569237-----------------
'**************************************************
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="../db&efooo/efooo.mdb"
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
%>