<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
Session.CodePage=65001
Response.Charset="UTF-8"  
response.buffer= True
%>
<!--#Include File="../inc/cls_main.asp"-->
<%

Const db				= "/data/#sooncn.asp"				'数据库路径, 为安全请修改数据库名称或路径,并修改下面的实际路径.例如:将数据库sjweb.mdb改名为soonhost.asp,可以是绝对路径或物理路径(例如:/soonbiz/data/soonbiz_main.mdb或F:/IIS/soonbiz/data/soonbiz_main.mdb 请不要使用相对路径)
Const templatemdb		= "/data/#soonbiz_template.mdb"		'外部模板数据库路径,导出和导入模板用
Const webdir			= "/"								'程序安装路径,/表示直接安装在根目录下,如果安装在其它目录,比如web目录下,请使用/web/
Const admindir			= "admin/"							'管理文件所在目录名称,修改这个名称可以让外人无法知道管理文件位置,也就没有攻击后台文件.
Const DelLoginListPass	= "admin"							'删除登录和操作记录的密码.
Const operatesql		= 1									'是否开放在后台直接执行SQL,1=开放,0=关闭,开放SQL权限可能对数据库做任何操作.
Const sheethead			= "wedonet"							'数据表名前缀,操作方法: 1. 在管理中心D区的数据库管理中执行批量修改数据库表名 2. 把新表名前缀写到这里







Dim streamname,FsoObjName
streamname				= "ADO"&"DB.S"&"tream"				'Adodb stream组件称
FsoObjName				= "Scri"&"pting.F"&"ileSystemObject"'FSO组件的名称,有的服务器为安全起见修改了fso组件名称,可以在这里设为与服务器一致

'数据库设置,个人版请使用Access数据库,企业版可以使用SQL数据库
Const IsSqlDataBase=0				'0=Access数据库,1=SQL数据库,个人版请使用Access数据库,企业版可以使用SQL数据库
'如果使用SQL数据库,请修改下面的信息
If IsSqlDataBase = 1 Then			'SQL数据库
	Const SqlLocalName = "(local)"			'IP  [ 本地用 (local) 外地用IP ]
	Const SqlUserName = "aa"				'用户名
	Const SqlPassword = "aa"				'用户密码
	Const SqlDatabaseName = "wedonetchs"	'数据库名
	SoonBizcom = "GetDate()"
Else
	SoonBizcom="now()"
End If





'网站参数设置区,如果服务器支持文本写入可以在管理中心设置
'下行中的$$$$$$请不要动










































'$$$$$$
Const iswork=1 '网站状态()
Const stopreadme="网站维护中,一小时后开放" '网站维护时的说明()
Const webname="wedonet-我们建站" '网站名称()
Const weburl="http://www.wedonet.com" '网址()
Const checkcomefrom=0 '是否检测信息来源(防止机器人提交)
Const savelogadmin=0 '保存管理员操作记录()
Const saveloguser=0 '保存客户操作记录()
Const savelog=0 '保存登录记录()
Const maxperpage=20 '后台每页显示记录数()
Const refreshtime=0 '防刷新间隔时间(单位:秒.0为不限制刷新)
Const readmelength=300 '提取简介字符数(没填写简介时,自动从内容中提取前多少个字符做为简介)
Const membervalidity=0 '注册后有效期(天)(0表示不限制有效期)
Const limitword="党,他妈的" '限制注册的名称(用逗号分隔)
Const loginerr=5 '每天允许连续登录错误数(超过被认为做弊,登录正确后,错误数重新计算)
Const searchpasserr=5 '每天允许查找密码错误数(超过被认为做弊,查找密码正确后,错误数重新计算)
Const reposttime=1 '提交内容间隔时间(秒)(防止重复和恶意提交)
Const badwords="" '脏话过滤(用逗号分隔)
Const sendconfirmmail=0 '注册和查找密码发送确认信()
Const checkuser=0 '新加入的会员是否需要审核()
Const checkusermail=0 '注册会员是否需要邮件确认(新会员通过邮箱中的激活链接正式注册,防止用不存在的邮箱注册)
Const sendformmail=0 '是否向用户发送提交表单确认信()
Const sendformmailtoadmin=0 '是否向管理员发送表单提交通知邮件()
Const SendObject=1 '发送邮件组件()
Const FromName="WeDoNet" '发信人名称()
Const web_JMailFrom="test@wedonet.com" '发信用邮箱地址()
Const web_JMailMailServerUserName="test@wedonet.com" '发信smtp用户名()
Const web_JMailMailServerPassword="123456" '发信smtp密码()
Const web_JmailSmtp="smtp.wedonet.com" '发信smtp的IP地址()
Const saveoutimg=0 '是否自动保存远程图片()
Const messagepoint=5 '发贴增加积分量()
Const remessagepoint=1 '回贴增加积分量()
Const delmessagepoint=-10 '前台删除贴子扣除积分(后台清理贴子时,删除不扣积分)
Const delremessagepoint=-5 '前台删除回贴扣除积分()
Const adedit=1 '版主是否可以编辑其它人的贴子()
Const messagestates="[原创],[转帖],[灌水],[讨论],[求助],[推荐],[公告],[贴图],[建议],[下载]" '发贴话题()
Const messagetitlepoint="100,200,400,800,2000,5000" '积分等级(每升一级加一星)
Const newpost=12 '几小时以内的贴子视为新贴,加新贴标识()
Const hothist=30 '点击在多少以上的贴子做为热贴()
Const votetime=600 '投票间隔时间(秒)(在此时间内不允许重复投票)
Const blogpage=20 '用户博客每页显示记录量()
Const messagepostnum=200 '每天最大发贴量()
Const messagerepostnum=400 '社区每天最大回贴量()
Const canreg=1 '是否开放注册新会员()
Const softaccredit="免费版,共享版,试用版,演示版,注册版,破解版,零售版,OEM版,企业版,专业版" '授权形式()
Const softos="Win9x,WinMe,NT,Win2000,WinXP,Win2003,Linux" '运行平台()
Const usercache=1 '是否开启页面缓存功能(开启时可以自动在服务器缓存访问过的页面,提高执行速度,占用服务器硬盘空间.建议开启)
Const autoimg=0 '是否自动调整图片尺寸以适应网页大小(由于W3C不支持图片的onload事件,默认为关闭状态)
Const maximgsize=600 '最大图片尺寸(px)(图片大于这个尺寸时会自动缩小(打开自动调整图片尺寸功能后才能生效))

'$$$$$$




































































'网站管理参数设置结束



'下面的内容请不要修改
Dim soonbiz,Template
Dim SoonBizCom
Dim xmldom,xn
Dim ErrMsg
Dim SucMsg
Dim htmlstr,navstate
Dim id,cid,classid,topicid,classname,topicname,act,u
Dim conn
Dim jinlan
Dim FromCache  '<syl>是否成功从缓存调用<by syl>
Dim xmlchannel,xmlclass,uid,cachefilename
Dim pn '<syl>pagename<by syl>

Dim CacheName
CacheName=replace(webdir,"/","wedonet")
CacheName=replace(webdir,"\","wedonet")

'建立迅捷组件实例
Set soonbiz		= New cls_soonfuncs
Set Template	= New cls_template

cid=0 : classid=0 : topicid=0 :id=0 '<syl>初始化<by syl>
pn=SoonBiz.pn


'======================================================================================================
const MsxmlVersion		= ".3.0"							'xml版本,不需要调整
Const IsDeBug			= 1									'0=调试模式,1=运行状态
Const guestinfo			= "0|||||||||||||||y|||4|||0|||Guest|||2006-2-4 0:00:00|||2006-02-4 0:00:00"
Const formtype			= "文本框|文本区域|单选框|复选框|列表框|密码框|Email地址|上传附件框|可视编辑框|认证码"
Const formvaluetype		= "数字|文本|日期"

'在线销售参数款项操作
Const operatetype		= "入款|扣款|消费"		'款项操作种类,用户执行的操作种类是按操作顺序号记录的,所以网站运行后请不要轻易修改
Const showstate			= 0						'模板中是否显示注释0=不显示,1=显示
Const autopath			= 2 '上传文件是否自动分类()
Const ordertype			= "新定单|等待客服确认|已确认的定单|支付成功,正在配货|已经发货"

Const isshow			= True '是否显示页面运行时间
Const defaultsearchchannel = 3 '默认搜索频道号,没选择频道时,在这个频道中搜索
SoonBiz.GetSetup



'<syl>===================================以下是函数<by syl>

Public Sub ShowErr(strs) '<syl>If 有错误则提示<by syl>
	if len(strs) > 0 then
		If IsNumeric (strs) Then
			SoonBiz.ErrorMess(strs)
		Else
			SoonBiz.ErrorMess("<li>"&strs&"</li>")
		End if
	end if
	If Len(ErrMsg) > 0 Then
		SoonBiz.ErrorMess(ErrMsg)
		Exit Sub
	End If
End Sub

Sub SetAllNothing()	'<syl>释放资源,同时有生成工具栏的功能<by syl>
	'Response.Write ps	
	If IsObject(soonbiz)	Then Set soonbiz=Nothing
	If IsObject(template)	Then Set template=Nothing
	If IsObject(xmlchannel) Then Set xmlchannel=Nothing  '<syl>频道信息<by syl>
	If IsObject(xmlclass) Then Set xmlclass=Nothing  	
end Sub



%>