<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option explicit
Response.Buffer=True
Response.Charset="gb2312" 
Session.CodePage=936
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"
%>
<!--#include file="../inc/CatyBlogClass.asp" -->
<%
Dim Rs,Conn,SqlConnectionString,Righttrue,CBlogObj,SqlCount,UserTrue,MaxP,Territory
SqlCount=0'初始化数据库查询次数
'###############设置开始####################

Const CityBlogDir="/blog/"'网站目录，如果直接放在根目录则为CityBlogDir="/",放别的目录如"/blog/",注意最后要加/
Const DbPath="data/guiblog.asp"
Const WebHost="jindancd.com"'如果开通二级域名的话，二级域名的后缀，如jindancd.COM
'以上必须设置过，否则系统会出错
Const WebName="SchoolBlog"'网站名称
Const CheckDom="blog,www,admin"'不允许用户注册的二级域名
Const CheckUserName="匿名网友,系统消息,胡锦涛,法轮功,江泽民"'不允许注册的用户名
Const CatyBlogCache_name="Blog" '缓存名前缀
Const UpFileSize=15'上传空间大小M[整数]
Const UserUpFileSize=4000'上传单个文件大小(k)[整数]
Const ReplyOrder="Desc"' 评论是否按最新的在上面?是为DESC,否为Asc[Desc||Asc]
Const IsDom=false'是否开通二级域名？TRUE为开空，FALSE为不开通[True||FALSE]
Const CaheTime=6'缓存失效时间,单位:小时
Const CommentsName=True'是否允许用户未登入而发表评论?True为允许,FALSE为不[True||FALSE]
Const IsWangZai=True'是否开通全文网摘,True为开通,False为不开通[True||FALSE]
Const Isonmousewheel=True '图片是否随着滚轮而变大,变小TRUE为是,FALSE为否[True||FALSE]
Const IsHd=False'首页推荐图片是否幻灯显示True幻灯显示,False 为普通
Const IsCheck=False '是否要经过审核?(True需要/False为不需要)

'###############设置结束####################
UserTrue=false
Righttrue=true
Territory="http://"&Request.ServerVariables("HTTP_HOST")
SqlConnectionString="DBQ="+server.mappath(CityBlogDir & DbPath)+";DRIVER={Microsoft Access Driver (*.mdb)};"
'On Error resume next
Set conn= Server.CreateObject("ADODB.Connection")
conn.open SqlConnectionString
If Err.number<>0 Then
  err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错，您设置的数据库：<br/>相对路径为:" & CityBlogDir & DbPath & ",<br/>绝对路径为:"& server.mappath(CityBlogDir & DbPath) &"。<br/>请检查数据库路径是否正确!Inc/Config.asp文件。"
  Response.End
End If
Set CBlogObj=New CatyBlogObj
%>