?? conn.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Startime
dim ConnStr,conn
dim cache
dim cookiesname
Startime = Timer()
cookiesname = "123" 'cookies名稱
const cachename="123" '緩存對象前綴名
const passcookies=true '是否加密cookies
const issqldate=false
if not issqldate then
Dim Db
'access數據庫連接參數:第一次使用請修改本處數據庫地址并相應修改data目錄中數據庫名稱,如將oblog2.mdb修改為oblog2.asp
Db = "data/123.mdb"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
else
'sql數據庫連接參數:數據庫名、用戶密碼、用戶名、連接名(本地用local,外地用IP)
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "123"
SqlPassword = "123"
SqlUsername = "123"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
end if
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "數據庫連接出錯,請檢查連接字串。"
Response.End
End If
if isarray(application(cachename&"info"))=false then
call PutApplicationValue()
end if
'call PutApplicationValue()
sub closeconn()
conn.close
set conn=nothing
end sub
sub PutApplicationValue()
dim infosql,rsinfo
infosql="select show_log_num,enguestcomment,site_keyword,needclassid,sitefriends,"
infosql=infosql&"blogcheck,copyrighturl,siteurl,siterefu_num,sitetitle,webmasteremail,"
infosql=infosql&"logcount,getlog_num,EnableUserReg,logcount,commentcount,messagecount,usercount,timediff,"
infosql=infosql&"sitename,show_imgw_num,show_img_mouse,blog_showruntime,blog_showrefu,vip_prosee,show_listuser_num,"
infosql=infosql&"blog_profilt,show_comment_asc,userlink_add,user_sendword,siteplacard,smalledit,gourl"
infosql=infosql&" from bloginfo"
set rsinfo=conn.execute(infosql)
Redim ApplicationValue(32)
dim i
for i=0 to 32
ApplicationValue(i)=rsinfo(i)
next
set rsinfo=nothing
Application.Lock
set Application(cachename&"info")=nothing
Application(cachename&"info")=ApplicationValue
Application(cachename&"index_update")=true
Application(cachename&"list_update")=true
Application.unlock
end sub
const ot_user=false '是否使用其他數據庫用戶表,true為使用,false為不使用
if ot_user then '若使用外部數據庫表請自行修改下面的變量值
dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password,ot_regurl,ot_lostpasswordurl
ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("xx") '外部數據庫連接字符串
Set ot_conn = Server.CreateObject("ADODB.Connection")
ot_conn.open ot_connStr '外部數據庫連接
ot_usertable="dv_user" '用戶表名
ot_username="username" '用戶名字段
ot_password="userpassword" '密碼字段
ot_regurl="xxx.asp" '注冊用戶鏈接
ot_lostpasswordurl="../bbs/lostpass.asp" '找回密碼鏈接
end if
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -