📄 article_add.asp
字号:
EditorList = "<option value="""" selected> </option><option value="""" style=""color:red"">清空</option>"
Set OriginRS = conn.Execute("Select * FROM [KS_Origin] Where ChannelID=1 And OriginType=2 Order BY AddDate Desc")
If Not OriginRS.EOF Then
Do While Not OriginRS.EOF
EditorList = EditorList & "<option value=""" & OriginRS("OriginName") & """>" & OriginRS("OriginName") & "</option>"
OriginRS.MoveNext
Loop
End If
OriginRS.Close:Set OriginRS = Nothing
'取得模板列表
TemplateSql = "Select TemplateID,TemplateName,IsDefault From KS_Template Where ChannelID=1 And TemplateType=3 Order By TemplateID" '3文章内容页模板
Set TemplateRS = conn.Execute(TemplateSql)
If TemplateRS.EOF And TemplateRS.BOF Then
TemplateList = "<option value=0>请先添加文章模板</option>"
Else
Do While Not TemplateRS.EOF
If CInt(TemplateRS(0)) = CInt(ArticleTemplateID) Then
TemplateList = TemplateList & "<option value=" & TemplateRS(0) & " selected>" & TemplateRS(1) & "</option>"
Else
TemplateList = TemplateList & "<option value=" & TemplateRS(0) & ">" & TemplateRS(1) & "</option>"
End If
TemplateRS.MoveNext
Loop
End If
TemplateRS.Close:Set TemplateRS = Nothing
.Write "<html>"
.Write "<head>"
.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
.Write "<title>添加文章</title>"
.Write "<link href='../Inc/Admin_Style.CSS' rel='stylesheet' type='text/css'>"
.Write "<script language='JavaScript' src='../JS/Common.js'></script>"
.Write "<script language='JavaScript' src='../Common/ArticleAdd.JS'></script>"
.Write "</head>"
.Write "<body leftmargin='0' topmargin='0' marginwidth='0' onkeydown='if (event.keyCode==83 && event.ctrlKey) SubmitFun();' marginheight='0'>"
.Write "<div align='center'>"
.Write " <TABLE width='100%' height='100%' BORDER='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse'>"
.Write " <form action='?Method=Save&ArticleFsoType=" & ArticleFsoType & "' method='post' name='NewsForm' onsubmit='return(SubmitFun())'>"
.Write " <input type='hidden' value='" & NewsID & "' name='NewsID'>"
.Write " <input type='hidden' value='" & Action & "' name='Action'>"
.Write " <input type='hidden' ID='Content' name='Content' value=""" & Server.HTMLEncode(ArticleContent) & """>"
.Write " <input type='hidden' name='Page' value='" & Page & "'>"
.Write " <input type='hidden' name='DisplayMode' value='" & DisplayMode & "'>"
.Write " <input type='hidden' name='ParentID' value='" & ParentID & "'>"
.Write " <input type='hidden' name='KeyWord' value='" & KeyWord & "'>"
.Write " <input type='hidden' name='SearchType' value='" & SearchType & "'>"
.Write " <Input type='hidden' name='StartDate' value='" & StartDate & "'>"
.Write " <input type='hidden' name='EndDate' value='" & EndDate & "'>"
'收集签收文章的参数
.Write " <Input type='hidden' name='ArticleStatus' value='" & KSCMS.G("ArticleStatus") & "'>"
.Write " <input type='hidden' name='ArticleID' value='" & KSCMS.G("ID") & "'>"
.Write " <input type='hidden' name='ArticleInput' value='" &ArticleInput & "'>"
.Write " <TR>"
.Write " <TD WIDTH='100%'>"
.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0' bordercolor='#111111' style='border-collapse: collapse'>"
.Write " <tr style='height:25px'>"
.Write " <td height='25' nowrap> <div align='right'><font color='#FF0000'>简短标题 </font></div></td>"
.Write " <td height='25' nowrap> <select name='TitleType' id='TitleType' style='border-style: solid; border-width: 1'>"
.Write " <option></option>"
If TitleType = "[图文]" Then
.Write " <option selected>[图文]</option>"
Else
.Write " <option>[图文]</option>"
End If
If TitleType = "[组图]" Then
.Write " <option selected>[组图]</option>"
Else
.Write " <option>[组图]</option>"
End If
If TitleType = "[推荐]" Then
.Write " <option selected>[推荐]</option>"
Else
.Write " <option>[推荐]</option>"
End If
If TitleType = "[注意]" Then
.Write " <option selected>[注意]</option>"
Else
.Write " <option>[注意]</option>"
End If
.Write " </select>"
.Write " <input name='title' type='text' style='background:url(../Images/rule.gif);border-style: solid; border-width: 1' value='" & Title & "' size=50>"
.Write " <font color='#FF0000'>*</font> <select name='TitleFontColor' id='TitleFontColor' style='border-style: solid; border-width: 1'>"
.Write " <option value='' selected>颜色</option>"
.Write " <option value=''>默认</option>"
.Write " <option value='#000000'"
If TitleFontColor = "#000000" Then .Write (" selected")
.Write " style='background-color:#000000'></option>"
.Write " <option value='#FFFFFF'"
If TitleFontColor = "#FFFFFF" Then .Write (" selected")
.Write " style='background-color:#FFFFFF'></option>"
.Write " <option value='#008000'"
If TitleFontColor = "#008000" Then .Write (" selected")
.Write " style='background-color:#008000'></option>"
.Write " <option value='#800000'"
If TitleFontColor = "#800000" Then .Write (" selected")
.Write " style='background-color:#800000'></option>"
.Write " <option value='#808000"
If TitleFontColor = "#808000" Then .Write (" selected")
.Write " style='background-color:#808000'></option>"
.Write " <option value='#000080'"
If TitleFontColor = "#000080" Then .Write (" selected")
.Write " style='background-color:#000080'></option>"
.Write " <option value='#800080'"
If TitleFontColor = "#800080" Then .Write (" selected")
.Write " style='background-color:#800080'></option>"
.Write " <option value='#808080'"
If TitleFontColor = "#808080" Then .Write (" selected")
.Write " style='background-color:#808080'></option>"
.Write " <option value='#FFFF00'"
If TitleFontColor = "#FFFF00" Then .Write (" selected")
.Write " style='background-color:#FFFF00'></option>"
.Write " <option value='#00FF00'"
If TitleFontColor = "#00FF00" Then .Write (" selected")
.Write " style='background-color:#00FF00'></option>"
.Write " <option value='#00FFFF'"
If TitleFontColor = "#00FFFF" Then .Write (" selected")
.Write " style='background-color:#00FFFF'></option>"
.Write " <option value='#FF00FF'"
If TitleFontColor = "#FF00FF" Then .Write (" selected")
.Write " style='background-color:#FF00FF'></option>"
.Write " <option value='#FF0000'"
If TitleFontColor = "#FF0000" Then .Write (" selected")
.Write " style='background-color:#FF0000'></option>"
.Write " <option value='#0000FF'"
If TitleFontColor = "#0000FF" Then .Write (" selected")
.Write " style='background-color:#0000FF'></option>"
.Write " <option value='#008080'"
If TitleFontColor = "#008080" Then .Write (" selected")
.Write " style='background-color:#008080'></option>"
.Write " </select> <select name='TitleFontType' id='TitleFontType'>"
.Write " <option value=''>字形</option>"
If TitleFontType = "1" Then
.Write " <option value='1' selected>粗体</option>"
Else
.Write " <option value='1'>粗体</option>"
End If
If TitleFontType = "2" Then
.Write " <option value='2' selected>斜体</option>"
Else
.Write " <option value='2'>斜体</option>"
End If
If TitleFontType = "3" Then
.Write " <option value='3' selected>粗+斜</option>"
Else
.Write " <option value='3'>粗+斜</option>"
End If
If TitleFontType = "0" Then
.Write " <option value='0' selected>规则</option>"
Else
.Write " <option value='0'>规则</option>"
End If
.Write " </select> "
.Write " <input name='ShowComment' type='checkbox' id='ShowComment' value='1'"
If ShowComment = 1 Then .Write (" Checked")
.Write ">"
.Write "文章列表标题旁显示评论链接"
.Write "</td>"
.Write " </tr>"
.Write " <tr style='height:25px'>"
.Write " <td height='25' width='8%' nowrap> <div align='right'>完整标题 </div></td>"
.Write " <td height='25' width='92%' nowrap> <input name='Fulltitle' type='text' id='Fulltitle' size='80' value='" & Fulltitle & "' style='border-style: solid; border-width: 1'>"
If PicNews = 1 Then
.Write ("<input name='PicNews' type='checkbox' id='PicNews' value='1' onclick='ShowPicNews()' Checked>")
Else
.Write ("<input name='PicNews' type='checkbox' id='PicNews' value='1' onclick='ShowPicNews()'>")
End If
.Write " <font color='#FF0000'>将此文转为图片文章</font></td>"
.Write " </tr>"
.Write " <tr style='height:25px'>"
.Write " <td height='25' width='8%' nowrap> <div align='right'>副 标 题 </div></td>"
.Write " <td height='25' width='92%' nowrap> <input name='subtitle' type='text' id='subtitle' size='80' value='" & Subtitle & "' style='border-style: solid; border-width: 1'> 可选"
.Write " </td>"
.Write " </tr>"
.Write " <tr id=trpic style='width:25px;display:none'>"
.Write " <td colspan='2'>"
.Write " <table border='0' width='100%'><tr>"
.Write " <td height='25' width='8%' nowrap> <div align='right'>图片地址 </div></td>"
.Write " <td height='25' width='92%' nowrap><input name='PicUrl' type='text' id='PicUrl' size='60' value='" & PicUrl & "' style='border-style: solid; border-width: 1'>"
.Write " <input type='button' name='Submit' value='选择图片...' onClick=""OpenThenSetValue('../Dialog/SelectPic.asp?ChannelID=1&CurrPath=" & CurrPath & "',550,290,window,document.NewsForm.PicUrl);""> <input type='button' name='Submit' value='远程抓取图片...' onClick=""OpenThenSetValue('../Dialog/Frame.asp?FileName=SaveBeyondfile.asp&PageTitle=抓取远程图片&ItemName=图片&CurrPath=" & CurrPath & "',300,100,window,document.NewsForm.PicUrl);"">"
.Write " </td>"
.Write " </tr>"
If CBool(UpPowerFlag) = True Then
.Write " <tr style='height:25px'>"
.Write " <td height='25' width='8%' align='center' nowrap> <font color=blue>上传图片</font></td>"
.Write " <td height='25' width='92%' align='left'><iframe id='UpPhotoFrame' name='UpPhotoFrame' src='Article_UpPhotoForm.asp' frameborder=0 scrolling=no width='100%' height='100%'></iframe>"
.Write " </td>"
.Write " </tr>"
End If
.Write " </table></td>"
.Write " </tr>"
.Write " <tr>"
.Write " <td height='25' colspan='2' nowrap><div align='right'>"
.Write " <table width='100%' border='0' cellpadding='0' cellspacing='0' height='20'>"
.Write " <tr>"
.Write " <td width='60' height='26' align='center' class='Selected' id='ArticleList' onClick='ChangeFolder(this);'>文章内容</td>"
.Write " <td width='5' height='26' align='center' class='ToolBarButtonLine' style='cursor:default;'> </td>"
.Write " <td width='60' height='26' align='center' class='Default' id='ArticleAttribute' onClick='ChangeFolder(this);'>高级选项</td>"
.Write " <td width='5' height='26' align='center' class='ToolBarButtonLine' style='cursor:default;'> </td>"
.Write " <td width='60' height='26' align='center' class='Default' id='ArticlePoint' onClick='ChangeFolder(this);'>收费选项</td>"
.Write " <td height='26' class='ToolBarButtonLine'>"
.Write " <table width='100%' border='0' cellspacing='0' cellpadding='0'>"
.Write " <tr>"
.Write " <td width='2%'><div align='right'></div></td>"
.Write " <td width='98%'>"
If Changes = 1 Then
.Write ("<input name='Changes' type='checkbox' Checked id='Changes' value='1' onclick='ChangesNews()'><font color='#FF0000'>转向链接</font>")
Else
.Write ("<input name='Changes' type='checkbox' id='Changes' value='1' onclick='ChangesNews()'><font color='#FF0000'> 转向链接</font>")
End If
.Write " <input name='Recommend' type='checkbox' id='Recommend' value='1'"
If Recommend = 1 Then .Write (" Checked")
.Write ">"
.Write " 推荐"
.Write " <input name='Rolls' type='checkbox' id='Rolls' value='1'"
If Rolls = 1 Then .Write (" Checked")
.Write ">"
.Write " 滚动"
.Write " <input name='Strip' type='checkbox' id='Strip' value='1'"
If Strip = 1 Then .Write (" Checked")
.Write ">"
.Write " 头条"
.Write " <input name='Popular' type='checkbox' id='Popular' value='1'"
If Popular = 1 Then .Write (" Checked")
.Write ">"
.Write " 热门"
.Write " <input name='Verific' type='checkbox' id='Verific' value='1'"
If Action <> "Edit" Then
.Write (" checked")
ElseIf Verific = 1 Then
.Write (" Checked")
End If
.Write ">"
.Write " 已审核"
.Write " <input name='Comment' type='checkbox' id='Comment' value='1'"
If Comment = 1 Then .Write (" Checked")
.Write ">"
.Write " 允许评论"
.Write " <input name='Slide' type='checkbox' id='Slide' value='1'"
If Action <> "Edit" Then
.Write (" disabled=true")
ElseIf PicNews <> 1 Then
.Write (" disabled=true")
ElseIf Slide = 1 Then
.Write (" Checked")
End If
.Write ">"
.Write " 幻灯"
.Write " <input name='BeyondSavePic' type='checkbox' id='BeyondSavePic' value='1'>"
.Write " 存图"
.Write " <input type='checkbox' name='MakeHtml' value='1' checked>"
.Write " 发布</td>"
.Write " </tr>"
.Write " </table></td>"
.Write " </tr>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -