wm.sys_setup.asp

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

        sitea = sitea & "§§§" & Request.Form("a" & (i))
      Next
      For i = 0 To 18
        If Request.Form("b" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整系统邮件设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        siteb = siteb & "§§§" & Request.Form("b" & (i))
      Next
      For i = 0 To 12
	    If Request.Form("c2") = 1 and (Request.Form("c3") = "" or Request.Form("c4") = "" or Request.Form("c5") = "" or Request.Form("c6") = "") Then
          Call WRMPS.ErrView("·您选择了支持在线支付，请输入支付信息<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
		End If
	    If Ucase(Request.Form("c9")) = "ASP" Then
          Call WRMPS.ErrView("·个性静态后缀不能为“asp”<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
		End If
	    If i <> 4 And i <> 5 And i <> 6 And i <> 9 And i <> 11 Then
          If Request.Form("c" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整其它信息设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        End If
        sitec = sitec & "§§§" & Request.Form("c" & (i))
      Next
      For i = 0 To 8
        If Request.Form("d" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整会员注册设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        sited = sited & "§§§" & Request.Form("d" & (i))
      Next
	  For i = 0 To 5
        sitee = sitee & "§§§" & Request.Form("e" & (i))
		If IsNull(sitee) = false Then sitee = Replace(sitee," ","")
      Next
	  For i = 0 To 7
        If Request.Form("g" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整商家店铺设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        If Request.Form("g4") = 1 and Request.Form("g5") = "" Then Call WRMPS.ErrView("·你启用了带店铺子域名前缀的店铺子域名模式<br>请填写店铺子域名前缀<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        siteg = siteg & "§§§" & Request.Form("g" & (i))
      Next
      For i = 0 To 53
        If Request.Form("h" & (i)) = "" Then Call WRMPS.ErrView("·请输入完整上传信息设置<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>",0)
        siteh = siteh & "§§§" & Request.Form("h" & (i))
      Next
	  
	  Code = WRMPS.CheckStr(Request.Form("Code"),0)
	  QCode = WRMPS.CheckStr(Request.Form("QCode"),0)
	  CodePlan = WRMPS.CheckStr(Request.Form("CodePlan"),0)
	  Code = WRMPS.GetReplace(Code,"&nbsp;","")
	  QCode = WRMPS.GetReplace(QCode,"&nbsp;","")
	  AllQA = WRMPS.CheckStr(Request.Form("AllQA"),1)
      For i = 0 To AllQA
        If WRMPS.CheckStr(Request.Form("D_"&i),1) <> 1 and WRMPS.CheckStr(Request.Form("Q_"&i),0) <> "" and WRMPS.CheckStr(Request.Form("A_"&i),0) <> "" Then
		  If QA = "" Then
		    QA = WRMPS.CheckStr(Request.Form("Q_"&i),0)&"|"&WRMPS.CheckStr(Request.Form("A_"&i),0)
		  Else
		    QA = QA & vbCrLf & WRMPS.CheckStr(Request.Form("Q_"&i),0)&"|"&WRMPS.CheckStr(Request.Form("A_"&i),0)
		  End If
		End If
      Next
	  sitej = Code & "@@" & QCode & "@@" & CodePlan & "@@" & QA
	  
      If Left(sitea, 3) = "§§§" Then sitea = Right(sitea, Len(sitea) - 3)
      If Left(siteb, 3) = "§§§" Then siteb = Right(siteb, Len(siteb) - 3)
      If Left(sitec, 3) = "§§§" Then sitec = Right(sitec, Len(sitec) - 3)
      If Left(sited, 3) = "§§§" Then sited = Right(sited, Len(sited) - 3)
      If Left(sitee, 3) = "§§§" Then sitee = Right(sitee, Len(sitee) - 3)
      If Left(siteg, 3) = "§§§" Then siteg = Right(siteg, Len(siteg) - 3)
      If Left(siteh, 3) = "§§§" Then siteh = Right(siteh, Len(siteh) - 3)
      If Left(sitei, 3) = "§§§" Then sitei = Right(sitei, Len(sitei) - 3)

      '生成广告相关页面
	  AdsShow = "<"&"%"&chr(10)
	  AdsShow = AdsShow & "Dim ID,CityID,SiteDir" & vbCrLf
	  AdsShow = AdsShow & "ID = Request.QueryString" & vbCrLf
	  AdsShow = AdsShow & "CityID = Request.Cookies("&chr(34)&"MyCityID"&chr(34)&")" & vbCrLf
	  AdsShow = AdsShow & "SiteDir = "&chr(34)&Request.Form("a3")&chr(34)& vbCrLf
	  AdsShow = AdsShow & "Set Fso = Server.CreateObject("&chr(34)&WR_Setting(14)&chr(34)&")" & vbCrLf
	  AdsShow = AdsShow & "  If Fso.FileExists(Server.MapPath(SiteDir&"&chr(34)&"Img/AD_"&chr(34)&"&CityID&"&chr(34)&"_"&chr(34)&"&ID&"&chr(34)&".Asp"&chr(34)&")) Then" & vbCrLf
	  AdsShow = AdsShow & "	Response.write "&chr(34)&"document.write('<SCRI' + 'PT LANGUAGE="&chr(34)&chr(34)&"javascript1.2"&chr(34)&chr(34)&"');"&chr(34)&" & vbCrLf" & vbCrLf
	  AdsShow = AdsShow & "    Response.write "&chr(34)&"document.writeln(' SRC="&chr(34)&"&SiteDir&"&chr(34)&"Img/AD_"&chr(34)&"&CityID&"&chr(34)&"_"&chr(34)&"&ID&"&chr(34)&".Asp></SCR' + 'IPT>');"&chr(34)& vbCrLf
	  AdsShow = AdsShow & "  Else" & vbCrLf
	  AdsShow = AdsShow & "	Response.write "&chr(34)&"document.write('<SCRI' + 'PT LANGUAGE="&chr(34)&chr(34)&"javascript1.2"&chr(34)&chr(34)&"');"&chr(34)&" & vbCrLf" & vbCrLf
	  AdsShow = AdsShow & "    Response.write "&chr(34)&"document.writeln(' SRC="&chr(34)&"&SiteDir&"&chr(34)&"Img/AD_0_"&chr(34)&"&ID&"&chr(34)&".Asp></SCR' + 'IPT>');"&chr(34)& vbCrLf
	  AdsShow = AdsShow & "  End If" & vbCrLf
	  AdsShow = AdsShow & "Set Fso = nothing" & vbCrLf
	  AdsShow = AdsShow & "%"&">"&chr(10)

      Call WRMPS.FsoBegin()
	  WRMPS.CreateFile "../Img/Index.asp",AdsShow '广告
      If Request.Form("h0_0") <> Request.Form("h0") Then '上传目录修改
            On Error Resume Next
	        If WRMPS.FsoIsTrue("Dir","../" & Request.Form("h0")) = True Then Call WRMPS.ErrView("·您所指定的文件上传存放目录已经存在<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>", 0)
            Fso.MoveFolder Server.MapPath("../" & Request.Form("h0_0")),Server.MapPath("../" & Request.Form("h0"))
			If Err Then
              Call WRMPS.ErrView("·修改上传文件存放目录出错<meta http-equiv=refresh content='1;URL=WM.Sys_Setup.asp'>", 0)
            End If