<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * from Bs_SysData where code='5062942'"
rs.Open sql,conn,3,3
%>
<%
SiteName=rs("BsCompanyName")       '网站名称
EnSiteName=rs("BsEnCompanyName")        '网站名称
SiteTitle=rs("BsCompanyName")        '网站标题
EnSiteTitle=rs("BsEnCompanyName")        '网站标题
Const SiteUrl="http://www.asp99.cn"        '网站地址
BsWebMail=rs("BsWebMail")         '企业邮局
Const LogoUrl="images/logo.gif"        'Logo地址
Const BannerUrl="Images/banner.swf"        'Banner地址
Const EnBannerUrl="Images/banner.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"        '域名
rs.close
%>
