<%@ Language=VBScript %>
<%
On Error Resume Next
dim restr
dim conn
dim connstr
dim db,diarydir
Const IsSqlDataBase=0
'----------------------------------------------------------
'根据需要设置程序目录，根目录请填写/；二级目录请根据实际情况填写，前后用/结束，如二级目录设置为abc，则填写/abc/
diarydir="/"
'----------------------------------------------------------
If IsSqlDataBase=0 Then
db="d/www_qcrj_net.mdb"
db=server.MapPath("/")&diarydir&db
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Else
 SqlLocalName="(local)\yuanyou"
 SqlDatabaseName="qiriji"
 SqlUserName="sa"
 SqlPassword="admin"
 SqlNowString="GetDate()"
 ConnStr="Provider=Sqloledb;User ID="&SqlUserName&"; Password="&SqlPassword&"; Initial CataLog = "&SqlDatabaseName&"; Data Source="&SqlLocalName&";"
End If
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
set rsconfig=server.CreateObject("adodb.Recordset")
sqlconfig="select * from setting"
Rsconfig.Open Sqlconfig,conn,1,1
open=rsconfig("isopen")
showdiary=rsconfig("diaryline")
adminname=rsconfig("adminname")
sitename=rsconfig("sitename")
siteurl=rsconfig("siteurl")
sitemusic=rsconfig("sitemusic")
sitebg=rsconfig("sitebg")
xinyan1=rsconfig("xinyan1")
xinyan2=rsconfig("xinyan2")
xinyan3=rsconfig("xinyan3")
xinyany=rsconfig("xinyany")
xinyandy=rsconfig("xinyandy")
isxinyan=rsconfig("isxinyan")
tongji=rsconfig("tongji")
sitegjc=rsconfig("sitegjc")
sitems=rsconfig("sitems")
htmldir=rsconfig("sitehtmldir")
sitelistdir=rsconfig("sitelistdir")
sitebookdir=rsconfig("sitebookdir")
ishtml=rsconfig("siteishtml")
'diarydir=rsconfig("diarydir")
isset=rsconfig("isset")
Rsconfig.close
set Rsconfig=nothing
alltubg=diarydir&"diary/"
diarylistno=showdiary
if Request.Cookies("bgrndc")<>"" then
bgrnd=diarydir&Request.Cookies("bgrndc")
else
bgrnd=diarydir&sitebg
end If
%>
<!--#include file="u/Fun.asp" -->


