📄 admin_newsadd2.asp
字号:
<%PageName="admin_NewsMana"%>
<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<%
founderr=false
BigClassName=Request("BigClassName")
if BigClassName="" then
errmsg=errmsg+"<li>你没有选择大类。"
founderr=true
end if
SmallclassName=Request("SmallclassName")
if SmallclassName="" then
errmsg=errmsg+"<li>你没有选择小类。"
founderr=true
end if
if founderr=true then
call error()
else
sql="select top 1 Original,Author from news order by newsid"
rs.Open sql,conn,1,1
if not rs.eof then
preOriginal=rs("Original")
preAuthor=rs("Author")
end if
rs.close
%>
<script language="JavaScript">
<!--
function Original(tag){
var f=document.form1.Original
f.value=tag+f.value
f.focus()
}
function clear1(){
document.form1.Original.value=""
document.form1.Original.focus()
}
function Author(tag){
var f=document.form1.Author
f.value=tag+f.value
f.focus()
}
function clear2(){
document.form1.Author.value=""
document.form1.Author.focus()
}
function checkForm(){
if (document.form1.txttitle.value.length == 0) {
alert("请输入文章标题.");
document.form1.txttitle.focus();
return false;
}
document.form1.content.value=document.form1.doc_html.value;
return true
}
//-->
</script>
<table border="1" width="760" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgcolor%>">
<tr>
<td valign=top>
<form method="POST" action="admin_NewsAdd3.asp" name="form1" onSubmit="return checkForm()">
<table border="0" cellspacing="0" width="100%" bordercolorlight="#000000" bordercolordark="#FFFFFF" cellpadding="0" bgcolor="#000000">
<tr align="center">
<td width="100%">
<table border="0" cellspacing="1" width="100%" cellpadding="3">
<tr align="center">
<td height="20" colspan=3 align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>添
加 文 章</b> </td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF">所属大类：</td>
<input type=hidden name="BigClassName" value='<%=BigClassName%>'>
<td bgcolor="#FFFFFF"> <%=BigClassName%></td>
<td bgcolor="#FFFFFF" align="center" width="10%">
<input type="button" name="ok2" value=" 退 出 " onClick='top.location.href="admin_NewsAdd1.asp"'>
</td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF"> 所属小类：</td>
<td bgcolor="#FFFFFF" colspan="2"> <%=SmallClassName%>
<input type=hidden name="SmallClassName" value='<%=SmallClassName%>'>
</td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF">所属专题：</td>
<td bgcolor="#FFFFFF" colspan="2">
<select name="SpecialName" size="1">
<%
sql="select * from Special order by SpecialID"
rs.Open sql,conn,1,1
%>
<option value="无">不属于任何专题</option>
<%if rs.EOF then %>
<option value="无" selected>暂无任何专题</option>
<%else
while not rs.EOF
%>
<option value="<%=rs("SpecialName")%>"><%=rs("SpecialName")%></option>
<%
rs.MoveNext
wend
end if
rs.close
%>
</select>
</td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF"><font color="#FF0000">＊</font>标题：</td>
<td bgcolor="#FFFFFF" colspan="2"> <span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<input name="txttitle" id=me type="TEXT" size=60 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span>
</td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF"> <font color="#FF0000">转向链接：</font></td>
<td bgcolor="#FFFFFF" colspan="2"> <span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<input name="titleurl" id=me type="TEXT" size=60 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span>
<font color="#FF0000">有链接时，下四行勿录入</font></td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="10%" align="right" Class="unnamed2" valign="middle">文章来源：</td>
<td colspan="2"> <span style='cursor:hand' title='缩短对话框' onClick='if (message.size>10)message.size=message.size-2'>-</span>
<input name="Original" id=message type="TEXT" size=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (message.size<102)message.size=message.size+2'>+</span>
[<a href="javascript:Original('<%=preOriginal%>')">上一记录</a>]
[<a href="javascript:Original('<%=webTitle%>')">默认值</a>]
[<a href="javascript:clear1()">清空</a>] </td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="10%" align="right" Class="unnamed2" valign="middle">文章作者：</td>
<td colspan="2"><span style='cursor:hand' title='缩短对话框' onClick='if (mess.size>10)mess.size=mess.size-2'>-</span>
<input name="Author" id=mess type="TEXT" size=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onClick='if (mess.size<102)mess.size=mess.size+2'>+</span>
[<a href="javascript:Author('<%=preAuthor%>')">上一记录</a>]
[<a href="javascript:clear2()">清空</a>] </td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="10%" align="right">文章模版：</td>
<td colspan="2">
<select name="model">
<option value="0">默认模版</option>
<option value="1">文章模版一</option>
<option value="2">文章模版二</option>
</select>
默认为：shownews.asp，新的模版命名方法：shownews*.asp，其中*表示从1开始的整数。</td>
</tr>
<tr>
<td width="10%" align="right" valign="top" Class="unnamed2" bgcolor="#CCCCFF">文章内容：</td>
<td bgcolor="menu"> <object id=doc_html style="LEFT: 0px; TOP: 0px" data=editor.html width=544 height=320 type=text/x-scriptlet VIEWASTEXT>
</object>
<input type="hidden" name="content" value="" >
</td>
<td bgcolor="menu" valign="top">提示： <br>
1.你可以直接从网页上复印任何已有格式的文字、表格和图片（甚至FLASH）。 <br>
2.粘贴含有特有代码的WORD文档可能会出错。 </td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF">相关文章：</td>
<td bgcolor="#FFFFFF" colspan="2"><span style='cursor:hand' title='缩短对话框' onclick='if (ss.size>10)ss.size=ss.size-2'>-</span>
<INPUT NAME="about" id=ss TYPE="TEXT" SIZE=30 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double">
<span style='cursor:hand' title='加长对话框' onclick='if (ss.size<102)ss.size=ss.size+2'>+</span>
填入关键字或完整标题 提示：积极输入可使你的网页内容更丰富。</td>
</tr>
<tr>
<td width="10%" align="right" valign="middle" class="unnamed2" bgcolor="#FFFFFF">文章属性：</td>
<td valign="middle" bgcolor="#FFFFFF" colspan="2"> 焦点文章：
<input type="checkbox" name="FocusNews">
推荐文章：
<input type="checkbox" name="goodnews">
热点文章：
<input type="checkbox" name="hot">
<%if Session("KEY")<>"input" then%>
文章固顶：
<input type="checkbox" name="OnTop">
<%end if%>
</td>
</tr>
<%if OpenCheck=1 then
if Session("KEY")<>"input" then%>
<tr>
<td width="10%" align="right" bgcolor="#FFFFFF">通过审核：</td>
<td bgcolor="#FFFFFF" colspan="2">
<input type="checkbox" name="checked">
</td>
</tr>
<%end if
end if%>
<tr>
<td width="10%" align="right" bgcolor="#FFFFFF">图片张数：</td>
<td bgcolor="#FFFFFF" valign="middle" colspan="2">
<input name="image" type="TEXT" size=2 maxlength=2 style="background-color:ffffff;color:000000;border: 1 double" value=0>
使用<img src="images/haveimg.gif">插入代码的图片总数（即序号"N"最大值），热点图片只认二中代码。</td>
</tr>
<tr>
<td width="10%" align="right" bgcolor="#FFFFFF">发布时间：</td>
<td bgcolor="#FFFFFF" colspan="2">
<input name="updatetime" type="TEXT" size=20 maxlength=20 style="background-color:ffffff;color:000000;border: 1 double" value="<%=now()%>">
当前时间为：<%=now()%> 注意不要改变格式。</td>
</tr>
<tr>
<td height="25" colspan=3 align="center" bgcolor="#FFFFFF">
<font color="#FF0000">注：当可视化编辑器出现图标显示不全的问题，请重新进入，否则保存后内容会消失。</font></td>
</tr>
<tr>
<td height="20" colspan=3 align=center bgcolor="#FFFFFF">
<input type="submit" value=" 添 加 "
name="cmdok" Class="unnamed5">
<input type="reset" value=" 重 写 "
name="cmdcancel" Class="unnamed5">
<input type="button" name="ok" value=" 退 出 " OnClick='top.location.href="admin_NewsAdd1.asp"'>
<input type="button" value="计算字数" onClick="alert('本篇文章内容共 '+document.form1.doc_html.value.length+' 字节')" name="submit1">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
end if
set rs=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -