📄 article_add.asp
字号:
.Write " </table>"
.Write " </td>"
.Write " </tr>"
.Write " </table>"
.Write " </TD>"
.Write " </TR>"
.Write " <TR ID='ContentArea'>"
.Write " <TD colspan='2' valign='top' nowrap height='100%'><iframe id='ArticleContent' name='ArticleContent' src='../Editor.asp?ID=Content&style=1&ChannelID=1' frameborder=0 scrolling=no width='100%' height='100%'></iframe></TD>"
.Write " </TR>"
.Write " <TR id='AttributeArea' style='display:none;'>"
.Write " <TD height='100%' valign='top'>"
.Write " <table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'>"
.Write " <tr id='ContentLink' style='display:none;'>"
.Write " <td colspan='2' valign='top' nowrap>"
.Write " <table width='90%' border='0' align='center' cellpadding='0' cellspacing='0'>"
.Write " <tr>"
.Write " <td> </td>"
.Write " <td> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td width='12%'><div align='center'>链接地址: </div></td>"
.Write " <td width='88%'>"
If ChangesUrl = "" Then
.Write ("<input name='ChangesUrl' type='text' id='ChangesUrl' value='http://' size='40' style='border-style: solid; border-width: 1'>")
Else
.Write ("<input name='ChangesUrl' type='text' id='ChangesUrl' value='" & ChangesUrl & " ' size='40' style='border-style: solid; border-width: 1'>")
End If
.Write " 输入文章的链接url</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='30' colspan='2'> <div align='left'>"
.Write " <font color='#FF0000'>使用转向链接，以下各项填写无效</a></font></div></td>"
.Write " </tr>"
.Write " </table>"
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td width='13%' height=30 align='center' nowrap>所属栏目:</td>"
.Write " <td width='87%' height='30' nowrap> <select size='1' name='tid'>"
.Write TypeList & " </select> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=30 align='center' nowrap>所属专题:</td>"
.Write " <td height='30' nowrap> <input name='Special1' type='text' id='Special1' style='border-style: solid; border-width: 1' size='50' readonly>"
.Write " <= <select name='SpecialID' size='1' id='SpecialID' onChange='if (this.options[this.selectedIndex].text==""清空""){document.NewsForm.Special1.value="""";}else{document.NewsForm.Special1.value=this.options[this.selectedIndex].text;}' style='width:150px'>"
.Write Speciallist
.Write " </select></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height=30 align='center' nowrap> <div align='center'>关键字:</div></td>"
.Write " <td height='30' nowrap> <input name='KeyWords' type='text' id='KeyWords' style='border-style: solid; border-width: 1' value='" & KeyWords & "' size=50> <="
.Write " <select name='SelKeyWords' style='width:150px' onChange='InsertKeyWords(document.NewsForm.KeyWords,this.options[this.selectedIndex].value)'>"
.Write KeyWordList
.Write " </select></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='24' align='center' nowrap height=30> <div align='center'>文章作者:</div></td>"
.Write " <td height='30' nowrap> <input name='author' type='text' id='author' value='" & Author & "' size=50 style='border-style: solid; border-width: 1'> <=【<font color='blue'><font color='#993300' onclick='document.NewsForm.author.value=""未知""' style='cursor:hand;'>未知</font></font>】【<font color='blue'><font color='#993300' onclick=""document.NewsForm.author.value='佚名'"" style='cursor:hand;'>佚名</font></font>】【<font color='blue'><font color='red' onclick=""document.NewsForm.author.value='" & Request.Cookies(KSCMS.SiteSn)("AdminName") & "'"" style='cursor:hand;'>" & Request.Cookies(KSCMS.SiteSn)("AdminName") & "</font></font>】"
If Author <> "" And Author <> "未知" And Author <> Request.Cookies(KSCMS.SiteSn)("AdminName") And Author <> "佚名" Then
.Write ("【<font color='blue'><font color='#993300' onclick=""document.NewsForm.author.value='" & Author & "'"" style='cursor:hand;'>" & Author & "</font></font>】")
End If
.Write ("<select name='SelAuthor' style='width:100px' onChange=""document.NewsForm.author.value=this.options[this.selectedIndex].value"">")
.Write (AuthorList)
.Write " </select> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='24' align='center' nowrap height=30>文章来源:</td>"
.Write " <td height='30' nowrap> <input name='Origin' type='text' id='Origin' value='" & Origin & "' size=50 style='border-style: solid; border-width: 1'> <=【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Origin.value='不详'"" style='cursor:hand;'>不详</font></font>】【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Origin.value='本站原创'"" style='cursor:hand;'>本站原创</font></font>】【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Origin.value='互联网'"" style='cursor:hand;'>互联网</font></font>】"
If Origin <> "" And Origin <> "不详" And Origin <> "本站原创" And Origin <> "互联网" Then
.Write ("【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Origin.value='" & Origin & "'"" style='cursor:hand;'>" & Origin & "</font></font>】 ")
End If
.Write ("<select name='selOrigin' style='width:100px' onChange=""document.NewsForm.Origin.value=this.options[this.selectedIndex].value"">")
.Write (OriginList)
.Write " </select> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>责任编辑:</td>"
.Write " <td height='30' nowrap> <input name='Editor' type='text' id='Editor' value='" & Editor & "' size='50' style='border-style: solid; border-width: 1'> <=【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Editor.value='未知'"" style='cursor:hand;'>未知</font></font>】【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Editor.value='佚名'"" style='cursor:hand;'>佚名</font></font>】【<font color='blue'><font color='red' onclick=""document.NewsForm.Editor.value='" & Request.Cookies(KSCMS.SiteSn)("AdminName") & "'"" style='cursor:hand;'>" & Request.Cookies(KSCMS.SiteSn)("AdminName") & "</font></font>】"
If Editor <> "" And Editor <> "未知" And Editor <> Request.Cookies(KSCMS.SiteSn)("AdminName") Then
.Write "【<font color='blue'><font color='#993300' onclick=""document.NewsForm.Editor.value='" & Editor & "'"" style='cursor:hand;'>" & Editor & "</font></font>】"
End If
.Write " <select name='selEditor' style='width:100px' onChange='document.NewsForm.Editor.value=this.options[this.selectedIndex].value'>"
.Write EditorList
.Write " </select> </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>添加日期:</td>"
.Write " <td height='30' nowrap>"
If Action <> "Edit" Then
.Write ("<input name='AddDate' type='text' id='AddDate' value='" & Now() & "' size='50' readonly style='border-style: solid; border-width: 1'>")
Else
.Write ("<input name='AddDate' type='text' id='AddDate' value='" & AddDate & "' size='50' readonly style='border-style: solid; border-width: 1'>")
End If
.Write " <b><a href='#' onClick=""OpenThenSetValue('../Dialog/DateDialog.asp?shownow=true',200,110,window,document.NewsForm.AddDate);document.NewsForm.AddDate.focus();""><img src='../Images/date.gif' width='20' height='20' border='0' align='absmiddle' title='选择日期'></a>"
.Write " </b></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>文章等级:</td>"
.Write " <td height='30' nowrap><select name='rank'>"
If Rank = "★" Then
.Write " <option selected>★</option>"
Else
.Write " <option>★</option>"
End If
If Rank = "★★" Then
.Write " <option selected>★★</option>"
Else
.Write " <option>★★</option>"
End If
If Rank = "★★★" Or Action = "Add" Then
.Write " <option selected>★★★</option>"
Else
.Write " <option>★★★</option>"
End If
If Rank = "★★★★" Then
.Write " <option selected>★★★★</option>"
Else
.Write " <option>★★★★</option>"
End If
If Rank = "★★★★★" Then
.Write " <option selected>★★★★★</option>"
Else
.Write " <option>★★★★★</option>"
End If
.Write " </select>"
.Write " 请为文章评定阅读等级</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>初始点击数:</td>"
.Write " <td height='30' nowrap><input name='Hits' type='text' id='Hits' value='" & Hits & "' size='30' style='border-style: solid; border-width: 1'>"
.Write " 文章浏览数作弊</td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>文章模板:</td>"
.Write " <td height='30' nowrap> <select name='TemplateID' id='TemplateID' style='border-style: solid; border-width: 1'>"
.Write TemplateList
.Write " </select> "
.Write " </td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td align='center' nowrap height=30>生成文件名:</td>"
.Write " <td height='30' nowrap> "
IF Action = "Edit" Then
.Write "<input name='FileName' type='text' id='FileName' readonly value='" & FileName & "' size='25' style='border-style: solid; border-width: 1'> <font color=red>不能改</font>"
Else
.Write "<input name='FileName' type='text' id='FileName' value='" & FileName & "' size='25' style='border-style: solid; border-width: 1'> <font color=red>带路径</font>"
.Write " 生成的扩展名："
.Write KSCMS.GetFsoTypeStr(ArticleFnameType)
End IF
.Write " </td>"
.Write " </tr>"
.Write " </table>"
.Write " </TD>"
.Write " </TR>"
.Write " <TR id='PointArea' style='display:none;'>"
.Write " <TD height='100%' valign='top'><br><br>"
.Write " <table width='98%' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#cccccc'>"
.Write " <tr bgcolor='#ffffff'>"
.Write " <td align='center' width='130' nowrap height=30>阅读权限: </td>"
.Write " <td height='30' nowrap> "
.Write " <input name='InfoPurview' type='radio' value='0'"
if InfoPurview=0 Then .Write " checked"
.Write ">继承栏目权限（当所属栏目为认证栏目时，建议选择此项）<br>"
.Write " <input name='InfoPurview' type='radio' value='1'"
If InfoPurview=1 Then .Write " checked"
.Write ">所有会员（当所属栏目为开放栏目，想单独对某些文章进行阅读权限设置，可以选择此项）<br>"
.Write " <input name='InfoPurview' type='radio' value='2'"
IF InfoPurview=2 Then .Write " Checked"
.Write ">指定会员组（当所属栏目为开放栏目，想单独对某些文章进行阅读权限设置，可以选择此项）<br><hr size=1 color=blue width=""95%"">"
.Write "<table border='0' align=center width='90%'>"
.Write " <tr>"
.Write " <td>"
.Write KSCMS.GetUserGroup_CheckBox(arrGroupID,5)
.Write " </td>"
.Write " </tr></table>"
.Write " <hr size=1 color=blue width=""95%""></td>"
.Write " </tr>"
.Write " <tr bgcolor='#ffffff'>"
.Write " <td align='center' nowrap height=30>阅读点数: </td>"
.Write " <td height='30' nowrap> "
.Write " <input name='ReadPoint' type='text' id='ReadPoint' value='" & ReadPoint & "' size='6' style='text-align:center;border-style: solid; border-width: 1'> 免费阅读请设为 ""<font color=red>0</font>""，否则有权限的会员阅读此文章时将消耗相应点数，游客将无法阅读此文章"
.Write " </td>"
.Write " </tr>"
.Write " <tr bgcolor='#ffffff'>"
.Write " <td align='center' nowrap height=30>重复收费:</td>"
.Write " <td height='30' nowrap> "
.Write " <input name='ChargeType' type='radio' value='0' "
IF ChargeType=0 Then .Write " checked"
.Write" >不重复收费(如果需扣点数文章，建议使用)<br>"
.Write "<input name='ChargeType' type='radio' value='1'"
IF ChargeType=1 Then .Write " checked"
.write ">距离上次收费时间 <input name='PitchTime' type='text' value='" & PitchTime & "' size='8' maxlength='8' style='text-align:center'> 小时后重新收费<br> <input name='ChargeType' type='radio' value='2'"
IF ChargeType=2 Then .Write " checked"
.write ">会员重复阅读此文章 <input name='ReadTimes' type='text' value='" & ReadTimes & "' size='8' maxlength='8' style='text-align:center'> 页次后重新收费<br> <input name='ChargeType' type='radio' value='3'"
IF ChargeType=3 Then .Write " checked"
.write ">上述两者都满足时重新收费<br> <input name='ChargeType' type='radio' value='4'"
IF ChargeType=4 Then .Write " checked"
.write ">上述两者任一个满足时就重新收费<br> <input name='ChargeType' type='radio' value='5'"
IF ChargeType=5 Then .Write " checked"
.write ">每阅读一页次就重复收费一次（建议不要使用,多页文章将扣多次点数）"
.Write " </td>"
.Write " </tr>"
.Write " <tr bgcolor='#ffffff' style=""display:none"">"
.Write " <td align='center' nowrap height=30>分成比例: </td>"
.Write " <td height='30' nowrap> "
.Write " <input name='DividePercent' type='text' id='DividePercent' value='" & DividePercent & "' size='6' style='text-align:center;border-style: solid; border-width: 1'>% 如果比例大于0，则将按比例把向阅读者收取的点数支付给投稿者 "
.Write " </td>"
.Write " </tr>"
.Write " </table>"
.Write " </TD>"
.Write " </TR>"
.Write " </form>"
.Write " </TABLE>"
.Write " </div>"
.Write "</body>"
.Write "</html>"
End With
End Sub
'保存
Sub ArticleSave()
With Response
'文章ID
IF Action="Verify" Then
NewsID=KSCMS.G("NewsID")
Else
NewsID = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Now(), "-", ""), " ", ""), ":", ""), "PM", ""), "AM", ""), "上午", ""), "下午", "") & KSCMS.MakeRandom(3)
End If
TitleType = KSCMS.G("TitleType")
Title = KSCMS.G("Title")
Fulltitle=KSCMS.G("Fulltitle")
Subtitle = KSCMS.G("SubTitle")
TitleFontColor = Trim(KSCMS.G("TitleFontColor"))
TitleFontType = Trim(KSCMS.G("TitleFontType"))
ArticleContent=Request.Form("Content")
Hits = KSCMS.G("Hits"):If Hits = "" Then Hits = 0
ShowComment = Trim(KSCMS.G("ShowComment")):If ShowComment = "" Then ShowComment = 0
PicNews = Trim(KSCMS.G("PicNews")):If PicNews = "" Then PicNews = 0
PicUrl = Trim(KSCMS.G("PicUrl"))
Changes = KSCMS.G("Changes"):If Changes = "" Then Changes = 0
Recommend = KSCMS.G("Recommend"):If Recommend = "" Then Recommend = 0
Rolls = KSCMS.G("Rolls"):If Rolls = "" Then Rolls = 0
Strip = KSCMS.G("Strip"):If Strip = "" Then Strip = 0
Popular = KSCMS.G("Popular"):If Popular = "" Then Popular = 0
Verific = KSCMS.G("Verific"):If Verific = "" Then Verific = 0
Slide = KSCMS.G("Slide"):If Slide = "" Then Slide = 0
Comment = KSCMS.G("Comment"):If Comment = "" Then Comment = 0
BeyondSavePic = KSCMS.G("BeyondSavePic"):If BeyondSavePic = "" Then BeyondSavePic = 0
Makehtml = KSCMS.G("Makehtml"):If Makehtml = "" Then Makehtml = 0
FnameType = Trim(KSCMS.G("Fnametype"))
ChangesUrl = Trim(KSCMS.G("ChangesUrl"))
SpecialID = KSCMS.G("SpecialID"):If SpecialID = "" Then SpecialID = 0
Tid = Trim(KSCMS.G("Tid"))
KeyWords = KSCMS.G("KeyWords")
Author = KSCMS.G("Author")
Origin = KSCMS.G("Origin")
Editor = KSCMS.G("Editor")
AddDate = KSCMS.G("AddDate")
Rank = Trim(KSCMS.G("Rank"))
'收费选项
ReadPoint=KSCMS.G("ReadPoint"):IF Not IsNumeric(ReadPoint) Then ReadPoint=0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -