editinfoinput.asp

来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 41 行

<%
If Request("ArticleID") <> "" Then 
  Session("ArticleID") = Request("ArticleID")
End If 
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT * FROM Lily_Article WHERE ArticleID="&Session("ArticleID"),cn
%>
<p align="center"><% = Session("UserID") %>编辑文章：<%=rs("Title")%>
<form method="POST" action="Edit_Update.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="630" height="369" align="center">
  <tr>
    <td width="100%" colspan="2" align="center" height="21" bgcolor="#1E3A75">
    <font color="#FFFFFF">请输入修改内容</font></td>
  </tr>
  <tr>
    <td width="28%" height="38" bgcolor="#B5C7EC" align="right">
    文章标题：</td>
    <td width="72%" height="38" align="center" bgcolor="#B5C7EC">
    <input type="text" name="txtTitle" value="<%=rs("Title")%>" size="39"></td>
  </tr>
  <tr>
    <td width="28%" height="121" bgcolor="#B5C7EC" align="right">
    文章内容：</td>
    <td width="72%" height="121" align="center" bgcolor="#D8E1F5">
      <textarea rows="10" name="txtContent" cols="51"><%=rs("Content")%></textarea></td>
  </tr>
  <tr>
    <td width="100%" height="24" bgcolor="#B5C7EC" colspan="2">
    　</td>
  </tr>
  <tr>
    <td width="100%" colspan="2" align="center" height="29" bgcolor="#1E3A75">
    <input type="submit" value="提交文章" name="btnSubmit">&nbsp; 
    <input type="reset" value="全部重写" name="btnReset"></td>
  </tr>
</table>
</form>
<%
rs.Close
Set rs = Nothing
%>