wm.class.asp

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

      Set ClsCre = New Cls_Create
	  For i = 0 To UBound(CSaveID)
         Select Case Request("Work")
		   Case "Cre"
             Call ClsCre.CreClass("CRE",Int(CSaveID(i)),0)

		   Case "Key"
             '收费
			 Set Rs = Conn.Execute("Select WM_Post,WM_Title,WM_ComID,WM_PostType From WM_ClassAD Where WM_Key=0 and WM_ID=" & Int(CSaveID(i)))
			 If Not Rs.Eof Then
			   User = Rs(0)
			   Title = Rs(1)
			   If User <> "" and IsNull(User) = False and Rs(3) = 1 Then
	             rFlag = WRDB.GetUserFlag(User)
	             If Rs(2) > 0 Then
	               Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(1),"|")(25)),Int(Split(Split(rFlag,"§")(1),"|")(24)),0,"店铺优惠信息“"&Title&"”通过审核")
	             Else
	               Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(3),"|")(2)),Int(Split(Split(rFlag,"§")(3),"|")(1)),0,"信息“"&Title&"”通过审核")
	             End If
	             Conn.Execute("Update WM_Member Set WM_ClassNum = WM_ClassNum + 1 Where WM_UserName = '"&User&"'")
			   End If
		       Conn.Execute("Update WM_ClassAD Set WM_Key=1 Where WM_ID="&Int(CSaveID(i)))
  	           Conn.Execute("Update WM_Config Set WM_ClassNum = WM_ClassNum + 1")
			   WRMPS.SCache "ClassNum",WRMPS.GetCache("ClassNum") + 1
               Call ClsCre.CreClass("CRE",Int(CSaveID(i)),2)
		     End If
			 Rs.Close

		   Case "Tui"
			 Set Rs = Conn.Execute("Select WM_Post,WM_Title,WM_ComID,WM_Key,WM_PostType From WM_ClassAD Where WM_ID=" & Int(CSaveID(i)))
			 If Not Rs.Eof Then
			   User = Rs(0)
			   Title = Rs(1)
			   If User <> "" and IsNull(User) = False and Rs(4) = 1 Then
	             rFlag = WRDB.GetUserFlag(User)
	             Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(3),"|")(8)),Int(Split(Split(rFlag,"§")(3),"|")(7)),0,"信息“"&Title&"”被推荐")
			   End If
			   If Rs(3) < 1 and Rs(4) = 1 and User <> "" and IsNull(User) = False Then
	               rFlag = WRDB.GetUserFlag(User)
	               If Rs(2) > 0 Then
	                 Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(1),"|")(25)),Int(Split(Split(rFlag,"§")(1),"|")(24)),0,"店铺优惠信息“"&Title&"”通过审核")
	               Else
	                 Call WRDB.SaveConsume(0,User,0,Int(Split(Split(rFlag,"§")(3),"|")(2)),Int(Split(Split(rFlag,"§")(3),"|")(1)),0,"信息“"&Title&"”通过审核")
	               End If
  	               Conn.Execute("Update WM_Config Set WM_ClassNum = WM_ClassNum + 1")
	               Conn.Execute("Update WM_Member Set WM_ClassNum = WM_ClassNum + 1 Where WM_UserName = '"&User&"'")
			   End If
		       Conn.Execute("Update WM_ClassAD Set WM_Commend=1,WM_Key=1 Where WM_ID="&Int(CSaveID(i)))
               Call ClsCre.CreClass("CRE",Int(CSaveID(i)),2)
		     End If
			 Rs.Close

		   Case "NoTui"
		     Conn.Execute("Update WM_ClassAD Set WM_Commend=0 Where WM_ID="&Int(CSaveID(i)))
             Call ClsCre.CreClass("CRE",Int(CSaveID(i)),2)

		   Case "Del"
              Set Rs = Conn.Execute("Select WM_Post,WM_key from WM_ClassAD Where WM_ID=" & Int(CSaveID(i)) & " and WM_PostType <> 4")
              If Not Rs.EOF Then
			    User = Rs(0)
				WM_Key = Rs(1)
              End If
			  Rs.Close
			  If WM_Key > 0 Then
	            If User <> "" or IsNull(User) = False Then
				  Conn.Execute ("Update WM_Member Set WM_ClassNum = WM_ClassNum - 1 Where WM_UserName = '"&User&"' and WM_ClassNum > 0")
	            End If
	            Conn.Execute ("Update WM_Config Set WM_ClassNum = WM_ClassNum - 1 Where WM_ClassNum > 0")
			    WRMPS.SCache "ClassNum",WRMPS.GetCache("ClassNum") - 1
			  End If
              Conn.Execute ("Delete From WM_ClassRevert Where WM_ParentID = " & Int(CSaveID(i)) & "")
              Call ClsCre.CreClass("DEL",Int(CSaveID(i)),1)
		 End Select
      Next
	  Set ClsCre = Nothing
    End If
    Call DBConnEnd()
	Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?page="&Page&"&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"&AreaName="&AreaName&"'>",1)

  Case "EditSave"
    ClassID = WRMPS.CheckStr(Request.form("ClassID"),0)
    AreaID = WRMPS.CheckStr(Request.form("AreaID"),0)
    Title = WRMPS.CheckStr(Request("title"),0)
    For i = 1 To Request.Form("Content").Count
      Content = Content & Request.Form("Content")(i)
    Next
	Content = WRMPS.CheckStr(Content,4)
    Pic = WRMPS.CheckStr(WRMPS.CheckStr(Request("Pic"),0),4)
    Dayss = WRMPS.CheckStr(Request("Dayss"),1)
    Contact = WRMPS.CheckStr(Request("Contact"),0)
    Email = WRMPS.CheckStr(Request("Email"),0)
    Tel = WRMPS.CheckStr(Request("Tel"),0)
    AddRess = WRMPS.CheckStr(Request("AddRess"),0)
    QQ = WRMPS.CheckStr(Request("QQ"),0)
    If title = "" Then Call WRMPS.ErrView("·请填写信息标题<meta http-equiv=refresh content='1;URL=?Action=Edit&ID="&ID&"&Page="&Page&"&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"'>",0)
    If Content = "" Then Call WRMPS.ErrView("·请填写内容介绍<meta http-equiv=refresh content='1;URL=?Action=Edit&ID="&ID&"&Page="&Page&"&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"'>",0)
    If Contact = "" Then Contact = Null
    If Email = "" Then Email = NUll
    If Tel = "" Then Tel = Null
    If AddRess = "" Then AddRess = Null
    If Pic = "" Then Pic = Null
    If QQ = "" Then QQ = Null
	WM_Tag = WRMPS.CheckStr(Request("WM_Tag"),0)
    If Left(WM_Tag,1) = "," Then WM_Tag = Right(WM_Tag,Len(WM_Tag)-1)
    If Right(WM_Tag,1) = "," Then WM_Tag = Left(WM_Tag,Len(WM_Tag)-1)
	Charge = WRMPS.CheckStr(Request.Form("Charge"), 1)
	If Charge = "" Then Charge = 0
	RepeatCharge = WRMPS.CheckStr(Request.Form("RepeatCharge"), 1)
	If RepeatCharge = "" Then RepeatCharge = 0
	TempID = WRMPS.CheckStr(Request.Form("TempID"), 1)
	If TempID = "" Then TempID = 0

	DB1 = WRMPS.CheckStr(Request("DB1"),0)
	If DB1 = "" Then DB1 = Null:DB1T = Null Else DB1T = WRMPS.CheckStr(Request("DB1T"),0)
	DB2 = WRMPS.CheckStr(Request("DB2"),0)
	If DB2 = "" Then DB2 = Null:DB2T = Null Else DB2T = WRMPS.CheckStr(Request("DB2T"),0)
	DB3 = WRMPS.CheckStr(Request("DB3"),0)
	If DB3 = "" Then DB3 = Null:DB3T = Null Else DB3T = WRMPS.CheckStr(Request("DB3T"),0)
	DB4 = WRMPS.CheckStr(Request("DB4"),0)
	If DB4 = "" Then DB4 = Null:DB4T = Null Else DB4T = WRMPS.CheckStr(Request("DB4T"),0)
	DB5 = WRMPS.CheckStr(Request("DB5"),0)
	If DB5 = "" Then DB5 = Null:DB5T = Null Else DB5T = WRMPS.CheckStr(Request("DB5T"),0)
	DB6 = WRMPS.CheckStr(Request("DB6"),0)
	If DB6 = "" Then DB6 = Null:DB6T = Null Else DB6T = WRMPS.CheckStr(Request("DB6T"),0)
	DB7 = WRMPS.CheckStr(Request("DB7"),0)
	If DB7 = "" Then DB7 = Null:DB7T = Null Else DB7T = WRMPS.CheckStr(Request("DB7T"),0)
	DB8 = WRMPS.CheckStr(Request("DB8"),0)
	If DB8 = "" Then DB8 = Null:DB8T = Null Else DB8T = WRMPS.CheckStr(Request("DB8T"),0)
	DB9 = WRMPS.CheckStr(Request("DB9"),0)
	If DB9 = "" Then DB9 = Null:DB9T = Null Else DB9T = WRMPS.CheckStr(Request("DB9T"),0)
	DB10 = WRMPS.CheckStr(Request("DB10"),0)
	If DB10 = "" Then DB10 = Null:DB10T = Null Else DB10T = WRMPS.CheckStr(Request("DB10T"),0)

    Call DBConnBegin()
	Set Rs = Conn.Execute("Select WM_ParentDir,WM_Dir From WM_ClassSort Where WM_ID="&ClassID)
	If Not Rs.Eof Then
	  WM_ClassDir = Rs(0)&Rs(1)
	Else
	  Call WRMPS.ErrView("·请按规定操作　",0)
	End If
    Rs.Close

	Set Rs=server.createobject("adodb.recordset")
	Rs.Open "Select WM_title,WM_Content,WM_Pic,WM_ClassID,WM_AreaID,WM_Contact,WM_Email,WM_QQ,WM_AddRess,WM_Tel,WM_EndTime,WM_PostTime,WM_ClassDir,WM_Tag,WM_Charge,WM_RepeatCharge,WM_DB1,WM_DB2,WM_DB3,WM_DB4,WM_DB5,WM_DB6,WM_DB7,WM_DB8,WM_DB9,WM_DB10,WM_DB1T,WM_DB2T,WM_DB3T,WM_DB4T,WM_DB5T,WM_DB6T,WM_DB7T,WM_DB8T,WM_DB9T,WM_DB10T,WM_TempID From WM_ClassAD Where WM_ID="&ID&"",Conn,1,3
	If Not Rs.Eof Then
	  PostTime = Rs(11)
	  EndTime = Cdate(PostTime+Dayss)
	  Rs(0) = Title
	  Rs(1) = Content
	  Rs(2) = Pic
	  Rs(3) = ClassID
	  Rs(4) = AreaID
	  Rs(5) = Contact
	  Rs(6) = Email
	  Rs(7) = QQ
	  Rs(8) = AddRess
	  Rs(9) = Tel
	  Rs(10) = EndTime
	  Rs(12) = WM_ClassDir
	  Rs(13) = WM_Tag
	  Rs(14) = Charge
	  Rs(15) = RepeatCharge
	  Rs(16) = DB1
	  Rs(17) = DB2
	  Rs(18) = DB3
	  Rs(19) = DB4
	  Rs(20) = DB5
	  Rs(21) = DB6
	  Rs(22) = DB7
	  Rs(23) = DB8
	  Rs(24) = DB9
	  Rs(25) = DB10
	  Rs(26) = DB1T
	  Rs(27) = DB2T
	  Rs(28) = DB3T
	  Rs(29) = DB4T
	  Rs(30) = DB5T
	  Rs(31) = DB6T
	  Rs(32) = DB7T
	  Rs(33) = DB8T
	  Rs(34) = DB9T
	  Rs(35) = DB10T
	  Rs(36) = TempID
	  Rs.Update
	End If
    Rs.Close
	Set Rs = Nothing
	Set ClsCre = New Cls_Create
    Call ClsCre.CreClass("CRE",ID,1)
    Set ClsCre = Nothing
	Call WRMPS.CreTextToImg(ID,1,Email,Tel,QQ,AddRess)
    Call DBConnEnd()
    Call WRMPS.ErrView("·信息修改成功<br>·<a href=?page="&Page&"&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"&AreaName="&AreaName&">返回列表</a>",1)
   
  Case "EditTwo"
    ClassID = WRMPS.CheckStr(Request.form("ClassID"),0)
	If ClassID = "" Then 
      ClassID = WRMPS.CheckStr(Request.form("ClassID_"),1)
	End If
    AreaID = WRMPS.CheckStr(Request.form("AreaID"),0)
	If AreaID = "" Then 
      AreaID = WRMPS.CheckStr(Request.form("AreaID_"),1)
	End If
    Call DBConnBegin()
    Set Rs=server.createobject("adodb.recordset")
    Rs.Open"Select * From WM_ClassAD Where WM_ID = "&ID&"",Conn,1,1
    If Not Rs.Eof Then
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf  
	  Content = Content & "<form action='?Action=EditSave&SearchKey="&SearchKey&"&PostName="&PostName&"&Days="&Days&"&SearchID="&SearchID&"&AreaName="&AreaName&"' name=myform method=POST>" & vbCrLf
	  Content = Content & "<input type=hidden name=AreaID value="&AreaID&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ClassID value="&ClassID&">" & vbCrLf
	  Content = Content & "<input type=hidden name=Page value="&Page&">" & vbCrLf
	  Content = Content & "<input type=hidden name=ID value="&ID&">" & vbCrLf
	  Content = Content & "<tr Class=td4><td colspan=2>&nbsp;<strong>修改分类信息</strong></td></tr>" & vbCrLf  
	  Content = Content & "<tr Class=td2><td width='20%'><strong>信息标题</strong></td><td width='80%'><input type=text name=title size=40 value='"&Rs("WM_title")&"' maxlength=100> <font color=#FF0000>*</font></td></tr>" & vbCrLf
      Set Rso = Server.CreateObject("ADODB.RecordSet")
	  Rso.Open "Select WM_DB from WM_ClassSort Where WM_ID="&ClassID, Conn, 1, 1
	  If Not Rso.Eof Then
	    TestCon = Rso(0)
		TestCon = WRMPS.GetReplace(TestCon,"[$DB1$]",Rs("WM_DB1"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2$]",Rs("WM_DB2"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3$]",Rs("WM_DB3"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4$]",Rs("WM_DB4"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5$]",Rs("WM_DB5"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6$]",Rs("WM_DB6"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7$]",Rs("WM_DB7"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8$]",Rs("WM_DB8"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9$]",Rs("WM_DB9"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10$]",Rs("WM_DB10"))
		TestCon = WRMPS.GetReplace(TestCon,"[$DB1("&Rs("WM_DB1")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB2("&Rs("WM_DB2")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB3("&Rs("WM_DB3")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB4("&Rs("WM_DB4")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB5("&Rs("WM_DB5")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB6("&Rs("WM_DB6")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB7("&Rs("WM_DB7")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB8("&Rs("WM_DB8")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB9("&Rs("WM_DB9")&")$]","selected")
		TestCon = WRMPS.GetReplace(TestCon,"[$DB10("&Rs("WM_DB10")&")$]","selected")
		If TestCon <> "" and Isnull(TestCon)=False Then Content = Content & "<tr Class=td2><td><strong>相关选项</strong></td><td>"&TestCon&"</td></tr>" & vbCrLf  
	  End If
	  Rso.Close
	  Set Rso = Nothing
	  Content = Content & "<tr Class=td2><td valign=top><strong>内容介绍</strong><div class=Up><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=1&User=1',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='img/nopic.gif'></div></div></td><td><INPUT type='hidden' name='Content' value="""
	  If Rs("WM_Content") <> "" Then Content = Content & Server.HTMLEncode(WRMPS.CheckStr(Rs("WM_Content"),5))
	  Content = Content & """><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=Content&sMode=EDIT&Tool=' FRAMEBORDER=0 SCROLLING=no WIDTH='98%' HEIGHT=250></IFRAME> <font color=#FF0000>*</font></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td valign=top><strong>相关图片</strong></td><td><input type=text name=Pic size=50 maxlength=100 value='"&WRMPS.CheckStr(Rs("WM_Pic"),5)&"'><br>"
      WM_Pic = Rs("WM_Pic")
	  If IsNull(WM_Pic) = False and WM_Pic <> "" Then Content = Content & "<script>PicReset('"&WRMPS.CheckStr(WM_Pic,5)&"')</script>"
      Content = Content & "<select name=PicSelect onChange=PicReset(this.value)>" & vbCrLf
	  If IsNull(WM_Pic) = False and WM_Pic <> "" Then
	    Content = Content & "<option value='"&WRMPS.CheckStr(WM_Pic,5)&"' selected>"&WRMPS.CheckStr(WM_Pic,5)&"</option>" & vbCrLf
	  Else
        Content = Content & "<option value='' >还没有上传图片</option>" & vbCrLf
	  End If
      Content = Content & "</select>"
      Content = Content & "</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>发布天数</strong></td><td><input type=text name=Dayss size=10 maxlength=3 value='"&Int(Rs("WM_EndTime")-Rs("WM_PostTime"))&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>联系人</strong></td><td><input type=text name=Contact size=30 maxlength=50 value='"&Rs("WM_Contact")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>Email</strong></td><td><input type=text name=Email size=30 maxlength=50 value='"&Rs("WM_email")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>联系电话</strong></td><td><input type=text name=Tel size=30 maxlength=50 value='"&Rs("WM_tel")&"'><br>如为座机或小灵通请填写：区号-电话号码</td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>联系地址</strong></td><td><input type=text name=AddRess size=30 maxlength=200 value='"&Rs("WM_address")&"'></td></tr>" & vbCrLf
	  Content = Content & "<tr Class=td2><td><strong>QQ</strong></td><td><input type=text name=QQ size=30 maxlength=12 value='"&Rs("WM_qq")&"'></td></tr>" & vbCrLf
      Content = Content & "<tr Class=td2><td><strong>关键字</strong><br>多个请用“,”分隔</td><td><input type=text name=WM_Tag maxlength=50 size=30 value='"&Rs("WM_Tag")&"'></td></tr>" & vbCrLf  
      Content = Content & "<tr class=td4><td colspan=2><strong>收费选项</strong></td></tr>" & vbCrLf