📄 wm.article.asp
字号:
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()
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
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_Hot,WM_Commend,WM_Grade,WM_Hit,WM_AddTime,WM_ClassDir,WM_Charge,WM_RepeatCharge,WM_TempID from WM_Article Where WM_ID = " & WM_ID & " and WM_ChannelID = " & ChannelID & "", Conn, 1, 3
If Not Rs.Eof Then
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) = WM_AddTime
Rs(22) = WM_ClassDir
Rs(23) = Charge
Rs(24) = RepeatCharge
Rs(25) = TempID
Rs.Update
End If
Rs.Close
Set ClsCre = New Cls_Create
Call ClsCre.CreArticle("CRE",WM_ID,1)
Set ClsCre = Nothing
Call WRMPS.ErrView("·文章修改成功<br>·<a href=?ClassID=" & WRMPS.CheckStr(Request("ClassID"), 1) & "&ChannelID=" & ChannelID & "&SearchKey="&SearchKey&"&Page=" & WRMPS.CheckStr(Request("Page"), 1) & "&sID=" & sID & ">返回列表页</a><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 & "<table width='100%' cellpadding=0 cellspacing=0>" & 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 class=td2 height=5></td></tr>" & vbCrLf
Content = Content & "<tr><td class=td2>" & vbCrLf
Content = Content & "<TABLE border=0 cellspacing=0 cellpadding=0><TR>" & vbCrLf
Content = Content & "<TD width=5 height=22></TD><TD width=72 background='Img/Label.gif' id=tit1 onClick=""dis(tit1,show1,3,'Label')"" Class=Label1>基本设置</TD>" & vbCrLf
Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit2 onClick=""dis(tit2,show2,3,'Label')"" Class=Label>高级选项</TD>" & vbCrLf
Content = Content & "<TD width=2></TD><TD width=72 background='Img/Label_1.gif' id=tit3 onClick=""dis(tit3,show3,3,'Label')"" Class=Label>收费选项</TD>" & vbCrLf
Content = Content & "<TD width=*></TD></TR></TABLE>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "<tr ID=show1><td>" & vbCrLf
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td4><td colspan=2><strong>基本设置</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='20%'><strong>所属栏目</strong></td>" & vbCrLf
Content = Content & "<td width='80%'>" & wrmps.SelectSort(1,ChannelID,0,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' style='width:300' maxlength=50 Class=TitInput> <font Class=Font2>*</font>" & vbCrLf
Content = Content & "<select name='WM_TitleColor' id='TitleFontColor'>" & vbCrLf
Content = Content & "<option value=''>默认</option>" & vbCrLf
Content = Content & "<option value='#000000' style='background-color:#000000'></option>" & vbCrLf
Content = Content & "<option value='#FFFFFF' style='background-color:#FFFFFF'></option>" & vbCrLf
Content = Content & "<option value='#008000' style='background-color:#008000'></option>" & vbCrLf
Content = Content & "<option value='#800000' style='background-color:#800000'></option>" & vbCrLf
Content = Content & "<option value='#808000' style='background-color:#808000'></option>" & vbCrLf
Content = Content & "<option value='#000080' style='background-color:#000080'></option>" & vbCrLf
Content = Content & "<option value='#800080' style='background-color:#800080'></option>" & vbCrLf
Content = Content & "<option value='#808080' style='background-color:#808080'></option>" & vbCrLf
Content = Content & "<option value='#FFFF00' style='background-color:#FFFF00'></option>" & vbCrLf
Content = Content & "<option value='#00FF00' style='background-color:#00FF00'></option>" & vbCrLf
Content = Content & "<option value='#00FFFF' style='background-color:#00FFFF'></option>" & vbCrLf
Content = Content & "<option value='#FF00FF' style='background-color:#FF00FF'></option>" & vbCrLf
Content = Content & "<option value='#FF0000' style='background-color:#FF0000'></option>" & vbCrLf
Content = Content & "<option value='#0000FF' style='background-color:#0000FF'></option>" & vbCrLf
Content = Content & "<option value='#008080' style='background-color:#008080'></option>" & vbCrLf
Content = Content & "</select>" & vbCrLf
Content = Content & "<select name='WM_TitleFont' id='TitleFontType'>" & vbCrLf
Content = Content & "<option value='0'>规则</option>" & vbCrLf
Content = Content & "<option value='1'>粗体</option>" & vbCrLf
Content = Content & "<option value='2'>斜体</option>" & vbCrLf
Content = Content & "<option value='3'>粗+斜</option>" & vbCrLf
Content = Content & "</select><br>" & vbCrLf
Content = Content & "完整标题：<input name='WM_TitleIntact' type='text' style='width:485' 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 type='checkbox' name='WM_UseLinkUrl' value=1 class=radio onClick='WM_LinkCheck()'> 使用转向连接 <input name='WM_LinkUrl' type='text' style='width:250' 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:600;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=1',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='WM_Content' value=''><IFRAME ID=EditContent SRC='../Plus/Edit/edit.asp?ID=WM_Content&sMode=EDIT&savepathfilename=d_savepathfilename&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><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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -