Config.asp
上传用户:jiajie98
上传日期:2020-04-24
资源大小:1206k
文件大小:1k
- <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
- <%
- Option Explicit
- Session.CodePage=65001
- Response.ContentType = "text/html"
- Response.Charset = "utf-8"
- Response.Expires=-999
- Session.Timeout=999
- Dim StartTime,EndTime
- StartTime=Timer()
- '==========================================
- '文 件 名:Config.asp
- '文件用途:系统配置
- '版权所有:方卡在线
- '==========================================
- %>
- <!--#Include File="../Class/Cls_DB.asp"-->
- <!--#Include File="../Class/Cls_Fso.asp"-->
- <!--#Include File="../Class/Cls_Fun.asp"-->
- <%
- '定义页面常量
- Dim Id,i,j,PageErr,Types,Temp,TempArr,Login,Fso,F,objAdoStream,SearchStr,SearchType
- Dim Conn,Rs,Sqlstr
- Dim PageNow,PageCounts,PageSizes,PageAll
- Dim SiteName,SiteUrl,SiteKeyword,SiteDescription,SiteOpen,SiteTemplate,SiteHtml,SiteData,SiteDir,SiteToPinyin,FetionNum,FetionPass
- Dim FKDB,FKFun,FKFso
- Dim FKModuleId,FKModuleName
- '置默认值
- Set FKDB=New Cls_DB
- Set FKFun=New Cls_Fun
- Set FKFso=New Cls_Fso
- Login=False
- FKModuleId=Split("0,1,2,7,3,4,5,6",",")
- FKModuleName=Split("静态模块,文章模块,产品模块,下载模块,信息模块,留言模块,转向链接,招聘模块",",")
- %>
- <!--#Include File="Site.asp"-->
- <!--#Include File="Conn.asp"-->
- <!--#Include File="System.asp"-->