wm.sys_setup.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

   Content = Content & "<tr ID=show5 Style='display:none'><td>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>商家店铺设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>是否开放店铺注册</strong></td><td width='65%'><input type=radio name=g0 value=1"&WRMPS.GetCheckVer(Int(WR_Company(0)),1,1)&"> 开放　　<input type=radio name=g0 value=0"&WRMPS.GetCheckVer(Int(WR_Company(0)),0,1)&"> 关闭<input type=hidden value=0 name=g4><input type=hidden value=co name=g5><input type=hidden value=0 name=g6><input type=hidden value=0 name=g7></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺登记欢迎邮件</strong><br>确认您的站点支持发送mail</td><td><input type=radio name=g3 value=1"&WRMPS.GetCheckVer(Int(WR_Company(3)),1,1)&"> 开启　　<input type=radio name=g3 value=0"&WRMPS.GetCheckVer(Int(WR_Company(3)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺点评提示邮件</strong><br>确认您的站点支持发送mail<br>开启则在店铺被点评后系统自动发送一封提醒邮件给信息发布人</td><td><input type=radio name=g1 value=1"&WRMPS.GetCheckVer(Int(WR_Company(1)),1,1)&"> 开启　　<input type=radio name=g1 value=0"&WRMPS.GetCheckVer(Int(WR_Company(1)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺留言提示邮件</strong><br>确认您的站点支持发送mail<br>开启则在店铺被留言后系统自动发送一封提醒邮件给信息发布人</td><td><input type=radio name=g2 value=1"&WRMPS.GetCheckVer(Int(WR_Company(2)),1,1)&"> 开启　　<input type=radio name=g2 value=0"&WRMPS.GetCheckVer(Int(WR_Company(2)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show6 Style='display:none'><td>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>分类信息</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>游客信息是否启用密码删除功能</strong><br>开启则在游客发布信息时需要输入管理密码，在信息过期后可以用此密码对此信息进行删除操作</td><td width='65%'><input type=radio name=e1 value=1"&WRMPS.GetCheckVer(Int(WR_ClassAD(1)),1,1)&"> 开启　　<input type=radio name=e1 value=0"&WRMPS.GetCheckVer(Int(WR_ClassAD(1)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>信息回复提示邮件</strong><br>确认您的站点支持发送mail<br>开启则在分类信息被回复后系统自动发送一封提醒邮件给信息发布人</td><td><input type=radio name=e0 value=1"&WRMPS.GetCheckVer(Int(WR_ClassAD(0)),1,1)&"> 开启　　<input type=radio name=e0 value=0"&WRMPS.GetCheckVer(Int(WR_ClassAD(0)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>定时审核设置</strong><br>此功能可以设置哪些时间内发的信息必须经过审核才可以发布，可以防止用户在管理员不在时发布垃圾信息。</td><td>"
   n=0
   For i = 0 To 23
     n=n+1
     Content = Content & "<input type=checkbox name=e2 value="&i&""&WRMPS.GetCheckVer(WR_ClassAD(2),i,2)&"> "&i&"点"
	 If n mod 6 = 0 Then Content = Content & "<br>" Else Content = Content & "　"
   Next
   Content = Content & "</td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>IP限制</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>限制类型</strong><br>限制为黑名单则阻止下面设置的IP发布信息，反之则只允许下面设定的IP发信息</td><td><input type=radio name=e3 value=1"&WRMPS.GetCheckVer(Int(WR_ClassAD(3)),1,1)&"> 黑名单　　<input type=radio name=e3 value=0"&WRMPS.GetCheckVer(Int(WR_ClassAD(3)),0,1)&"> 白名单</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>IP设置</strong><br>您可以添加多个限制IP，每个IP用回车分隔，限制IP的书写方式如202.152.12.1就限制了202.152.12.1这个IP的访问，如202.152.12.*就限制了以202.152.12开头的IP访问，同理*.*.*.*则限制了所有IP的访问。</td><td><textarea name=e4 cols=70 rows=10>"&WR_ClassAD(4)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>非法信息过滤器</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>过滤器设置</strong><br>请按右边彩色框中的说明设置过滤条件，过滤条件用回车分隔。<br>过滤器将按从高到底的排序运行。</td><td>" & vbCrLf
   Content = Content & "<div class=ColorBorder><select name=a><option value='标题'>标题</option><option value='内容'>内容</option><option value='电话'>电话</option><option value='邮箱'>邮箱</option><option value='QQ'>QQ</option></select> <select name=b><option value='包含'>包含</option><option value='等于'>等于</option></select> <input type=text name=c value='' size=20> <input type='button' name='button' value='设置一条过滤' onclick='sift()'></div>"
   Content = Content & "<textarea name=e5 cols=70 rows=10>"&WR_ClassAD(5)&"</textarea></td></tr>" & vbCrLf


   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show7 Style='display:none'><td>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>防垃圾设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>验证码设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>会员注册</strong></td><td width='65%'><input type=checkbox name=Code value=Reg"&WRMPS.GetCheckVer(WR_Code(0),"Reg",2)&">启用验证码　<input type=checkbox name=QCode value=Reg"&WRMPS.GetCheckVer(WR_Code(1),"Reg",2)&">启用验证问答</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>会员登录</strong></td><td><input type=checkbox name=Code value=Login"&WRMPS.GetCheckVer(WR_Code(0),"Login",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>登录密码输入错误超过 3 次</strong></td><td><input type=checkbox name=Code value=LoginErr"&WRMPS.GetCheckVer(WR_Code(0),"LoginErr",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>会员找回密码</strong></td><td><input type=checkbox name=Code value=GetPass"&WRMPS.GetCheckVer(WR_Code(0),"GetPass",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>免费发布分类信息</strong></td><td><input type=checkbox name=Code value=Class"&WRMPS.GetCheckVer(WR_Code(0),"Class",2)&">启用验证码　<input type=checkbox name=QCode value=Class"&WRMPS.GetCheckVer(WR_Code(1),"Class",2)&">启用验证问答</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>会员发布分类信息</strong></td><td><input type=checkbox name=Code value=UserClass"&WRMPS.GetCheckVer(WR_Code(0),"UserClass",2)&">启用验证码　<input type=checkbox name=QCode value=UserClass"&WRMPS.GetCheckVer(WR_Code(1),"UserClass",2)&">启用验证问答</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>登记/修改店铺</strong></td><td><input type=checkbox name=Code value=Company"&WRMPS.GetCheckVer(WR_Code(0),"Company",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>登记优惠券</strong></td><td><input type=checkbox name=Code value=Coupon"&WRMPS.GetCheckVer(WR_Code(0),"Coupon",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>信息/文章/店铺等点评和回复</strong></td><td><input type=checkbox name=Code value=Re"&WRMPS.GetCheckVer(WR_Code(0),"Re",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>发表留言</strong></td><td><input type=checkbox name=Code value=GuestBook"&WRMPS.GetCheckVer(WR_Code(0),"GuestBook",2)&">启用验证码</td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>验证码方案设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>启用哪一种验证码模式</strong></td><td><input type=radio name=CodePlan value=CodeNum"&WRMPS.GetCheckVer(WR_Code(2),"CodeNum",1)&"> 数字　　<input type=radio name=CodePlan value=CodeCn"&WRMPS.GetCheckVer(WR_Code(2),"CodeCn",1)&"> 中文</td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2><strong>验证问题及答案设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td colspan=2>" & vbCrLf
   Content = Content & "<table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
   Content = Content & "<tr><td width='5%' align=center>删除？</td><td width='30%'>问题</td><td width='65%'>答案</td></tr>" & vbCrLf
   n=0
   If WR_Code(3) <> "" Then
     QA = Split(WR_Code(3),vbCrLf)
     For i=0 To UBound(QA)
	   If QA(i) <> "" and Instr(QA(i),"|") > 0 Then
	     n = n + 1
         Content = Content & "<tr><td align=center><input type=checkbox name=D_"&i&" value=1></td><td><input name='Q_"&i&"' type='text' style='width:300' maxlength='50' value="""&split(QA(i),"|")(0)&"""></td><td><input name='A_"&i&"' type='text' style='width:200' maxlength='50' value="""&split(QA(i),"|")(1)&"""></td></tr>" & vbCrLf
	   End If
	 Next
   End If
   Content = Content & "<tr><td align=center><input type=checkbox name=D_"&n+1&" value=1></td><td><input name='Q_"&n+1&"' type='text' style='width:300' maxlength='50'></td><td><input name='A_"&n+1&"' type='text' style='width:200' maxlength='50'></td></tr>" & vbCrLf
   Content = Content & "<tr><td align=center><input type=checkbox name=D_"&n+2&" value=1></td><td><input name='Q_"&n+2&"' type='text' style='width:300' maxlength='50'></td><td><input name='A_"&n+2&"' type='text' style='width:200' maxlength='50'></td></tr>" & vbCrLf
   Content = Content & "<tr><td align=center><input type=hidden name=AllQA value="&n+3&"><input type=checkbox name=D_"&n+3&" value=1></td><td><input name='Q_"&n+3&"' type='text' style='width:300' maxlength='50'></td><td><input name='A_"&n+3&"' type='text' style='width:200' maxlength='50'></td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show8 Style='display:none'><td>" & vbCrLf
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2><strong>其它信息设置</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>系统点券名称</strong></td><td width='65%'><input type=text name=c0 value="&WR_Other(0)&"></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>汇率</strong><br>1元人民币=？点<br>如填写10则1元钱可以兑换10点券</td><td><input type=text name=c1 value="&WR_Other(1)&"></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>积分兑换点券</strong><br>开启则用户积分可按比列兑换一定的点券在本站进行销费</td><td><input type=radio name=c7 value=1"&WRMPS.GetCheckVer(Int(WR_Other(7)),1,1)&"> 开启　　<input type=radio name=c7 value=0"&WRMPS.GetCheckVer(Int(WR_Other(7)),0,1)&"> 关闭</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>汇率</strong><br>1积分=？点<br>如填写0.1则1个积分可以兑换0.1点券</td><td><input type=text name=c8 value="&WR_Other(8)&"></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>在线支付</strong><br>此功能适用于在线支付，如果您还没有注册，可以选择支付平台注册</td><td><input type=radio name=c2 value=1"&WRMPS.GetCheckVer(Int(WR_Other(2)),1,1)&"> 支持　　<input type=radio name=c2 value=0"&WRMPS.GetCheckVer(Int(WR_Other(2)),0,1)&"> 不支持</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>支付平台</strong></td><td><select name='c3'><option value=1" & WRMPS.GetCheckVer(WR_Other(3),1,0) & ">网银在线支付平台</option></select></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>商户编号</strong><br>请填入您在上述在线支付平台申请的商户编号</td><td><input name='c4' type='text' value='" & WR_Other(4) & "' style='width:200' maxlength='100'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>MD5私钥</strong><br>请填入您在上述在线支付平台中设置的MD5私钥<br>部分在线支付平台不需要此项</td><td><input name='c5' type='text' value='" &