wm.sys_setup.asp

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

	        WRMPS.FsoDel "Dir","../" & Request.Form("h0_0")
            If Err Then
              Call WRMPS.ErrView("·删除源上传存放目录出错<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>", 0)
            End If
      End If
      Call WRMPS.FsoEnd()
	  
      'Save
	  WRMPS.DelCache "Setting"
	  Conn.Execute("Update WM_Config Set WM_Config='"&sitei&"',WM_Setting='"&sitea&"',WM_MailServer='"&siteb&"',WM_Other='"&sitec&"',WM_SiteUpLoad='"&siteh&"',WM_User='"&sited&"',WM_Company='"&siteg&"',WM_ClassAD='"&sitee&"',WM_Code='"&sitej&"'")
      WRMPS.DelCache "Temp"
	  Call WRMPS.ErrView("·网站基本信息设置成功<br>·如果需要，请刷新相关静态文件<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",1)
  
  Case Else
   If CheckAdminFlag("") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
   Content = Content & "<table width='100%' cellpadding=0 cellspacing=0>" & vbCrLf
   Content = Content & "<form name='myform' method='post' Action='?Action=Save'>" & vbCrLf
   Content = Content & "<tr><td class=td2 height=5></td></tr>" & vbCrLf
   Content = Content & "<tr><td class=td2>" & vbCrLf
   Content = Content & "<TABLE border=0 cellspacing=0 cellpadding=0><TR>" & vbCrLf
   Content = Content & "<TD width=5 height=22></TD><TD width=72 background='Img/Label.gif' id=tit1 onClick=""dis(tit1,show1,8,'Label')"" Class=Label1>基本设置</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit2 onClick=""dis(tit2,show2,8,'Label')"" Class=Label>上传设置</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit3 onClick=""dis(tit3,show3,8,'Label')"" Class=Label>邮件短信</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit4 onClick=""dis(tit4,show4,8,'Label')"" Class=Label>会员注册</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit5 onClick=""dis(tit5,show5,8,'Label')"" Class=Label>商家店铺</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit6 onClick=""dis(tit6,show6,8,'Label')"" Class=Label>分类信息</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit7 onClick=""dis(tit7,show7,8,'Label')"" Class=Label>防垃圾</TD>" & vbCrLf
   Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit8 onClick=""dis(tit8,show8,8,'Label')"" Class=Label>其它信息</TD>" & vbCrLf
   Content = Content & "<TD width=*></TD></TR></TABLE>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show1><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>支持 {$MyCity} 标签， 以区分不同城市，方便收录</td><td width='65%'><input type=text name=a0 value='"&WR_Setting(0)&"' size=20></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>风格主题</strong></td><td>"
   Content = Content & "<select name='a5'>"
   Set Rs = Conn.Execute( "select WM_SkinFolder,WM_SkinName from WM_Skin")
   If Not Rs.EOF Then
     Do While Not Rs.EOF
       Content = Content & "<option value='" & Rs(0) & "'" & WRMPS.GetCheckVer(WR_Setting(5),Rs(0),0) & ">" & Rs(1) & "</option>" & vbCrLf
     Rs.MoveNext
     Loop
   Else
       Content = Content & "<option value=''>暂无任何主题包</option>" & vbCrLf
   End If
   Rs.Close
   Set Rs = Nothing
   Content = Content & "</select>"
   Content = Content & "</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>总站首页模板</strong></td><td>"&TempSelect(Int(WR_Setting(18)),1,0,"a18")&"</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>网站标题</strong><br>支持 {$MyCity} 标签， 以区分不同城市，方便收录</td><td><input type=text name=a2 value='"&WR_Setting(2)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>系统安装路径</strong><br>目录开头结尾都必须加上“/”<br>如网站访问URL为 http://www.xxx.com/wrmps/<br>则请填写 “/wrmps/”<br>如果安装在根目录请填写“/”</td><td><input type=text name=a3 value='"&WR_Setting(3)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>网站地址</strong><br>开头要带“http://www”，结尾要带“/”<br>如网站访问URL为 http://www.xxx.com/wrmps/<br>则请填写 http://www.xxx.com/wrmps/</td><td><input type=text name=a4 value='"&WR_Setting(4)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>Cookies域名后缀</strong><br>“xxx.com”形式,不要带“www.”及“http://”<br><span class=Font2>设置错误影响到用户登录(分站启用二级域名时)及店铺二级域名功能</span></td><td><input type=text name=a1 value='"&WR_Setting(1)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>网站关键字</strong><br>用“,”隔开，支持 {$MyCity} 标签， 以区分不同城市，方便收录</td><td><input type=text name=a6 value='"&WR_Setting(6)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>网站说明</strong><br>支持 {$MyCity} 标签， 以区分不同城市，方便收录</td><td><input type=text name=a7 value='"&WR_Setting(7)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>网站LOGO地址</strong><br>请填写相对路径</td><td><input type=text name=a8 value='"&WR_Setting(8)&"' size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>字符过滤</strong><br>格式：<strong>字符=**</strong><br>每个字符用回车分割开</td><td><textarea name=a11 cols=50 rows=5>"&WR_Setting(11)&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>版权信息</strong></td><td><textarea name=a12 cols=50 rows=5>"&Server.HTMLEncode(WR_Setting(12))&"</textarea></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>友情链接申请是否直接通过</strong></td><td><input type=radio name=a13 value=1"&WRMPS.GetCheckVer(Int(WR_Setting(13)),1,1)&"> 是　　<input type=radio name=a13 value=0"&WRMPS.GetCheckVer(Int(WR_Setting(13)),0,1)&"> 否</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>Fso组件名称</strong><br>方便空间商为了安全而修改Fso组件名称时用</td><td><input type=text name=a14 value="&WR_Setting(14)&" size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>网站首页的扩展名</strong><br>若选择前四项，即启用了网站首页的生成HTML功能</td><td><input type=radio name=a15 value='html' Class=radio" & WRMPS.GetCheckVer("html", WR_Setting(15), 1) & "> html　　" & vbCrLf
   Content = Content & "<input type=radio name=a15 value='htm' Class=radio" & WRMPS.GetCheckVer("htm", WR_Setting(15), 1) & "> htm　　" & vbCrLf
   Content = Content & "<input type=radio name=a15 value='shtml' Class=radio" & WRMPS.GetCheckVer("shtml", WR_Setting(15), 1) & "> shtml　　" & vbCrLf
   Content = Content & "<input type=radio name=a15 value='shtm' Class=radio" & WRMPS.GetCheckVer("shtm", WR_Setting(15), 1) & "> shtm　　" & vbCrLf
   Content = Content & "<input type=radio name=a15 value='asp' Class=radio" & WRMPS.GetCheckVer("asp", WR_Setting(15), 1) & "> asp"
   If WR_Other(9) <> "" and IsNull(WR_Other(9))=False Then Content = Content & "　　<input type=radio name=a15 value='"&WR_Other(9)&"' Class=radio" & WRMPS.GetCheckVer(WR_Other(9), WR_Setting(15), 1) & "> "&WR_Other(9)
   Content = Content & "</td></tr>" & vbCrLf
   Content = Content & "" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>是否全站伪静态发布</strong><br>如启用了伪静态，请关闭除网站首页以外的静态生成功能<br><span class=Font2>此功能需要在服务器上安装伪静态组件</font></td><td><input type=hidden name=a10 value=0><input type=radio name=a9 value=1"&WRMPS.GetCheckVer(Int(WR_Setting(9)),1,1)&"> 启用　　<input type=radio name=a9 value=0"&WRMPS.GetCheckVer(Int(WR_Setting(9)),0,1)&"> 不启用</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>位置导航标识</strong><br>支持HTML</td><td><input type=text name=a16 value="""&WR_Setting(16)&""" size=40></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>导航间隔字符</strong><br>支持HTML</td><td><input type=text name=a17 value="""&WR_Setting(17)&""" size=40></td></tr>" & vbCrLf
   Content = Content & "</table>" & vbCrLf
   Content = Content & "</td></tr>" & vbCrLf

   Content = Content & "<tr ID=show2 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><br>管理员可不定期修改此目录以便防止盗链<br>不要带 “/”或“\”</td><td width='65%'><input name=h0_0 type=hidden value='" & WR_UpLoad(0) & "'><input name='h0' type='text' value='" & WR_UpLoad(0) & "' style='width:100' maxlength='20'></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>自动目录</strong></td><td><select name='h1'><option value='0'" & WRMPS.GetCheckVer("0", WR_UpLoad(1), 0) & ">不使用</option><option value='1'" & WRMPS.GetCheckVer("1", WR_UpLoad(1), 0) & ">年/</option><option value='2'" & WRMPS.GetCheckVer("2", WR_UpLoad(1), 0) & ">年月/</option><option value='3'" & WRMPS.GetCheckVer("3", WR_UpLoad(1), 0) & ">年月日/</option><option value='4'" & WRMPS.GetCheckVer("4", WR_UpLoad(1), 0) & ">年月/日/</option><option value='5'" & WRMPS.GetCheckVer("5", WR_UpLoad(1), 0) & ">年/月/日/</option></select></td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>分类信息上传</strong></td><td>文件存贮目录：<input name='h2' type='text' value='" & WR_UpLoad(2) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h3' type='text' value='" & WR_UpLoad(3) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h4' type='text' value='" & WR_UpLoad(4) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>文章图片上传</strong></td><td>文件存贮目录：<input name='h5' type='text' value='" & WR_UpLoad(5) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h6' type='text' value='" & WR_UpLoad(6) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h7' type='text' value='" & WR_UpLoad(7) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺图片上传</strong></td><td>文件存贮目录：<input name='h8' type='text' value='" & WR_UpLoad(8) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h9' type='text' value='" & WR_UpLoad(9) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h10' type='text' value='" & WR_UpLoad(10) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>优惠券图片上传</strong></td><td>文件存贮目录：<input name='h51' type='text' value='" & WR_UpLoad(51) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h52' type='text' value='" & WR_UpLoad(52) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h53' type='text' value='" & WR_UpLoad(53) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>店铺视频上传</strong></td><td>文件存贮目录：<input name='h11' type='text' value='" & WR_UpLoad(11) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h12' type='text' value='" & WR_UpLoad(12) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h13' type='text' value='" & WR_UpLoad(13) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf
   Content = Content & "<tr class=td2><td><strong>用户/店铺认证图片上传</strong></td><td>文件存贮目录：<input name='h14' type='text' value='" & WR_UpLoad(14) & "' style='width:150' maxlength='20'> 不要带 “/”或“\”<br>允许上传类型：<input name='h15' type='text' value='" & WR_UpLoad(15) & "' style='width:200' maxlength='50'> 用“|”隔开<br>允许上传大小：<input name='h16' type='text' value='" & WR_UpLoad(16) & "' style='width:80' maxlength='8'> K</td></tr>" & vbCrLf