<%@ 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
%>