wm.sys_setup.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
Dim i,AdsShow,XML
Dim sitea,siteb,sitec,sited,sitee,siteg,siteh,sitei,sitej
Dim CodePlan,Code,QCode,QA,n,AllQA
Call DBConnBegin()
Select Case Request("Action")
  Case "FaithSave"
      If CheckAdminFlag("Faith") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
	  For i = 0 To 5
        If Request.Form("a" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整信用设置<meta http-equiv=refresh content='1;URL=?Action=Faith'>",0)
        Sitea = Sitea & "|" & Trim(Request.Form("a" & (i)))
      Next
      If Left(Sitea,1) = "|" Then Sitea = Right(Sitea, Len(Sitea) - 1)
	  WRMPS.DelCache "Setting"
	  Conn.Execute("Update WM_Config Set WM_Faith='"&Sitea&"'")
	  Call WRMPS.ErrView("·道具设置成功<meta http-equiv=refresh content='1;URL=?Action=Faith'>",1)

  Case "Faith"
   If CheckAdminFlag("Faith") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<form name='myform' method='post' Action='?Action=FaithSave'>" & vbCrLf
   Content = Content & "<tr class=td4><td><strong>项目</strong></td><td><strong>信用操作</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td width='35%'><strong>通过邮箱认证</strong></td><td width='65%'><input type=text name=a0 value='"&WR_Faith(0)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>通过实名认证</strong></td><td><input type=text name=a1 value='"&WR_Faith(1)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>企业营业执照认证</strong></td><td><input type=text name=a2 value='"&WR_Faith(2)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>信息被推荐</strong></td><td><input type=text name=a3 value='"&WR_Faith(3)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>信息被投诉</strong></td><td><input type=text name=a4 value='"&WR_Faith(4)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>人民币消费</strong><br>消费1元人民币，增加多少点信用<br>注意：只对1元的倍数进行操作</td><td><input type=text name=a5 value='"&WR_Faith(5)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=2 align=center><input type=submit name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=2>注意：扣除请在前面加“-”，如扣除1点信用请填写“-1”</td></tr>" & vbCrLf
   Content = Content & "</form>" & vbCrLf
   Content = Content & "</table>" & vbCrLf

  Case "PropSave"
      If CheckAdminFlag("Prop") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
	  For i = 0 To 43
        If Request.Form("a" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整道具设置<meta http-equiv=refresh content='1;URL=?Action=Prop'>",0)
        Sitea = Sitea & "|" & Trim(Request.Form("a" & (i)))
      Next
      If Left(Sitea,1) = "|" Then Sitea = Right(Sitea, Len(Sitea) - 1)
	  WRMPS.DelCache "Setting"
	  Conn.Execute("Update WM_Config Set WM_Prop='"&Sitea&"'")
	  Call WRMPS.ErrView("·道具设置成功<meta http-equiv=refresh content='1;URL=?Action=Prop'>",1)

  Case "Prop"
   If CheckAdminFlag("Prop") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
   Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
   Content = Content & "<form name='myform' method='post' Action='?Action=PropSave'>" & vbCrLf
   Content = Content & "<tr class=td4 align=center><td width='20%'><strong>项目</strong></td><td width='15%'><strong>所需积分</strong></td><td width='15%'><strong>所需"&WR_Other(0)&"</strong></td><td width='20%'><strong>项目</strong></td><td width='15%'><strong>所需积分</strong></td><td width='15%'><strong>所需"&WR_Other(0)&"</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=6><strong>商家道具</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动审核道具</strong></td><td><input name='a0' type='text' style='width:80' maxlength='10' value='"&WR_Prop(0)&"'></td><td><input name='a1' type='text' style='width:80' maxlength='10' value='"&WR_Prop(1)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>自动推荐道具</strong></td><td><input name='a2' type='text' style='width:80' maxlength='10' value='"&WR_Prop(2)&"'></td><td><input name='a3' type='text' style='width:80' maxlength='10' value='"&WR_Prop(3)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动总置顶道具</strong><br>购买单位：天</td><td><input name='a4' type='text' style='width:80' maxlength='10' value='"&WR_Prop(4)&"'></td><td><input name='a5' type='text' style='width:80' maxlength='10' value='"&WR_Prop(5)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>自动分类置顶道具</strong><br>购买单位：天</td><td><input name='a6' type='text' style='width:80' maxlength='10' value='"&WR_Prop(6)&"'></td><td><input name='a7' type='text' style='width:80' maxlength='10' value='"&WR_Prop(7)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>标题变色道具</strong><br>购买单位：天</td><td><input name='a8' type='text' style='width:80' maxlength='10' value='"&WR_Prop(8)&"'></td><td><input name='a9' type='text' style='width:80' maxlength='10' value='"&WR_Prop(9)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>标题背景色道具</strong><br>购买单位：天</td><td><input name='a10' type='text' style='width:80' maxlength='10' value='"&WR_Prop(10)&"'></td><td><input name='a11' type='text' style='width:80' maxlength='10' value='"&WR_Prop(11)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>标题加粗道具</strong><br>购买单位：天</td><td><input name='a12' type='text' style='width:80' maxlength='10' value='"&WR_Prop(12)&"'></td><td><input name='a13' type='text' style='width:80' maxlength='10' value='"&WR_Prop(13)&"'></td><td colspan=3></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=6><strong>信息道具</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动审核道具</strong></td><td><input name='a14' type='text' style='width:80' maxlength='10' value='"&WR_Prop(14)&"'></td><td><input name='a15' type='text' style='width:80' maxlength='10' value='"&WR_Prop(15)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>自动推荐道具</strong></td><td><input name='a16' type='text' style='width:80' maxlength='10' value='"&WR_Prop(16)&"'></td><td><input name='a17' type='text' style='width:80' maxlength='10' value='"&WR_Prop(17)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动总置顶道具</strong><br>购买单位：天</td><td><input name='a18' type='text' style='width:80' maxlength='10' value='"&WR_Prop(18)&"'></td><td><input name='a19' type='text' style='width:80' maxlength='10' value='"&WR_Prop(19)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>自动分类置顶道具</strong><br>购买单位：天</td><td><input name='a20' type='text' style='width:80' maxlength='10' value='"&WR_Prop(20)&"'></td><td><input name='a21' type='text' style='width:80' maxlength='10' value='"&WR_Prop(21)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>标题变色道具</strong><br>购买单位：天</td><td><input name='a22' type='text' style='width:80' maxlength='10' value='"&WR_Prop(22)&"'></td><td><input name='a23' type='text' style='width:80' maxlength='10' value='"&WR_Prop(23)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>标题背景色道具</strong><br>购买单位：天</td><td><input name='a24' type='text' style='width:80' maxlength='10' value='"&WR_Prop(24)&"'></td><td><input name='a25' type='text' style='width:80' maxlength='10' value='"&WR_Prop(25)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>标题加粗道具</strong><br>购买单位：天</td><td><input name='a26' type='text' style='width:80' maxlength='10' value='"&WR_Prop(26)&"'></td><td><input name='a27' type='text' style='width:80' maxlength='10' value='"&WR_Prop(27)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>全屏分类信息道具</strong></td><td><input name='a28' type='text' style='width:80' maxlength='10' value='"&WR_Prop(28)&"'></td><td><input name='a29' type='text' style='width:80' maxlength='10' value='"&WR_Prop(29)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=6><strong>优惠券道具</strong></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动审核道具</strong></td><td><input name='a30' type='text' style='width:80' maxlength='10' value='"&WR_Prop(30)&"'></td><td><input name='a31' type='text' style='width:80' maxlength='10' value='"&WR_Prop(31)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>自动推荐道具</strong></td><td><input name='a32' type='text' style='width:80' maxlength='10' value='"&WR_Prop(32)&"'></td><td><input name='a33' type='text' style='width:80' maxlength='10' value='"&WR_Prop(33)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动总置顶道具</strong><br>购买单位：天</td><td><input name='a34' type='text' style='width:80' maxlength='10' value='"&WR_Prop(34)&"'></td><td><input name='a35' type='text' style='width:80' maxlength='10' value='"&WR_Prop(35)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>自动分类置顶道具</strong><br>购买单位：天</td><td><input name='a36' type='text' style='width:80' maxlength='10' value='"&WR_Prop(36)&"'></td><td><input name='a37' type='text' style='width:80' maxlength='10' value='"&WR_Prop(37)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>标题变色道具</strong><br>购买单位：天</td><td><input name='a38' type='text' style='width:80' maxlength='10' value='"&WR_Prop(38)&"'></td><td><input name='a39' type='text' style='width:80' maxlength='10' value='"&WR_Prop(39)&"'></td>" & vbCrLf
   Content = Content & "<td><strong>标题背景色道具</strong><br>购买单位：天</td><td><input name='a40' type='text' style='width:80' maxlength='10' value='"&WR_Prop(40)&"'></td><td><input name='a41' type='text' style='width:80' maxlength='10' value='"&WR_Prop(41)&"'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>标题加粗道具</strong><br>购买单位：天</td><td><input name='a42' type='text' style='width:80' maxlength='10' value='"&WR_Prop(42)&"'></td><td><input name='a43' type='text' style='width:80' maxlength='10' value='"&WR_Prop(43)&"'></td><td colspan=3></td></tr>" & vbCrLf
   Content = Content & "<tr class=td4><td colspan=6 align=center><input type=submit name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
   Content = Content & "<tr class=td3><td colspan=6>注意：扣除请在前面加“-”，如扣除1积分请填写“-1”</td></tr>" & vbCrLf
   Content = Content & "</form>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   
  Case "Save"
      If CheckAdminFlag("") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
	  For i = 0 To 4
        If Request.Form("a" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整系统基本设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        sitei = sitei & "§§§" & Request.Form("a" & (i))
      Next
	  For i = 5 To 18
        If Request.Form("a" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整系统基本设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)