user_article.asp

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

          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

      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 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) & "/"
      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_ClassDir,WM_Passed from WM_Article Where WM_ID = " & WM_ID & " and WM_ChannelID = " & ChannelID & " and WM_Editor='"&MemName&"'", Conn, 1, 3
         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_ClassDir
		 WM_Passed = Rs(18)
         Rs.Update
         Rs.Close
         If WM_Passed = 1 Then
	       Set ClsCre = New Cls_Create
           Call ClsCre.CreArticle("CRE",WM_ID,WM_Passed)
           Set ClsCre = Nothing
	     End If
		 Call WRMPS.ErrView("·文章修改成功<meta http-equiv=refresh content='1;URL=?ClassID=" & WRMPS.CheckStr(Request("ClassID"), 1) & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & WRMPS.CheckStr(Request("Page"), 1) & "&sID=" & sID & "'>",1)

    Case "AddType"
      Content = Content & PageTop()
      Content = Content & UserPath(",<a href=User_Article.asp?ChannelID=" & ChannelID & ">文章管理</a>")

      Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?Action=NewsSave'>" & vbCrLf
	  Content = Content & "<input name=ChannelID type=hidden value=" & ChannelID & ">" & vbCrLf
      Content = Content & "<tr><td colspan=2 class=td4>添加文章</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='20%'><strong>所属栏目</strong></td>" & vbCrLf
      Content = Content & "<td width='80%'>" & WRMPS.SelectSort(1,ChannelID,1,1, 0, "WM_ArticleSort", "WM_ClassID", 0, 1) & " <font Class=Font2>*</font></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章标题</strong></td>" & vbCrLf
      Content = Content & "<td>简短标题：<select name='WM_TitlePrefixion'>" & vbCrLf
      Content = Content & "<OPTION value=''></OPTION>" & vbCrLf
      Content = Content & "<option value='[图]'>[图]</option>" & vbCrLf
      Content = Content & "<option value='[图文]'>[图文]</option>" & vbCrLf
      Content = Content & "<option value='[组图]'>[组图]</option>" & vbCrLf
      Content = Content & "<option value='[讨论]'>[讨论]</option>" & vbCrLf
      Content = Content & "<option value='[公告]'>[公告]</option>" & vbCrLf
      Content = Content & "<option value='[转载]'>[转载]</option>" & vbCrLf
      Content = Content & "<option value='[推荐]'>[推荐]</option>" & vbCrLf
      Content = Content & "<option value='[原创]'>[原创]</option>" & vbCrLf
      Content = Content & "</select> <input name='WM_Title' type='text' maxlength=50 Class=TitInput style='width:412px'> <font Class=Font2>*</font>" & vbCrLf
      Content = Content & "<br>" & vbCrLf
      Content = Content & "完整标题：<input name='WM_TitleIntact' type='text' style='width:485px' maxlength='100'><br>" & vbCrLf
      Content = Content & "<input type='checkbox' name='WM_TitleReview' value=1 class=radio> 在文章列表标题旁显示评论连接</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>关键字</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_Keyword' type='text' style='width:250px' maxlength='50' Value=" & WRMPS.GetCookies("A_Keyword") & "> 多个请用 “,” 隔开</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>文章作者</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_Author' type='text' style='width:250px' maxlength=50 Value=" & WRMPS.GetCookies("A_Author") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章来源</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_CopyFrom' type='text' style='width:250px' maxlength='50' Value=" & WRMPS.GetCookies("A_CopyFrom") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>转向连接</strong></td>" & vbCrLf
      Content = Content & "<td><input type='checkbox' name='WM_UseLinkUrl' value=1 class=radio onClick='WM_LinkCheck()'> 使用转向连接　<input name='WM_LinkUrl' type='text' style='width:450px' maxlength='100' disabled value='http://'></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章简介</strong></td>" & vbCrLf
      Content = Content & "<td><textarea name='WM_Synopsis' style='width:600px;height:50'></textarea></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2 id=ArticleContent><td><strong>文章内容</strong>" & vbCrLf
      Content = Content & "<br><br><font class=Font2>换行请按Shift+Enter<br>另起一段请按Enter</font><br>" & vbCrLf
      Content = Content & "<div class=Up><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=2&User=3',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='../Skins/"&WR_Setting(5)&"/nopic.gif'></div></div></td>" & vbCrLf
      Content = Content & "<td><input type=hidden name=d_savepathfilename onchange=""doChange(this,document.myform.WM_Titpic)"">" & vbCrLf
      Content = Content & "<INPUT type='hidden' name='WM_Content' value=''><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=WM_Content&sMode=EDIT&Tool=Article&EditButton=NO' FRAMEBORDER=0 SCROLLING=no WIDTH=600 HEIGHT=450></IFRAME></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章图片</strong></td>" & vbCrLf
      Content = Content & "<td><input type=text name=Pic size=50 maxlength=100><br>"
      Content = Content & "<select name=PicSelect onChange=PicReset(this.value)>" & vbCrLf
      Content = Content & "<option value='' selected>还没有上传图片</option>" & vbCrLf
      Content = Content & "</select><br><input type='checkbox' name='WM_DefaultShow' value=1 class=radio>作为头条文章，用于在首页及频道首页的图片文章处显示，文章图片为空则无效</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2 id=ArticleContent1><td><strong>内容分页方式</strong><br><font class=font3>手动分页符标记为<br><font class=Font2>[NextPage]</font><br>注意大小写</font></td>" & vbCrLf
      Content = Content & "<td><select name='WM_PageNext'><option value='0'>不分页</option><option value='1'>自动分页</option><option value='2' selected>手动分页</option></select><br>" & vbCrLf
      Content = Content & "自动分页时的每页大约字符数(包含HTML标记)：<input name='WM_MaxCharPerPage' type='text' id='Url' style='width:50px' maxlength='5' value='5000'></td></tr>" & vbCrLf
      Content = Content & "<tr class=td3><td></td><td><input type='submit' name=btnSubmit value=' 提 交 ' onclick=""Loading.style.display='';""></td></tr>" & vbCrLf
      Content = Content & "</form></table><script>document.myform.WM_Title.focus()</script>" & vbCrLf
      WRMPS.DelCookies "A_Keyword"
      WRMPS.DelCookies "A_Author"
      WRMPS.DelCookies "A_CopyFrom"
	  
      Content = Content & PageButtom()

    Case "Edit"
      Rs.Open "select * from WM_Article where WM_ID=" & WM_ID & " and WM_ChannelID = " & ChannelID & " and WM_Editor='"&MemName&"'", Conn, 1, 1
      If Not Rs.EOF Then
      WM_TitlePrefixion = Rs("WM_TitlePrefixion")
      If IsNull(WM_TitlePrefixion) Then WM_TitlePrefixion = ""
      WM_TitleColor = Rs("WM_TitleColor")
      If IsNull(WM_TitleColor) Then WM_TitleColor = ""
      Content = Content & PageTop()
      Content = Content & UserPath(",<a href=User_Article.asp?ChannelID=" & ChannelID & ">文章管理</a>")

      Content = Content & "<table width='100%' cellpadding=0 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='myform' method='post' Action='?Action=EditSave&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&WM_ID=" & WM_ID & "&ClassID=" & WRMPS.CheckStr(Request("ClassID"), 1) & "&Page=" & WRMPS.CheckStr(Request("Page"), 1) & "&sID=" & sID & "'>" & vbCrLf
      Content = Content & "<tr><td colspan=2 class=td4>修改文章</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td width='20%'><strong>所属栏目</strong></td>" & vbCrLf
      Content = Content & "<td width='80%'>" & wrmps.SelectSort(1,ChannelID,1,1, Rs("WM_ClassID"), "WM_ArticleSort", "WM_ClassID", 0, 1) & " <font Class=Font2>*</font></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章标题</strong></td>" & vbCrLf
      Content = Content & "<td>简短标题：<select name='WM_TitlePrefixion'>" & vbCrLf
      Content = Content & "<OPTION value=''" & WRMPS.GetCheckVer("", WM_TitlePrefixion, 0) & "></OPTION>" & vbCrLf
      Content = Content & "<option value='[图]'" & WRMPS.GetCheckVer("[图]", WM_TitlePrefixion, 0) & ">[图]</option>" & vbCrLf
      Content = Content & "<option value='[图文]'" & WRMPS.GetCheckVer("[图文]", WM_TitlePrefixion, 0) & ">[图文]</option>" & vbCrLf
      Content = Content & "<option value='[组图]'" & WRMPS.GetCheckVer("[组图]", WM_TitlePrefixion, 0) & ">[组图]</option>" & vbCrLf
      Content = Content & "<option value='[讨论]'" & WRMPS.GetCheckVer("[讨论]", WM_TitlePrefixion, 0) & ">[讨论]</option>" & vbCrLf
      Content = Content & "<option value='[公告]'" & WRMPS.GetCheckVer("[公告]", WM_TitlePrefixion, 0) & ">[公告]</option>" & vbCrLf
      Content = Content & "<option value='[转载]'" & WRMPS.GetCheckVer("[转载]", WM_TitlePrefixion, 0) & ">[转载]</option>" & vbCrLf
      Content = Content & "<option value='[推荐]'" & WRMPS.GetCheckVer("[推荐]", WM_TitlePrefixion, 0) & ">[推荐]</option>" & vbCrLf
      Content = Content & "<option value='[原创]'" & WRMPS.GetCheckVer("[原创]", WM_TitlePrefixion, 0) & ">[原创]</option>" & vbCrLf
      Content = Content & "</select> <input name='WM_Title' type='text' style='width:412px' maxlength=50 Value=" & Rs("WM_Title") & " Class=TitInput> <font Class=Font2>*</font>" & vbCrLf
      Content = Content & "<br>" & vbCrLf
      Content = Content & "完整标题：<input name='WM_TitleIntact' type='text' style='width:485px' maxlength='100' Value=" & Rs("WM_TitleIntact") & "><br>" & vbCrLf
      Content = Content & "<input type='checkbox' name='WM_TitleReview' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_TitleReview"), 1) & "> 在文章列表标题旁显示评论连接</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>关键字</strong></td>" & vbCrLf
      WM_Keyword = Rs("WM_Keyword")
	  Content = Content & "<td><input name='WM_Keyword' type='text' style='width:250px' maxlength='50' Value=" & WM_Keyword & "> 多个请用 “,” 隔开</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>文章作者</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_Author' type='text' style='width:250px' maxlength=50 Value=" & Rs("WM_Author") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章来源</strong></td>" & vbCrLf
      Content = Content & "<td><input name='WM_CopyFrom' type='text' style='width:250px' maxlength='50' Value=" & Rs("WM_CopyFrom") & "></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2> <td><strong>转向连接</strong></td>" & vbCrLf
      Content = Content & "<td><input type='checkbox' name='WM_UseLinkUrl' value=1 class=radio onClick='WM_LinkCheck()'"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " checked"
      Content = Content & "> 使用转向连接　<input name='WM_LinkUrl' type='text' style='width:450px' maxlength='100'"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " value='" & Rs("WM_LinkUrl") & "'" Else Content = Content & " disabled value='http://'"
      Content = Content & "> </td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章简介</strong></td>" & vbCrLf
      Content = Content & "<td><textarea name='WM_Synopsis' style='width:600px;height:50'>" & WRMPS.CheckStr(Rs("WM_Synopsis"), 3) & "</textarea></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2 id=ArticleContent"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " style='DisPlay:none'"
      Content = Content & "><td><strong>文章内容</strong>" & vbCrLf
      Content = Content & "<br><br><font class=Font2>换行请按Shift+Enter<br>另起一段请按Enter</font><br>" & vbCrLf
      Content = Content & "<div class=Up><div class=UpFont><a href=""javascript:openWithIframe('添加附件','../Plus/UpLoad/Index.asp?Type=2&User=3',350,150);"">添加附件</a></div><div style='width:120px; height:120px; z-index:1;overflow:auto;' class=div ID=PicPreview><Img src='../Skins/"&WR_Setting(5)&"/nopic.gif'></div></div></td>" & vbCrLf
      Content = Content & "<td><input type=hidden name=d_savepathfilename onchange=""doChange(this,document.myform.WM_Titpic)"">" & vbCrLf
      Content = Content & "<INPUT type='hidden' name='WM_Content'"
      If Rs("WM_Content") <> "" Then
        Content = Content & " Value=""" & Server.HTMLEncode(WRMPS.CheckStr(Rs("WM_Content"), 5)) & """>" & vbCrLf
      Else
        Content = Content & " Value=''>" & vbCrLf
      End If
      Content = Content & "<IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=WM_Content&sMode=EDIT&EditButton=NO&Tool=Article' FRAMEBORDER=0 SCROLLING=no WIDTH=600 HEIGHT=450></IFRAME></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>文章图片</strong></td>" & vbCrLf
      Content = Content & "<td><input type=text name=Pic size=50 maxlength=100 value='" & WRMPS.CheckStr(Rs("WM_DefaultPicUrl"), 5) & "'><br>"
      WM_DefaultPicUrl = Rs("WM_DefaultPicUrl")
	  If IsNull(WM_DefaultPicUrl) = False and WM_DefaultPicUrl <> "" Then Content = Content & "<script>PicReset('"&WRMPS.CheckStr(WM_DefaultPicUrl,5)&"')</script>"
      Content = Content & "<select name=PicSelect onChange=PicReset(this.value)>" & vbCrLf
	  If IsNull(WM_DefaultPicUrl) = False and WM_DefaultPicUrl <> "" Then
	    Content = Content & "<option value='"&WRMPS.CheckStr(WM_DefaultPicUrl,5)&"' selected>"&WRMPS.CheckStr(WM_DefaultPicUrl,5)&"</option>" & vbCrLf
	  Else
        Content = Content & "<option value='' >还没有上传图片</option>" & vbCrLf
	  End If
      Content = Content & "</select><br><input type='checkbox' name='WM_DefaultShow' value=1 class=radio" & WRMPS.GetCheckVer(1, Rs("WM_DefaultShow"), 1) & ">作为头条文章，用于在首页及频道首页的图片文章处显示，文章图片为空则无效</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2 id=ArticleContent1"
      If Rs("WM_LinkUrl") <> "" Then Content = Content & " style='DisPlay:none'"