<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
''' EYCMS
''' ==================================================================

	option explicit
	session.codepage=65001
	response.charset="utf-8"
	server.scripttimeout=999999
	dim in_eycms:in_eycms=true
	dim dbquery:dbquery=0
	dim startime:startime=timer()
	dim xmlhttp:xmlhttp="microsoft.xmlhttp"
	dim ismobile:ismobile=false
	dim broot
%>
<!--#include file="../config.asp"-->
<!--#include file="../version.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="class/eycms.db.asp"-->
<!--#include file="class/eycms.fun.asp"-->
<!--#include file="class/eycms.ip.asp"-->
<!--#include file="class/eycms.page.asp"-->
<!--#include file="class/eycms.temp.asp"-->
<!--#include file="class/eycms.lang.asp"-->
<!--#include file="class/eycms.jscript.asp"-->
<!--#include file="class/eycms.weixin.asp"-->
<!--#include file="class/upload.asp"-->
<%
	dim eycmslang
	set eycmslang=new eycms_lang
	dim langmenu:langmenu=eycmslang.getlanguage()
	set eycmslang=nothing
	dim param:set param=server.createobject("scripting.dictionary")
	dim sqltime:sqltime="now()"
	if not(datatype) then sqltime="GetDate()"
	eycms.sitedb:eycms.catedb:eycms.auto_update
	dim page:page=eycms.getint(eycms.fget("page",0),1)
	dim cpage:cpage=eycms.getint(eycms.fget("cpage",0),1)
	dim webmode:webmode=eycms.getsys("webmode")
	dim isgzip:isgzip=eycms.getsys("isgzip")
	dim iscache:iscache=eycms.getsys("iscache")
	dim tempcache:tempcache=eycms.getsys("tempcache")
	dim cachedate:cachedate=eycms.getsys("cachedate")
	dim thisurl:thisurl=eycms.getthisurl
	dim htmldir:htmldir=eycms.getsys("htmldir")
	dim commentconfig:commentconfig=eval(eycms.getsys("expand.comment"))
	dim syscomment:syscomment=commentconfig(0)
	dim moodconfig:moodconfig=eycms.getsys("expand.mood")
	dim wx_appid:wx_appid=eycms.getsys("wx_appid")
	dim wx_key:wx_key=eycms.getsys("wx_key")
	dim wx_token:wx_token=eycms.getsys("wx_token")
	dim wx_follow:wx_follow=eycms.getint(eycms.getsys("wx_follow"),0)
	dim rewrite:rewrite=".asp"
	if webmode=2 then rewrite=".html"
	ismobile=eycms.get_ismobile
	if webismobi Then ismobile=true
	if webispc Then ismobile=false
	dim blacklist:blacklist="javascript|Document|onerror|onload|onmouseover"
	dim urlmode:urlmode=1
	dim tempencry:tempencry=true   '是否启用加密模板
	dim super_save_code:super_save_code="fdca0314ede83405"   '超级管理员安全码
	if instr(http_host,"mobi.") Then ismobile=true
	'主语言繁体 cachedate="61"
	'主语言英文 cachedate="62"
	'主语言日文 cachedate="63"
	'主语言韩文 cachedate="64"
	'主语言法文 cachedate="65"
	dim listrule,showrule
	if webmode=2 then 
		listrule=webroot&"weixin/list/"
		showrule=webroot&"weixin/show/"
	else
		listrule=webroot&"list.asp?cateid="
		showrule=webroot&"show.asp?id="
	end if
%>
