wm.article.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<%
  Dim ID,i,N,ci
  Dim WM_ID, sID, s_ID, Reh,SearchKey,sKey,AN,repeatCharge,Charge
  Dim WM_ClassID, WM_TitlePrefixion, WM_Title, WM_TitleColor, WM_TitleFont, WM_TitleIntact, WM_TitleReview, WM_Keyword, WM_Author, WM_CopyFrom, WM_LinkUrl, WM_Synopsis, WM_Content, WM_DefaultPicUrl, WM_PageNext, WM_MaxCharPerPage, WM_Hot, WM_Commend, WM_Grade, WM_Hit, WM_AddTime, WM_Editor, WM_Passed, WM_IsDeleted, WM_DefaultShow, WM_KWord
  Dim WM_ClassName, WM_TitleFontType, IDList,WM_ClassDir
  Dim MaxCharPerPage,PageNext
  Dim cMaxCharPerPage,cContentPage,cContent
  Dim WM_ChannelDir
  ChannelID = WRMPS.CheckStr(Request("ChannelID"), 1)
  If ChannelID = "" Then Call WRMPS.ErrView("·操作错误", 0)
  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "NewsSave","AddType"
	  If CheckAdminFlag("ArticlePost_"&ChannelID) = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
	Case Else
	  If CheckAdminFlag("Article_"&ChannelID) = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
  End Select
  WM_ID = WRMPS.CheckStr(Replace(Request("WM_ID"), " ", ""), 0)
  sID = WRMPS.CheckStr(Request("sID"), 0)
  SearchKey = WRMPS.CheckStr(Request("SearchKey"), 1)
  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
  Content = Content & "<tr class=td2><td><a href=WM.Article.asp?ChannelID=" & ChannelID & ">管理首页</a> | <a href=?Action=AddType&ChannelID=" & ChannelID & ">添加文章</a> | <a href=?Action=Through&ChannelID=" & ChannelID & ">待审核</a> | <a href=?Action=Reclaim&ChannelID=" & ChannelID & ">回收站管理</a></td></tr>" & vbCrLf
  Content = Content & "</table>" & vbCrLf
  Call DBConnBegin()
  Set Rs = server.createobject("adodb.recordset")
  Set Rso = server.createobject("adodb.recordset")
  Set Rst = server.createobject("adodb.recordset")

  Select Case WRMPS.CheckStr(Request("Action"), 0)
    Case "NewsSave"
      WM_ClassID = WRMPS.CheckStr(Request.Form("WM_ClassID"), 1)
      If WM_ClassID = "" Or WM_ClassID = 0 Then Call WRMPS.ErrView("·您选择文章分类", 0)
      WM_TitlePrefixion = WRMPS.CheckStr(Request.Form("WM_TitlePrefixion"), 0)
      If WM_TitlePrefixion = "" Then WM_TitlePrefixion = Null
      WM_Title = WRMPS.CheckStr(Request.Form("WM_Title"), 0)
      If WM_Title = "" Then Call WRMPS.ErrView("·您输入文章标题", 0)
      WM_TitleColor = WRMPS.CheckStr(Request.Form("WM_TitleColor"), 0)
      If WM_TitleColor = "" Then WM_TitleColor = Null
      WM_TitleFont = WRMPS.CheckStr(Request.Form("WM_TitleFont"), 1)
      WM_TitleIntact = WRMPS.CheckStr(Request.Form("WM_TitleIntact"), 0)
      If WM_TitleIntact = "" Then WM_TitleIntact = Null
      WM_TitleReview = Request.Form("WM_TitleReview")
      If WM_TitleReview = "" Then WM_TitleReview = 0
      WM_TitleReview = WRMPS.CheckStr(WM_TitleReview, 1)
      WM_Keyword = WRMPS.CheckStr(Request.Form("WM_Keyword"), 0)
      If Left(WM_Keyword,1) = "," Then WM_Keyword = Right(WM_Keyword,Len(WM_Keyword)-1)
      If Right(WM_Keyword,1) = "," Then WM_Keyword = Left(WM_Keyword,Len(WM_Keyword)-1)
      WM_Author = WRMPS.CheckStr(Request.Form("WM_Author"), 0)
      WM_CopyFrom = WRMPS.CheckStr(Request.Form("WM_CopyFrom"), 0)
      If Request.Form("WM_UseLinkUrl") = 1 Then
        WM_LinkUrl = WRMPS.CheckStr(Request.Form("WM_LinkUrl"), 0)
        If WM_LinkUrl = "" Then Call WRMPS.ErrView("·你使用了文章转向功能，请填写转向地址", 0)
        WM_Content = Null
        WM_PageNext = Null
        WM_MaxCharPerPage = Null
      Else
        For i = 1 To Request.Form("WM_Content").Count
          WM_Content = WM_Content & Request.Form("WM_Content")(i)
        Next
        WM_Content = WRMPS.CheckStr(WM_Content, 4)
        If WM_Content = "" Then Call WRMPS.ErrView("·请输入文章内容", 0)
        WM_PageNext = WRMPS.CheckStr(Request.Form("WM_PageNext"), 1)
        If WM_PageNext = "" Then WM_PageNext = 2
        WM_MaxCharPerPage = Request.Form("WM_MaxCharPerPage")
        If WM_MaxCharPerPage = "" Or IsNumeric(WM_MaxCharPerPage) = False Then WM_MaxCharPerPage = 5000
        WM_LinkUrl = Null
      End If
      WM_Synopsis = WRMPS.CheckStr(Request.Form("WM_Synopsis"), 2)
      If WM_Synopsis = "" Then WM_Synopsis = Null
      WM_DefaultPicUrl = WRMPS.CheckStr(WRMPS.CheckStr(Request.Form("Pic"), 0), 4)
      WM_DefaultShow = Request.Form("WM_DefaultShow")
      If WM_DefaultShow = 1 And WM_DefaultPicUrl <> "" Then WM_DefaultShow = 1 Else WM_DefaultShow = 0
      WM_DefaultShow = WRMPS.CheckStr(WM_DefaultShow, 1)
      If WM_DefaultPicUrl = "" Then WM_DefaultPicUrl = Null
      WM_Hot = Request.Form("WM_Hot")
      If WM_Hot = "" Then WM_Hot = 0
      WM_Hot = WRMPS.CheckStr(WM_Hot, 1)
      WM_Commend = Request.Form("WM_Commend")
      If WM_Commend = "" Then WM_Commend = 0
      WM_Commend = WRMPS.CheckStr(WM_Commend, 1)
      WM_Grade = WRMPS.CheckStr(Request.Form("WM_Grade"), 1)
      WM_Hit = Request.Form("WM_Hit")
      If WM_Hit = "" Or IsNumeric(WM_Hit) = False Then WM_Hit = 0
      WM_Hit = WRMPS.CheckStr(WM_Hit, 1)
      WM_AddTime = Request.Form("WM_AddTime")
      If IsDate(WM_AddTime) = False Or WM_AddTime = "" Then WM_AddTime = Now()
      WM_Passed = 1
      WM_IsDeleted = 0
	  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

      WRMPS.SCookies "A_Keyword",WM_Keyword,0
      WRMPS.SCookies "A_Author",WM_Author,0
      WRMPS.SCookies "A_CopyFrom",WM_CopyFrom,0
      If WM_Keyword = "" Then WM_Keyword = Null
      If WM_Author = "" Then WM_Author = "佚名"
      If WM_CopyFrom = "" Then WM_CopyFrom = "本站原创"

      Rs.Open "Select WM_ParentDir,WM_Dir,WM_ChannelDir From WM_ArticleSort Where WM_ID = " & WM_ClassID & " and WM_ChannelID = " & ChannelID & "", Conn, 1, 1
      If Not Rs.EOF Then
        WM_ClassDir = Rs(0) & Rs(1) & "/"
		WM_ChannelDir = Rs(2)
      End If
      Rs.Close

      Rs.Open "Select WM_ClassID,WM_TitlePrefixion,WM_Title,WM_TitleColor,WM_TitleFont,WM_TitleIntact,WM_TitleReview,WM_Keyword,WM_Author,WM_CopyFrom,WM_LinkUrl,WM_Content,WM_PageNext,WM_MaxCharPerPage,WM_Synopsis,WM_DefaultPicUrl,WM_DefaultShow,WM_Hot,WM_Commend,WM_Grade,WM_Hit,WM_Re,WM_AddTime,WM_PostType,WM_Passed,WM_IsDeleted,WM_ClassDir,WM_ChannelID,WM_ChannelDir,WM_Charge,WM_RepeatCharge,WM_Collection,WM_TempID,WM_Editor from WM_Article Where WM_ID=1", Conn, 1, 3
         Rs.AddNew
         Rs(0) = WM_ClassID
         Rs(1) = WM_TitlePrefixion
         Rs(2) = WM_Title
         Rs(3) = WM_TitleColor
         Rs(4) = WM_TitleFont
         Rs(5) = WM_TitleIntact
         Rs(6) = WM_TitleReview
         Rs(7) = WM_Keyword
         Rs(8) = WM_Author
         Rs(9) = WM_CopyFrom
         Rs(10) = WM_LinkUrl
         Rs(11) = WM_Content
         Rs(12) = WM_PageNext
         Rs(13) = WM_MaxCharPerPage
         Rs(14) = WM_Synopsis
         Rs(15) = WM_DefaultPicUrl
         Rs(16) = WM_DefaultShow
         Rs(17) = WM_Hot
         Rs(18) = WM_Commend
         Rs(19) = WM_Grade
         Rs(20) = WM_Hit
		 Rs(21) = 0
         Rs(22) = WM_AddTime
		 Rs(23) = 2
         Rs(24) = WM_Passed
         Rs(25) = WM_IsDeleted
		 Rs(26) = WM_ClassDir
		 Rs(27) = ChannelID
		 Rs(28) = WM_ChannelDir
		 Rs(29) = Charge
		 Rs(30) = RepeatCharge
		 Rs(31) = 0
		 Rs(32) = TempID
		 Rs(33) = Request.Cookies("Admin")("Admin")
         Rs.Update
         Rs.Close
	     Conn.Execute("Update WM_Config Set WM_ArticleNum = WM_ArticleNum + 1")
	     Conn.Execute("Update WM_Member Set WM_ArticleNum = WM_ArticleNum + 1 Where WM_UserName = '"&Request.Cookies("Admin")("Admin")&"'")
	     Call WRMPS.SCache("ArticleNum",WRMPS.GetCache("ArticleNum") + 1)
         
		 Set Rs = Conn.Execute("Select max(WM_ID) from WM_Article")
         If Not Rs.EOF Then
           ID = Rs(0)
		 End If
         Rs.Close
	     Set ClsCre = New Cls_Create
         Call ClsCre.CreArticle("CRE",ID,1)
         Set ClsCre = Nothing
		 
		 Call WRMPS.ErrView("·新增文章成功<br>·<a href=?ChannelID=" & ChannelID & "&Action=AddType>继续发布</a><meta http-equiv=refresh content='1;URL=?ChannelID=" & ChannelID & "&Action=AddType'>",1)

    Case "EditSave"
      WM_ClassID = WRMPS.CheckStr(Request.Form("WM_ClassID"), 1)
      If WM_ClassID = "" Or WM_ClassID = 0 Then Call WRMPS.ErrView("·您选择文章分类", 0)
      WM_TitlePrefixion = WRMPS.CheckStr(Request.Form("WM_TitlePrefixion"), 0)
      If WM_TitlePrefixion = "" Then WM_TitlePrefixion = Null
      WM_Title = WRMPS.CheckStr(Request.Form("WM_Title"), 0)
      If WM_Title = "" Then Call WRMPS.ErrView("·您输入文章标题", 0)
      WM_TitleColor = WRMPS.CheckStr(Request.Form("WM_TitleColor"), 0)
      If WM_TitleColor = "" Then WM_TitleColor = Null
      WM_TitleFont = WRMPS.CheckStr(Request.Form("WM_TitleFont"), 1)