📄 modifynews2.asp
字号:
<!--#include file=conn.asp -->
<%
IF not(Session("KEY")="super" or Session("KEY")="input" or Session("KEY")="check") THEN
response.redirect "login.asp"
response.end
END IF
NewsID=request("NewsID")
if NewsID="" then
%>
<script language=javascript>
history.back()
alert("请输入您要修改的文章ID！")
</script>
<%
Response.End
end if
set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from News where NewsID=" & NewsID
rs.Open rs.source,conn,1,1
if rs.EOF then
%>
<script language=javascript>
history.back()
alert("非法文章ID，请确认NewsID不超出当前范围！")
</script>
<%
Response.End
end if
set rs2=server.CreateObject("ADODB.RecordSet")
rs2.Source="select * From BigClass Where BigClassName='" & rs("BigClassName") & "'"
rs2.Open rs2.Source,conn,1,1
set rs3=server.CreateObject("ADODB.RecordSet")
rs3.Source="select * From SmallClass Where SmallClassName='" & rs("SmallClassName") & "'"
rs3.Open rs3.Source,conn,1,1
set rs4=server.CreateObject ("ADODB.RecordSet")
rs4.Source="select * from Special"
rs4.Open rs4.source,conn,1,1
%>
<%if rs("editor")=session("username") or session("key")="super" or Session("KEY")="check" then
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
</head>
<body><%set rs5=server.CreateObject ("ADODB.RecordSet")
rs5.Source="select * from system"
rs5.Open rs5.source,conn,1,1
%>
<p> </p>
<table border="0" width="588" align=center bgcolor="#000000" cellpadding="3" cellspacing="1">
<tr bgcolor="#abb8d6">
<td colspan="4" height="55" width="558">
<div align="center"><b> 修改文章--该文章ID为：<%=NewsID%></b> </div>
</td>
</tr>
<tr>
<td width="84" align=right bgcolor="#FFFFFF">文章大类：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3"> <%=trim(rs2("BigClassName"))%></td>
</tr>
<tr>
<td width="84" align=right bgcolor="#FFFFFF">文章小类：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3"> <%=trim(rs3("SmallClassName"))%></td>
</tr>
<form action=ModifyNews_Class1.asp?NewsID=<%=NewsID%> method=post>
<tr>
<td width=84 bgcolor="#FFFFFF"></td>
<td width="501" bgcolor="#FFFFFF" colspan="3">
<input name=btn_Modi_class type=submit value="修改文章类别">
</td>
</tr>
</form>
<form method="POST" action="ModifyNews3_update.asp?NewsID=<%=NewsID%>">
<tr>
<td width="84" align="right" bgcolor="#FFFFFF">所属专题：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3">
<select size="1" name="SpecialID">
<option value=0 <%if rs("SpecialID")=0 then Response.Write "selected"%>>-----------------</option>
<%if rs4.EOF then %>
<option value=0>暂无任何专题</option>
<%else
while not rs4.EOF
SpecialID=rs4("SpecialID")
%>
<option value=<%=SpecialID%> <%if rs("SpecialID")=SpecialID then Response.Write " selected"%>><%=trim(rs4("SpecialName"))%></option>
<%
rs4.MoveNext
wend
end if
%>
</select>
</td>
</tr>
<tr>
<td width="84" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章标题：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3"> <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="<%=trim(rs("Title"))%>">
<span style='cursor:hand' title='加长对话框' onClick='if (me.size<102)me.size=me.size+2'>+</span>
</td>
</tr>
<tr>
<td width="84" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章来源：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3"> <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="<%=trim(rs("Original"))%>">
<span style='cursor:hand' title='加长对话框' onClick='if (message.size<102)message.size=message.size+2'>+</span>
</td>
</tr>
<tr>
<td width="84" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">文章作者：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3"><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="<%=trim(rs("Author"))%>">
<span style='cursor:hand' title='加长对话框' onClick='if (mess.size<102)mess.size=mess.size+2'>+</span>
</td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td valign="top" align="right" width="84"> 文章内容：</td>
<td valign="top" align="left" width="501" colspan="3">
<textarea rows="15" name="txtcontent" cols="80" class="smallarea"><%=rs("content")%></textarea>
</td>
</tr>
<tr>
<td width="84" align="right" class="unnamed2" valign="middle" bgcolor="#FFFFFF">相关文章：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3"><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="84" align="right" bgcolor="#FFFFFF">编码方式：</td>
<td width="501" bgcolor="#FFFFFF" colspan="3">
<select size="1" name="EnCode">
<option value="html" <%if trim(rs("EnCode"))="Html" or trim(rs("Encode")) ="" then Response.Write "selected"%>>默认方式</option>
<option value="ubb" <%if trim(rs("EnCode"))="ubb" then Response.Write "selected"%>>UBB方式</option>
</select>
</td>
</tr>
<tr>
<td width="84" align="right" valign="middle" class="unnamed2" bgcolor="#FFFFFF">推荐文章：</td>
<td width="501" valign="middle" bgcolor="#FFFFFF" colspan="3">
<input type="radio" value="1" <%if rs("goodnews")=1 then Response.Write "checked"%> name="goodnews">
是
<input type="radio" value="0" <%if rs("goodnews")=0 then Response.Write "checked"%> name="goodnews">
否 生成推荐文章</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="84" align="right">热点文章：</td>
<td width="501" colspan="3">
<input type="radio" value="1" <%if rs("hot")=1 then Response.Write "checked"%> name="hot">
是
<input type="radio" value="0" <%if rs("hot")=0 then Response.Write "checked"%> name="hot">
否 加入排行榜</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="84" align="right">首页图片：</td>
<td width="501" colspan="3">
<input type="radio" value="1" <%if rs("sypic")=1 then Response.Write "checked"%> name="sypic">
是
<input type="radio" value="0" <%if rs("sypic")=0 then Response.Write "checked"%> name="sypic">
否 生成首页图片JS</td>
</tr>
<tr>
<td width="84" align="right" bgcolor="#FFFFFF">图片张数：</td>
<td width="84" bgcolor="#FFFFFF">
<select size="1" name="image">
<option <%if rs("image")=0 then Response.Write "selected"%>>0</option>
<option <%if rs("image")=1 then Response.Write "selected"%>>1</option>
<option <%if rs("image")=2 then Response.Write "selected"%>>2</option>
<option <%if rs("image")=3 then Response.Write "selected"%>>3</option>
<option <%if rs("image")=4 then Response.Write "selected"%>>4</option>
<option <%if rs("image")=5 then Response.Write "selected"%>>5</option>
<option <%if rs("image")=6 then Response.Write "selected"%>>6</option>
<option <%if rs("image")=7 then Response.Write "selected"%>>7</option>
<option <%if rs("image")=8 then Response.Write "selected"%>>8</option>
<option <%if rs("image")=9 then Response.Write "selected"%>>9</option>
<option <%if rs("image")=10 then Response.Write "selected"%>>10</option>
</select>
</td>
<td width="67" bgcolor="#FFFFFF"> 图片位置：</td>
<td width="336" bgcolor="#FFFFFF">
<select size="1" name="pos">
<option <%if rs("pos")="" then Response.Write "selected"%> value="">自己添加图片代码</option>
<option <%if rs("pos")="文章前" then Response.Write "selected"%> value="文章前">文章前</option>
<option <%if rs("pos")="文章后" then Response.Write "selected"%> value="文章后">文章后</option>
</select></td>
</tr>
<tr>
<td height="55" colspan=4 align="center" bgcolor="#abb8d6" width="558">
<input name="check" type="hidden" value="<%if session("key")="super" or session("key")="check" then%>1<%else%><%if rs5("usecheck")="1" then%>1<%else%>0<%end if%><%end if%>"><%rs5.close%><input type="submit" value=" 修改>> " name="B1">
</td>
</tr>
</form>
</table>
</body>
</html><%else%>
<script language=javascript>
history.back()
alert("因为这不是您撰写的文章，\n所以您无权删除！")
</script>
<%end if%>
<%
rs.close
set rs=nothing
rs3.close
set rs3=nothing
rs2.close
set rs2=nothing
rs4.close
set rs4=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -