wm.article.asp

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

      If WM_ID <> "" Then
          WM_ID = Split(WM_ID, ",")
          For i = 0 To UBound(WM_ID)
            Rs.Open "Select WM_PostType,WM_Editor,WM_Title from WM_Article Where WM_Passed=0 and WM_ID=" & WM_ID(i) & "", Conn, 1, 1
            If Not Rs.EOF Then
			  Title = Rs(2)
	          If Rs(0) = 1 and (Rs(1) <> "" or IsNull(Rs(1)) = False) Then
			    rFlag = WRDB.GetUserFlag(Rs(1))
			    Call WRDB.SaveConsume(0,Rs(1),0,Int(Split(Split(rFlag,"§")(2),"|")(2)),Int(Split(Split(rFlag,"§")(2),"|")(1)),0,"文章“"&Title&"”通过审核")
	          End If
			  Conn.Execute ("Update WM_Member Set WM_ArticleNum = WM_ArticleNum + 1 Where WM_UserName = '"&Rs(1)&"'")
	          Call WRMPS.SCache("ArticleNum",WRMPS.GetCache("ArticleNum") - 1)
            End If
            Rs.Close
			Conn.Execute ("Update WM_Config Set WM_ArticleNum = WM_ArticleNum + 1")
            Conn.Execute ("Update WM_Article Set WM_Passed = 1 Where WM_ID=" & WM_ID(i) & "")
	        Set ClsCre = New Cls_Create
            Call ClsCre.CreArticle("CRE",WM_ID(i),2)
            Set ClsCre = Nothing
          Next
      End If
	  Call WRMPS.ErrView("·文章审核成功<meta http-equiv=refresh content='1;URL=?Action=Through&ChannelID=" & ChannelID & "&ClassID=" & Request("ClassID") & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)

    Case "SetReclaim"
      WM_ID = Replace(WM_ID, " ", "")
      If WM_ID <> "" Then
          WM_ID = Split(WM_ID, ",")
          For i = 0 To UBound(WM_ID)
            If Request("Reh") <> "Through" Then
		  	  Rs.Open "Select WM_PostType,WM_Editor from WM_Article Where WM_IsDeleted=0 and WM_ID=" & WM_ID(i) & "", Conn, 1, 1
              Do While Not Rs.EOF
	            If Rs(0) = 1 and (Rs(1) <> "" or IsNull(Rs(1)) = False) Then Conn.Execute ("Update WM_Member Set WM_ArticleNum = WM_ArticleNum - 1 Where WM_UserName = '"&Rs(1)&"' and WM_ArticleNum > 0")
	            Conn.Execute ("Update WM_Config Set WM_ArticleNum = WM_ArticleNum - 1 Where WM_ArticleNum > 0")
	            Call WRMPS.SCache("ArticleNum",WRMPS.GetCache("ArticleNum") - 1)
               Rs.MoveNext
              Loop
              Rs.Close
			End If
            Conn.Execute ("Update WM_Article Set WM_IsDeleted = 1 Where WM_ID=" & WM_ID(i) & "")
	        Set ClsCre = New Cls_Create
            Call ClsCre.CreArticle("CRE",WM_ID(i),2)
            Set ClsCre = Nothing
          Next
      End If
	  Call WRMPS.ErrView("·成功将文章放入回收站<meta http-equiv=refresh content='1;URL=?Action=" & Request("Reh") & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)

    Case "ResumeReclaim"
      WM_ID = Replace(WM_ID, " ", "")
      If WM_ID <> "" Then
          WM_ID = Split(WM_ID, ",")
          For i = 0 To UBound(WM_ID)
            Rs.Open "Select WM_PostType,WM_Editor from WM_Article Where WM_IsDeleted=1 and WM_ID=" & WM_ID(i) & "", Conn, 1, 1
            Do While Not Rs.EOF
	          If Rs(0) = 1 and (Rs(1) <> "" or IsNull(Rs(1)) = False) Then Conn.Execute ("Update WM_Member Set WM_ArticleNum = WM_ArticleNum + 1 Where WM_UserName = '"&Rs(1)&"'")
	          Conn.Execute ("Update WM_Config Set WM_ArticleNum = WM_ArticleNum + 1")
	          Call WRMPS.SCache("ArticleNum",WRMPS.GetCache("ArticleNum") - 1)
            Rs.MoveNext
            Loop
            Rs.Close
			Conn.Execute ("Update WM_Article Set WM_IsDeleted = 0 Where WM_ID=" & WM_ID(i) & "")
	        Set ClsCre = New Cls_Create
            Call ClsCre.CreArticle("CRE",WM_ID(i),2)
            Set ClsCre = Nothing
          Next
      End If
	  Call WRMPS.ErrView("·文章还原成功<meta http-equiv=refresh content='1;URL=?Action=Reclaim&ChannelID=" & ChannelID & "&ClassID=" & Request("ClassID") & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)

    Case "MoveSave"
      If WM_ID = "" Then Call WRMPS.ErrView("·请选择要移动的ID号", 0)
      WM_ClassID = WRMPS.CheckStr(Request.Form("WM_ClassID"), 1)
      WM_ID = Split(WM_ID, ",")
      For i = 0 To UBound(WM_ID)
        If WM_ClassID > 0 Then
	        Rs.Open "Select WM_ParentDir,WM_Dir From WM_ArticleSort Where WM_ID = " & WM_ClassID, Conn, 1, 1
            If Not Rs.EOF Then
              WM_ClassDir = Rs(0) & Rs(1) & "/"
            Else
              WM_ClassDir = "/"
			  WM_ClassID = 0
            End If
			Rs.Close
            Conn.Execute ("Update WM_Article Set WM_ClassID = " & WM_ClassID & ",WM_ClassDir = '"&WM_ClassDir&"' Where WM_ID=" & WM_ID(i) & "")
        End If
		ClassID = ""
		MyCityID = 0
	    Set ClsCre = New Cls_Create
        Call ClsCre.CreArticle("CRE",WM_ID(i),2)
        Set ClsCre = Nothing
	  Next
	  Call WRMPS.ErrView("·文章移动成功<meta http-equiv=refresh content='1;URL=?ClassID=" & Request("ClassID") & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)

    Case "Move"
      WM_ID = Replace(WM_ID, " ", "")
      If WM_ID = "" Then Call WRMPS.ErrView("·请选择要移动的ID号", 0)
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?Action=MoveSave&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&ClassID=" & Request("ClassID") & "&Page=" & Request("Page") & "&WM_ID=" & Request("WM_ID") & "'>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=2><strong>文章移动</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td colspan=2 Class=Font2>　<strong>将以下文章</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td colspan=2>　</td></tr>" & vbCrLf
      WM_ID = Split(WM_ID, ",")
      For i = 0 To UBound(WM_ID)
        IDList = IDList & "," & WM_ID(i)
      Next
      IDList = Right(IDList, Len(IDList) - 1)
      Rs.Open "Select WM_Title from WM_Article Where WM_ID in(" & IDList & ") Order By WM_ID Desc", Conn, 1, 1
      N = 0
      Do While Not Rs.EOF
      N = N + 1
          Content = Content & "<tr class=td2><td align=center width='5%'>" & N & "</td><td width='95%'>" & Rs(0) & "</td></tr>" & vbCrLf
      Rs.MoveNext
      Loop
      Rs.Close
      Content = Content & "<tr class=td2><td colspan=2>　</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td colspan=2>　<strong Class=Font2>移动到</strong>　　　　栏目 " & wrmps.SelectSort(1,ChannelID,0,1, 0, "WM_ArticleSort", "WM_ClassID", 0, 0) & vbCrLf
      Content = Content & "　<input type=submit name='submit' value='确定移动' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
      Content = Content & "<tr><td class=td3 colspan=2><strong>　注：</strong><br>"
      Content = Content & "　不用修改的分类请不要选择"
      Content = Content & "</td></tr>" & vbCrLf
      Content = Content & "</form></table>" & vbCrLf

    Case "Hot"
      WM_ID = Replace(WM_ID, " ", "")
      If WM_ID <> "" Then
          WM_ID = Split(WM_ID, ",")
          For i = 0 To UBound(WM_ID)
            If WRMPS.CheckStr(Request("WM_Hot"), 1) <> "" Then WM_Hot = WRMPS.CheckStr(Request("WM_Hot"), 1) Else WM_Hot = 1
            Conn.Execute ("Update WM_Article Set WM_Hot = " & WM_Hot & " Where WM_ID=" & WM_ID(i) & "")
	        Set ClsCre = New Cls_Create
            Call ClsCre.CreArticle("CRE",WM_ID(i),2)
            Set ClsCre = Nothing
          Next
      End If
	  Call WRMPS.ErrView("·成功将此文章设定为热点文章<meta http-equiv=refresh content='1;URL=?ClassID=" & Request("ClassID") & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)

    Case "Cre"
	  If IsNumeric(WM_ID) Then
	        Set ClsCre = New Cls_Create
            Call ClsCre.CreArticle("CRE",WM_ID,0)
            Set ClsCre = Nothing
	  End if
	  Call WRMPS.ErrView("·操作成功<meta http-equiv=refresh content='1;URL=?ClassID=" & Request("ClassID") & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)

    Case "Commend"
      WM_ID = Replace(WM_ID, " ", "")
      If WM_ID <> "" Then
          WM_ID = Split(WM_ID, ",")
          For i = 0 To UBound(WM_ID)
            If WRMPS.CheckStr(Request("WM_Commend"), 1) <> "" Then WM_Commend = WRMPS.CheckStr(Request("WM_Commend"), 1) Else WM_Commend = 1
            If WM_Commend = 1 Then
			Rs.Open "Select WM_Editor,WM_Title from WM_Article Where WM_Commend = 0 And WM_Passed=1 and WM_PostType = 1 and WM_ID=" & WM_ID(i) & "", Conn, 1, 1
            If Not Rs.EOF Then
			  Title = Rs(1)
	          If Rs(0) <> "" or IsNull(Rs(0)) = False Then
			    rFlag = WRDB.GetUserFlag(Rs(0))
			    Call WRDB.SaveConsume(0,Rs(0),0,Int(Split(Split(rFlag,"§")(2),"|")(6)),Int(Split(Split(rFlag,"§")(2),"|")(5)),0,"文章“"&Title&"”被推荐")
	          End If
            End If
            Rs.Close
		    End If
            Conn.Execute ("Update WM_Article Set WM_Commend = " & WM_Commend & " Where WM_ID=" & WM_ID(i) & "")
	        Set ClsCre = New Cls_Create
            Call ClsCre.CreArticle("CRE",WM_ID(i),2)
            Set ClsCre = Nothing
		  Next
      End If
      Call WRMPS.ErrView("·成功将此文章设定为推荐文章<meta http-equiv=refresh content='1;URL=?ClassID=" & Request("ClassID") & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & Request("Page") & "&sID=" & sID & "'>",1)
    
	Case "Del"
      Page = WRMPS.CheckStr(Request("Page"), 1)
      ID = WRMPS.CheckStr(Request("ClassID"), 1)
      Reh = WRMPS.CheckStr(Request("Reh"), 0)
      WM_ID = Replace(WM_ID, " ",