<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'--------------------------------------
'Power By 580Web @2010-2014 f02
'URL:http://www.580Web.Cn/
'EMail:wsok85@qq.com
'QQ:253819801
'版权所有 未经允许不得去除本版权信息
'--------------------------------------

Option Explicit
Session.CodePage=65001
Response.ContentType = "text/html"
Response.Charset = "utf-8"
Response.Buffer =True
Response.ExpiresAbsolute =Now() - 1
Response.Expires=0
Response.CacheControl="no-cache"
Session.Timeout=999
%>
<!--#Include File="../Class/Cls_DB.asp"-->
<!--#Include File="../Class/Cls_Fun.asp"-->
<%

'定义页面常量
Dim Id,i,j,Types,Temp,TempArr
Dim IsLogin,LoginScript,AllowExt,DisTemplate
Dim Conn,Rs,Sqlstr
Dim PageNow,PageRecordCount,PageSizes,PageCounts
Dim FKDB,FKFun,FKTemplate
Dim SiteDir,SiteDBDir,SiteData
Dim SystemName,SystemVersion
Dim SearchStr
Dim MenuId,MenuName,MenuDir,MenuTemplate
Dim ModuleId,ModuleName,ModuleUrl,ModuleType,ModuleLevelList,ModuleIndex,ModuleFixedUrl,ModuleGBookReply
Dim ModelId,ModelName,ModelDefault,ModelField
Dim FullSiteDir,FullSiteUrl,FullHtmlSuffix
Dim Fk_Site_Name,Fk_Site_Url,Fk_Site_Keyword,Fk_Site_Description,Fk_Site_Open,Fk_Site_CloseStr,Fk_Site_Template,Fk_Site_PageSize
Dim Fk_Site_Html,Fk_Site_IndexInUrl,Fk_Site_HtmlSuffix
Dim Fk_Site_LinkExt,Fk_Site_PicExt,Fk_Site_FlashExt,Fk_Site_MediaExt,Fk_Site_UploadSize
Dim Fk_Site_TemplateDebug,Fk_Site_Debug,Fk_Site_Editor
Dim Fk_Site_WaterMark,Fk_Site_WaterMarkOption,Fk_Site_Thumb,Fk_Site_ThumbOption
Dim Fk_Site_EMail,Fk_Site_EMailOption
Dim Fk_Site_Field
Dim Fk_Site_HideLink,Fk_Site_HideLink_Str
AllowExt=",ace,aif,arj,asf,avi,bmp,cab,cam,cad,cda,cdx,doc,docx,fla,flv,f4v,gdm,gif,ico,jpg,jpeg,mpeg,mid,mov,mp2,mp3,mp4,mpa,mpe,pdf,psd,ppt,png,rm,rmvb,swf,rar,txt,tif,wav,xls,zip,7z,"
DisTemplate=",index,view,viewlist,info,gbook,search,module,subject,top,bottom,"

Set FKDB=New Cls_DB
Set FKFun=New Cls_Fun
PageSizes=15
%>
<!--#Include File="System.asp"-->
<!--#Include File="Conn.asp"-->
<!--#Include File="Site.asp"-->