📄 wm.article.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 5 页
字号:
      Content = Content & "<tr class=td4><td height=30 align=center><input type=submit name='Submit' value=' 提 交 ' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
      Content = Content & "</form></table><script>document.myform.WM_Title.focus()</script>" & vbCrLf
      End If
      Rs.Close

    Case "Through"
      ID = WRMPS.CheckStr(Request("ClassID"), 1)
      Page = WRMPS.CheckStr(Request("Page"), 1)
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=5><strong>待审文章管理</strong></td></tr>" & vbCrLf
      Content = Content & "<form name='from1' method='post' Action='?Reh=Through&ChannelID=" & ChannelID & "&ClassID=" & ID & "&Page=" & Page & "'>" & vbCrLf
      Content = Content & "<tr class=td3 align=center>" & vbCrLf
      Content = Content & "<td width='3%'></td>" & vbCrLf
      Content = Content & "<td width='5%'>ID</td>" & vbCrLf
      Content = Content & "<td width=*>文章标题</td>" & vbCrLf
      Content = Content & "<td width='13%'>文章属性</td>" & vbCrLf
      Content = Content & "<td width='22%'>操作</td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
      If ID <> "" Then ClassID = " And WM_ClassID = " & ID Else ClassID = ""
      Rs.Open "Select * from WM_Article Where WM_Passed=0 and WM_IsDeleted = 0 " & ClassID & " and WM_ChannelID = " & ChannelID & " Order By WM_ID Desc", Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr class=td2><td align=center colspan=5>没有内容</td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 16
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
          Do While Not Rs.EOF And i < ListNum
          N = N + 1
          Rso.Open "Select * From WM_ArticleSort Where WM_ID=" & Rs("WM_ClassID") & "", Conn, 1, 1
            If Not Rso.EOF Then WM_ClassName = "<font Class=Font4>[<a href=?Action=Through&ChannelID=" & ChannelID & "&ClassID=" & Rso("WM_ID") & " Class=Gray>" & Rso("WM_Name") & "</a>]</font>"  Else WM_ClassName = ""
          Rso.Close
          If Rs("WM_TitleFont") = 1 Then
            WM_TitleFont = "<b>"
            WM_TitleFontType = "</b>"
          ElseIf Rs("WM_TitleFont") = 2 Then
            WM_TitleFont = "<i>"
            WM_TitleFontType = "</i>"
          ElseIf Rs("WM_TitleFont") = 3 Then
            WM_TitleFont = "<i><b>"
            WM_TitleFontType = "</b></i>"
          Else
            WM_TitleFont = ""
            WM_TitleFontType = ""
          End If
          Content = Content & "<tr class=td2 align=center>" & vbCrLf
          Content = Content & "<td><input type='checkbox' name='WM_ID' value=" & Rs("WM_ID") & " style='border:0'></td>" & vbCrLf
          Content = Content & "<td>" & Rs("WM_ID") & "</td>" & vbCrLf
          Content = Content & "<td align=left>" & WM_ClassName & "<font Class=Font3>" & Rs("WM_TitlePrefixion") & "</font> <font color=" & Rs("WM_TitleColor") & ">" & WM_TitleFont & Rs("WM_Title") & WM_TitleFontType & "</font></td>" & vbCrLf
          Content = Content & "<td>&nbsp;"
          If Rs("WM_LinkUrl") <> "" Then Content = Content & "转" Else Content = Content & "　"
          If Rs("WM_TitleReview") > 0 Then Content = Content & "&nbsp;评" Else Content = Content & "&nbsp;　"
          If Rs("WM_DefaultPicUrl") <> "" Then Content = Content & "&nbsp;图" Else Content = Content & "&nbsp;　"
          If Rs("WM_Hot") > 0 Then Content = Content & "&nbsp;热" Else Content = Content & "&nbsp;　"
          If Rs("WM_Commend") > 0 Then Content = Content & "&nbsp;荐" Else Content = Content & "&nbsp;　"
          Content = Content & "&nbsp;</td>" & vbCrLf
          Content = Content & "<td><a href=?Action=ThroughSave&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&ClassID=" & ID & "&Page=" & Page & " onclick=""Loading.style.display='';Loading.style.bottom=100;"">审核</a> <a href=?Action=SetReclaim&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&Reh=Through&ClassID=" & ID & "&Page=" & Page & ">放入回收站</a> <a href=?Action=Del&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&Reh=Through&ClassID=" & ID & "&Page=" & Page & " onclick=""return confirm('确定删除？');Loading.style.display='';Loading.style.bottom=100;"">彻底删除</a>"
          Content = Content & "</td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1><tr class=td4><td>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=0 cellspacing=0><tr class=td4><td>" & vbCrLf
          Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Action'><option value='ThroughSave'>批量审核</option><option value='SetReclaim'>放入回收站</option><option value='Del'>彻底删除</option></select>" & vbCrLf
          Content = Content & " <input type=submit name='submit' value='操 作' onclick=""Loading.style.display='';Loading.style.bottom=100;"">&nbsp;&nbsp;"
          Content = Content & "</td>" & vbCrLf
          Content = Content & "<td align=right>" & vbCrLf
          URLParameter = "ClassID=" & ID & "&ChannelID=" & ChannelID & ""
          Content = Content & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></table></td></tr>" & vbCrLf
          Content = Content & "<tr><td class=td3><strong>　文章属性中各项的含义：</strong><br>"
          Content = Content & "　转－－此文章为转向连接<br>"
          Content = Content & "　评－－在文章列表处显示评论字样<br>"
          Content = Content & "　图－－首页图片文章<br>"
          Content = Content & "　热－－热门文章<br>"
          Content = Content & "　荐－－推荐文章<br>"
          Content = Content & "</td></tr>" & vbCrLf
          Content = Content & "</form></table>" & vbCrLf
        End If
		Rs.Close

    Case "Reclaim"
      ID = WRMPS.CheckStr(Request("ClassID"), 1)
      Page = WRMPS.CheckStr(Request("Page"), 1)
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<tr class=td4><td colspan=6><strong>回收站管理</strong></td></tr>" & vbCrLf
      Content = Content & "<form name='from1' method='post' Action='?Reh=Reclaim&ChannelID=" & ChannelID & "&ClassID=" & ID & "&Page=" & Page & "'>" & vbCrLf
      Content = Content & "<tr class=td3 align=center>" & vbCrLf
      Content = Content & "<td width='3%'></td>" & vbCrLf
      Content = Content & "<td width='5%'>ID</td>" & vbCrLf
      Content = Content & "<td width=*>文章标题</td>" & vbCrLf
      Content = Content & "<td width='4%'>点击</td>" & vbCrLf
      Content = Content & "<td width='13%'>文章属性</td>" & vbCrLf
      Content = Content & "<td width='22%'>操作</td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
      If ID <> "" Then ClassID = " And WM_ClassID = " & ID Else ClassID = ""
      Rs.Open "Select * from WM_Article Where WM_IsDeleted=1 " & ClassID & " and WM_ChannelID = " & ChannelID & " Order By WM_ID Desc", Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr class=td2><td align=center colspan=6>没有内容</td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 16
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
          Do While Not Rs.EOF And i < ListNum
          N = N + 1
          Rso.Open "Select * From WM_ArticleSort Where WM_ID=" & Rs("WM_ClassID") & "", Conn, 1, 1
            If Not Rso.EOF Then WM_ClassName = "<font Class=Font4>[<a href=?Action=Reclaim&ChannelID=" & ChannelID & "&ClassID=" & Rso("WM_ID") & " Class=Gray>" & Rso("WM_Name") & "</a>]</font>" Else WM_ClassName = ""
          Rso.Close
          If Rs("WM_TitleFont") = 1 Then
            WM_TitleFont = "<b>"
            WM_TitleFontType = "</b>"
          ElseIf Rs("WM_TitleFont") = 2 Then
            WM_TitleFont = "<i>"
            WM_TitleFontType = "</i>"
          ElseIf Rs("WM_TitleFont") = 3 Then
            WM_TitleFont = "<i><b>"
            WM_TitleFontType = "</b></i>"
          Else
            WM_TitleFont = ""
            WM_TitleFontType = ""
          End If
          Content = Content & "<tr class=td2 align=center>" & vbCrLf
          Content = Content & "<td><input type='checkbox' name='WM_ID' value=" & Rs("WM_ID") & " style='border:0'></td>" & vbCrLf
          Content = Content & "<td>" & Rs("WM_ID") & "</td>" & vbCrLf
          Content = Content & "<td align=left>" & WM_ClassName & "<font Class=Font3>" & Rs("WM_TitlePrefixion") & "</font> <font color=" & Rs("WM_TitleColor") & ">" & WM_TitleFont & Rs("WM_Title") & WM_TitleFontType & "</font></td>" & vbCrLf
          Content = Content & "<td>" & Rs("WM_Hit") & "</td>" & vbCrLf
          Content = Content & "<td>&nbsp;"
          If Rs("WM_LinkUrl") <> "" Then Content = Content & "转" Else Content = Content & "　"
          If Rs("WM_TitleReview") > 0 Then Content = Content & "&nbsp;评" Else Content = Content & "&nbsp;　"
          If Rs("WM_DefaultPicUrl") <> "" Then Content = Content & "&nbsp;图" Else Content = Content & "&nbsp;　"
          If Rs("WM_Hot") > 0 Then Content = Content & "&nbsp;热" Else Content = Content & "&nbsp;　"
          If Rs("WM_Commend") > 0 Then Content = Content & "&nbsp;荐" Else Content = Content & "&nbsp;　"
          Content = Content & "&nbsp;</td>" & vbCrLf
          Content = Content & "<td><a href=?Action=ResumeReclaim&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&ClassID=" & ID & "&Page=" & Page & ">还原</a> <a href=?Action=Del&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&Reh=Reclaim&ClassID=" & ID & "&Page=" & Page & " onclick=""return confirm('确定删除？');"">彻底删除</a>"
          Content = Content & "</td></tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1><tr class=td4><td>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=0 cellspacing=0><tr class=td4><td>" & vbCrLf
          Content = Content & "<input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Action'><option value='ResumeReclaim'>批量还原</option><option value='Del'>彻底删除</option></select>" & vbCrLf
          Content = Content & " <input type=submit name='submit' value='操 作' onclick=""Loading.style.display='';Loading.style.bottom=100;>　<input type='button' OnClick=""Loading.style.display='';Loading.style.bottom=100;javascript:window.open('?Action=DelAll&ChannelID=" & ChannelID & "','_self')"" name='button' value='清空回收站'>&nbsp;&nbsp;"
          Content = Content & "</td>" & vbCrLf
          Content = Content & "<td align=right>" & vbCrLf
          URLParameter = "ClassID=" & ID & "&ChannelID=" & ChannelID & ""
          Content = Content & GetAdminPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></table></td></tr>" & vbCrLf
          Content = Content & "<tr><td class=td3><strong>　文章属性中各项的含义：</strong><br>"
          Content = Content & "　转－－此文章为转向连接<br>"
          Content = Content & "　评－－在文章列表处显示评论字样<br>"
          Content = Content & "　图－－首页图片文章<br>"
          Content = Content & "　热－－热门文章<br>"
          Content = Content & "　荐－－推荐文章<br>"
          Content = Content & "</td></tr>" & vbCrLf
          Content = Content & "</form></table>" & vbCrLf
        End If
		Rs.CLose

    Case "ThroughSave"
	  Dim rFlag,Title
      WM_ID = Replace(WM_ID, " ", "")
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -