📄 editarticle.asp
字号:
<!--#include file="chkstr.inc"-->
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<%
IF not(Session("KEY")="super" or session("KEY")="check" ) THEN
response.redirect "error.asp?id=065"
response.end
END IF
%>
<html>
<head>
<title>寂寞百合----->修改文章</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
<!--
a:link { text-decoration: underline; color: #000000; font-family: 宋体 }
a:visited { text-decoration: underline; color: #000000; font-family: 宋体 }
a:hover { text-decoration: underline; color: #cc0000 }
body {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
table {font-family: "宋体"; font-size: 9pt;line-height: 12pt;}
-->
</style>
</head>
<body bgcolor="#C0C0C0" text="#000000">
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width="80%" align=center border=1 bordercolor="#454545">
<form method="POST" action="editok.asp?id=<%=request("id")%>">
<tr align="center">
<td colspan="2"> <b><font color="#FF0000">修 改 文 章 </font></b></td>
</tr>
<tr>
<td width="20%" align="right"> 标题：</td>
<td>
<%
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="select * from article where newsid="&request("id")
rs.open sql,conn,1,1
%>
<INPUT name="txttitle" size=40
value="<%=rs("title")%>">
</td>
</tr>
<tr>
<td align="right"> 内容：</td>
<td>
<TEXTAREA id=content name=txtcontent rows=15 cols=60><%content=replace(rs("content"),"<br>",chr(13))
content=replace(content," "," ")
content=replace(content,"<img src=","[sayyes]")
content=replace(content,"></img>","[/sayyes]")
response.write content%></TEXTAREA>
</td>
</tr>
<tr>
<td align="right"> 栏目：</td>
<td>
<select class="unnamed2" name="typeid" size="1" style="border: 1px dotted #008000">
<%
dim rs1,sql1,sel
set rs1=server.createobject("adodb.recordset")
sql1="select * from type"
rs1.open sql1,conn,1,1
do while not rs1.eof
if rs1("type")=rs("typename") then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs1("typeID"))+"' name=typeid>"+rs1("type")+"</option>"+chr(13)+chr(10)
rs1.movenext
loop
rs1.close
%>
</select>
</td>
</tr>
<tr>
<td width="20%" align="right"> 推荐：</td>
<td>
<select name="tj" size="1">
<option <%if rs("tjnews")="★" then%> selected <%end if%> value="★" name="tj">★</option>
<option <%if rs("tjnews")="★★" then%> selected <%end if%> value="★★" name="tj">★★</option>
<option <%if rs("tjnews")="★★★" then%> selected <%end if%> value="★★★" name="tj">★★★</option>
<option <%if rs("tjnews")="★★★★" then%> selected <%end if%> value="★★★★" name="tj">★★★★</option>
<option <%if rs("tjnews")="★★★★★" then%> selected <%end if%> value="★★★★★" name="tj">★★★★★</option>
</select>
</td>
</tr>
<tr align="center">
<td colspan="2">
<input type="submit" value="修改" name="cmdok" size="12" class=button4 onmousedown="document.forms[0].target='_self'" > <input type="reset" value="清 除" style="cmdcancel" class=button4 ><script LANGUAGE="JavaScript">
function goHist(a)
{
history.go(a);
}
</script>
<input TYPE="button" VALUE="<--返回" onClick="goHist(-1)" class=button4>
</td>
</tr>
</form>
</table>
</body>
</html>
<%
set rs=nothing
set rs1=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -