<%'@Language="VBScript" CodePage="65001"%>
<%' Option Explicit %>
<% 
'强制浏览器重新访问服务器下载页面，而不是从缓存读取页面
Response.Buffer = True        
Response.Expires = 0  						'页面立即过期
Response.CacheControl = "no-cache"			'强制刷新
response.ChaRSet = "utf-8" 
session.timeout = 1440						'会话设置（分钟）
Server.ScriptTimeout = 90					'ASP脚本超时设置（单位秒）

'/////////////////////////////////////////////////////////////////////////////////////////////////////

'--在此说明：此文件内容请谨慎修改，因随意修改此文件导致网站异常本人概不负责！		//////////////////////////////////

'--2014-11-26	By.Jin	At.Guangzhou	806460655	Http://www.oywork.com	http://www.simpleh.com	//

'/////////////////////////////////////////////////////////////////////////////////////////////////////

'web_root="/"							'网站根目录
web_root="/JinCmsV1.0/"						'网站根目录
cookkey="JinCms_ComName"				'Cookies保存关键字(编辑器JSON_2.0.4.asp文件中的cookkey也要对应改一下)


'--下面是数据库链接代码
Db=web_root&"Common/Data/#jincms_V1.0_201508.asa"
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("/data/#sunshine.accdb")  '链接ACCESS2010语句
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=#oyjz2014;Data Source=" & Server.MapPath(Db)  '链接ACCESS2003语句
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<div style='margin:100px;font-size:14px;text-align:center;'>Database connection error.</div>"
Response.End
End If

'--以下是网站基础信息

Set Rs=server.createobject("adodb.recordSet")
Sql="select top 1 * from Jin_Config"
Rs.open Sql,conn,1,1
Web_Name=Rs("Web_Name")					'网站名称
Web_Title=Rs("Web_Title")				'网站标题			
Web_Url=Rs("Web_Url")					'网站Url
Web_Logo=Rs("Web_Logo")					'网站名称
Web_Keywords=Rs("Web_Keywords")			'网站主关键词
Web_Description=Rs("Web_Description")	'网站主描述
Web_Foottext=Rs("Web_Foottext")			'网站底部信息
Web_Beian=Rs("Web_Beian")				'Web_Beian

Web_Switch=Rs("Web_Switch")				'网站开关
Web_CloseReason=Rs("Web_CloseReason")	'网站关闭理由
Web_Lang=Rs("Web_Lang")					'网站语言
Web_NowLang=Rs("Web_NowLang")			'网站语言
Web_Template=Rs("Web_Template")			'网站模板

Web_SendName=Rs("Web_SendName")			'邮件系统显示名称
Web_SendDomain=Rs("Web_SendDomain")		'邮件系统SMTP服务器
Web_SendEmail=Rs("Web_SendEmail")		'邮件系统邮箱账号
Web_SendPwd=Rs("Web_SendPwd")			'邮件系统邮箱密码
Web_ToEmail=Rs("Web_ToEmail")			'测试接受邮箱
Web_GetEmail=Rs("Web_GetEmail")			'留言发送到邮箱
Web_ToMsgEmail=Rs("Web_ToMsgEmail")		'回复留言到邮箱
Web_GetMsgEmail=Rs("Web_GetMsgEmail")	'留言发送到邮箱

Web_BdNewsKey=Rs("Web_BdNewsKey")		'后台首页百度新闻调用关
Web_CookDate=Rs("Web_CookDate")			'管理Cookies保留时间	1一天,31一个月,365一年
Web_BackPageNumA=Rs("Web_BackPageNumA")	'后台文章分页数
Web_ProField=Rs("Web_ProField")			'产品开放字段
Web_WzField=Rs("Web_WzField")			'文章开放字段
Web_JobsField=Rs("Web_JobsField")		'简历必填字段
Web_JobsTips=Rs("Web_JobsTips")			'简历下方提示信息
Web_MsgField=Rs("Web_MsgField")			'简历必填字段
Web_MsgTips=Rs("Web_MsgTips")			'简历下方提示信息

Web_PageType=Rs("Web_PageType")			'页面类型
Web_HtmlType=Rs("Web_HtmlType")			'静态化名称类型

Web_PageSize=Rs("Web_PageSize")			'前台页面分页数

Web_Thumb=Rs("Web_Thumb")				'是否生成略缩图
Web_ThumbWidth=Rs("Web_ThumbWidth")			'略缩图尾缀
Web_ThumbHeight=Rs("Web_ThumbHeight")			'略缩图尾缀
Web_EndFlag=Rs("Web_EndFlag")			'略缩图尾缀

Rs.close
Set Rs=nothing

'-------------------------------------------------------------- L I N E ------------------------------------------------------------------

'分类ModelID
Web_ModuleID=1							'分类使用模板			(1.默认模板	2.模板2	3.模板3	4.模板4	5.模板5)
'Cookie保存时间格式化
If Cnum(Web_CookDate)<1 Or Cnum(Web_CookDate)>365 Then Web_CookDate=1		'如果设置的Web_CookDate不在1-365之间，则默认保留1天
'默认Logo
If Web_Logo="" Then Web_Logo="Images/logo.jpg"								'如果没有设置网站LOGO，则读取Images文件夹下的默认LOGO图标
'默认语言
If Web_NowLang="" or isnull(Web_NowLang) Then Web_NowLang="cn"


'--------前台分页数
Web_PageSize0 = split(Web_PageSize,",")
Web_PageSizeA=clng(Web_PageSize0(0))			'文章分页数
Web_PageSizeB=clng(Web_PageSize0(1))			'产品分页数
Web_PageSizeC=clng(Web_PageSize0(2))			'留言分页数
Web_PageSizeD=clng(Web_PageSize0(3))			'评论分页数
Web_PageSizeE=clng(Web_PageSize0(4))			'其他分页数

'--------------------------------------------------------------- L I N E -----------------------------------------------------------------

'读取相关session值



'--------------------------------------------------------------- L I N E -----------------------------------------------------------------

'快速添加session方法：
'链接/Admin/System/Sessions.asp?保存名_值
'例如：<A href="/Admin/System/Sessions.asp?TodayLife_Happy">今天心情很好</a>
'即是session("TodayLife")="Happy"
'2014-11-26		Design By.Jin	http://www.oywork.com	http://www.simpleh.com


'--------------------------------------------------------------- L I N E -----------------------------------------------------------------

'JinCms页面Url说明
'页面名称		AspUrl						HtmlUrl
'关于我们		About.asp					About/Index.html
'经典案例		Cases.asp					Cases/Index.html
'案例分类		Cases.asp?ID={ID}			Cases/{ID}-{PAGE}.html
'案例内页		Case.asp?ID={ID}			Case/{ID}.html
'新闻资讯		News.asp					News/Index.html
'新闻分类		News.asp?ID={ID}			News/{ID}-{PAGE}.html
'新闻内页		Article.asp?ID={ID}			Article/{ID}.html
'联系我们		Contact.asp					Contact/Index.html

'其他待补充……
%>
