📄 config.asp
字号:
<%
dim connq,dbq
dim connstrq
dbq="../Databases/asp99cms.mdb" '数据库文件位置
on error resume next
connstrq="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set connq=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
connq.open connstrq
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sqlq="Select * from Bs_SysData where code='5062942'"
rs.Open sqlq,connq,1,1
%>
<%
SiteName=rs("BsCompanyName") '网站名称
EnSiteName=rs("BsEnCompanyName") '网站名称
SiteTitle=rs("BsCompanyName") '网站标题
EnSiteTitle=rs("BsEnCompanyName") '网站标题
SiteUrl=rs("Bsweb") '网站地址
BsWebMail=rs("BsWebMail") '企业邮局
LogoUrl=rs("lomage") 'Logo地址
Const BannerUrl="Images/850.swf" 'Banner地址
Const EnBannerUrl="Images/850.swf" 'EnBanner地址
Const IsFlash="Yes" '是否为FLASH
Const High=200 '高度
Const WebmasterName="陈伟" '站长姓名
BsWebMail=rs("BsWebMail") '站长信箱
Const Copyright="版权所有 2003-2006 良精科技" '版权信息
Const EnCopyright="Copyright 2003-2006 www.asp99.cn" '版权信息
Const MaxPerPage_Default=10 '首页每页产品或文章数
Const New_count=5 '首面新闻资讯条数
Const Product_count=8 '首面产品列表数
Const MaxPerPage_Search=10 '文章搜索页每页文章数
Const MaxPerPage_Content=200000 '每页显示大约字符数
Const NewsComment="Yes" '是否启用新闻评论功能
Const EnableProductCheck="Yes" '是否启用文章审核功能
Const EnableUploadFile="Yes" '是否开放文件上传
Const PopAnnounce="Yes" '是否弹出公告窗口
Const HitsOfHot=500 '热门文章点击数
Const MaxFileSize=200 '上传文件大小限制
Const SaveUpFilesPath="UploadFiles" '存放上传文件的目录
Const UpFileType="gif|jpg|bmp|png|swf|doc|rar" '允许的上传文件类型
Const DelUpFiles="Yes" '删除文章时是否同时删除文章中的上传文件
Const SessionTimeout=30 'Session会话的保持时间
Const MailObject="Jmail" '邮件发送组件
Const MailServer="smtp.163.com" '用来发送邮件的SMTP服务器
Const MailServerUserName="southidc" '登录用户名
Const MailServerPassWord="3837312" '登录密码
Const MailDomain="163.com" '域名
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -