conn.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<%
Option Explicit
Response.Buffer = True
Dim conn,db,prefix,timeset,connstr,time1,onlinetime,rs
prefix="zym"
Server.ScriptTimeout=40
timeset=0 '时区相对东八区（北京时间）
onlinetime=1  '保存用户在线的时间(小时)。
db="db/#Dadayu_bbs.mdb"
set conn=Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)
conn.open connstr
Sub closedb
conn.close
Set conn = nothing
End Sub
%>