📄 admin_newsmodify.asp
字号:
<%PageName="admin_NewsModify"%>
<!--#include file="session.asp"-->
<%checkAdmin1%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file="top.asp"-->
<%
founderr=false
NewsID=request("NewsID")
if NewsID="" then
errmsg=errmsg+"<li>没有输入文章ID号。"
founderr=true
end if
sql="select * from News where NewsID=" & NewsID
rs.Open sql,conn,1,1
if rs.EOF then
errmsg=errmsg+"<li>该文章不存在。"
founderr=true
else
BigClassName=rs("BigClassName")
SmallClassName=rs("SmallClassName")
Title=rs("Title")
end if
%>
<!--#include file="admin_ManaIn.asp"-->
<%
if founderr=true then
call error()
else
%>
<script language="JavaScript">
<!--
function checkForm()
{
document.form1.content.value=document.form1.doc_html.value;
return true
}
function loadForm()
{
document.form1.doc_html.value=document.form1.content.value;
return true
}
//-->
</script>
<body onload="loadForm()">
<table border="1" width="760" cellspacing="0" cellpadding="1" bgcolor="<%=MainBgColor%>">
<tr>
<td valign=top>
<table border="1" width="100%" cellspacing="0" cellpadding="0" Class="TableLine" bordercolorlight="<%=MainBColor%>" bgcolor="<%=MainCColor%>">
<tr>
<td width="100%" height="20" colspan=2 align=center bgcolor="<%=MainTColor%>" background="images/admin/b3.gif"><b>
修改文章--该文章ID为：<%=NewsID%></b> </td>
</tr>
<tr>
<td width="10%" align=right bgcolor="#FFFFFF">文章大类：</td>
<td width="90%" bgcolor="#FFFFFF"> <%=BigClassName%></td>
</tr>
<tr>
<td width="10%" align=right bgcolor="#FFFFFF">文章小类：</td>
<td width="90%" bgcolor="#FFFFFF"> <%=SmallClassName%></td>
</tr>
<form action=admin_NewsClassEdit.asp?NewsID=<%=NewsID%> method=post>
<tr>
<td width=10% bgcolor="#FFFFFF"></td>
<td width="90%" bgcolor="#FFFFFF">
<input name=btn_Modi_Class type=submit value="修改文章类别">
</td>
</tr>
</form>
<form method="POST" action="admin_NewsModifysave.asp?NewsID=<%=NewsID%>" name="form1" onSubmit="return checkForm()">
<input type=hidden name="BigClassName" value='<%=BigClassName%>'>
<input type=hidden name="SmallClassID" value='<%=SmallClassID%>'>
<tr>
<td width="10%" align="right" bgcolor="#FFFFFF">所属专题：</td>
<td width="90%" bgcolor="#FFFFFF">
<select size="1" name="SpecialName">
<option value="无" <%if rs("SpecialName")="无" then Response.Write "selected"%>>不属于任何专题</option>
<%
set rs3=server.CreateObject ("ADODB.RecordSet")
rs3.Source="select * from Special order by SpecialID"
rs3.Open rs3.source,conn,1,1
if rs3.EOF then %>
<option value=0>暂无任何专题</option>
<%else
while not rs3.EOF
SpecialName=rs3("SpecialName")
%>
<option value=<%=SpecialName%> <%if rs("SpecialName")=rs3("SpecialName") then Response.Write " selected"%>><%=rs3("SpecialName")%></option>
<%
rs3.MoveNext
wend
end if
rs3.close
set rs3=nothing
%>
</select>
</td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章标题：</td>
<td width="90%" bgcolor="#FFFFFF"> <span style='cursor:hand' title='缩短对话框' onClick='if (me.size>10)me.size=me.size-2'>-</span>
<input name="title" id=me type="TEXT" size=60 maxlength=100 style="background-color:ffffff;color:000000;border: 1 double" value="<%=rs("Title")%>">
<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">标题链接：</td>
<td width="90%" bgcolor="#FFFFFF"> <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" value="<%=rs("Titleurl")%>">
<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 width="90%"> <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" value="<%=rs("Original")%>">
<span style='cursor:hand' title='加长对话框' onClick='if (message.size<102)message.size=message.size+2'>+</span>
</td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="10%" align="right" Class="unnamed2" valign="middle">文章作者：</td>
<td width="90%"><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" value="<%=rs("Author")%>">
<span style='cursor:hand' title='加长对话框' onClick='if (mess.size<102)mess.size=mess.size+2'>+</span>
</td>
</tr>
<tr bgcolor="#CCCCFF">
<td width="10%" align="right">文章模版：</td>
<td width="90%">
<select size="1" name="model">
<option value=0 <%if rs("model")=0 or rs("model") ="" then Response.Write "selected"%>>默认方式</option>
<option value=1 <%if rs("model")=1 then Response.Write "selected"%>>文章模版一</option>
<option value=2 <%if rs("model")=2 then Response.Write "selected"%>>文章模版二</option>
</select>
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td valign="top" align="right" bgcolor="#CCCCFF">
<p>文章内容：</p>
</td>
<td valign="top" align="left" 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='<%=replace(rs("content"),"'",""")%>'>
</td>
</tr>
<tr>
<td width="10%" align="right" Class="unnamed2" valign="middle" bgcolor="#FFFFFF">相关文章：</td>
<td width="90%" bgcolor="#FFFFFF"><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" value="<%=trim(rs("about"))%>">
<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 width="90%" valign="middle" bgcolor="#FFFFFF"> 焦点文章：
<input type="checkbox" name="FocusNews" <%if rs("FocusNews")=True then Response.Write "checked"%> value="<%=rs("FocusNews")%>">
推荐文章：
<input type="checkbox" name="goodnews" <%if rs("goodnews")=True then Response.Write "checked"%> value="<%=rs("goodnews")%>">
热点文章：
<input type="checkbox" name="hot" <%if rs("hot")=True then Response.Write "checked"%> value="<%=rs("hot")%>">
</td>
</tr>
<%if Session("KEY")<>"input" and OpenCheck=True then%>
<tr bgcolor="#FFFFFF">
<td width="10%" align="right">通过审核：</td>
<td width="90%">
<input type="checkbox" name="checked" <%if rs("checked")=True then Response.Write "checked"%> value="<%=rs("checked")%>">
</td>
</tr>
<%end if%>
<tr>
<td width="10%" align="right" bgcolor="#FFFFFF">图片张数：</td>
<td bgcolor="#FFFFFF">
<input name="image" id=ss type="TEXT" size=3 maxlength=3 style="background-color:ffffff;color:000000;border: 1 double" value="<%=rs("image")%>">
</td>
</tr>
<tr>
<td width="10%" align="right" bgcolor="#FFFFFF">发布时间：</td>
<td width="90%" bgcolor="#FFFFFF">
<input name="updatetime" type="TEXT" size=20 maxlength=20 style="background-color:ffffff;color:000000;border: 1 double" value="<%=rs("updatetime")%>">
当前时间为：<%=now()%> 注意不要改变格式。</td>
</tr>
<tr>
<td height="25" colspan=2 align="center"> <font color="#FF0000">注意：当可视化编辑器出现图标显示不全的问题，请放弃重新进入，否则保存后内容会丢失。</font></td>
</tr>
<tr>
<td height="25" colspan=2 align="center">
<input type="submit" value=" 修 改 " name="B1">
<input type="button" name="ok" value=" 放 弃 " onClick="javascript:history.go(-1)">
</td>
</tr>
</form>
</table>
</table>
<%
end if
set rs=nothing
%>
<!--#include file="copyright.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -