admin_edit.asp

就是这样的一个源码

<%@LANGUAGE="VBSCRIPT"%>
<!--#INCLUDE FILE="inc/conn.asp" -->
<!--#INCLUDE FILE="top.asp" -->
<!--#include file="chk.asp"-->
<%
action=request("action")
if action<>"save" then
id=request("id")
dim rs
dim sql
set Rs = Server.CreateObject("ADODB.Recordset")
sql ="Select top 1 * from article where id="&id&""
rs.open sql,conn,1,1

id=rs("id")
title=rs("title")
content=rs("content")
%>
<script language="JavaScript" src="inc/ubbcode.js"></script>
<br><br><br><br>
<form method="post" name="input" action="admin_edit.asp?action=save">
  <div align="center">
    <center>
  <table width="720" border="1" cellspacing="0" cellpadding="2" height="228" style="border-collapse: collapse" bordercolor="#C6E0C2">
    <tr> 
      <td width="96" height="17" align="left">
      文章标题:</td>
      <td width="367" height="17"> 
        <input type="text" name="title" maxlength="250" size="32" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=title%>">&nbsp; 
        <input type="hidden" name="id" value="<%=id%>">
 </td>
</tr>
<tr><td colspan=2 align=center> 
<a href="javascript:big()"><img src="images/ubbcode/bb_big.gif" border="0" alt="插入大标题"></a>
<a href="javascript:small()"><img src="images/ubbcode/bb_small.gif" border="0" alt="插入小标题"></a>
<a href="javascript:zs()"><img src="images/ubbcode/bb_zs.gif" border="0" alt="插入注释"></a>
<a href="javascript:sj()"><img src="images/ubbcode/bb_sj.gif" border="0" alt="文本缩进"></a>
<a href="javascript:bold()"><img src="images/ubbcode/bb_bold.gif" border="0" alt="插入粗体文本"></a>
<a href="javascript:italicize()"><img src="images/ubbcode/bb_italicize.gif" border="0" alt="插入斜体文本"></a>
<a href="javascript:underline()"><img src="images/ubbcode/bb_underline.gif" border="0" alt="插入下划线"></a>
<a href="javascript:sub()"><img src="images/ubbcode/bb_sub.gif" border="0" alt="文字下标"></a>
<a href="javascript:sup()"><img src="images/ubbcode/bb_sup.gif" border="0" alt="文字上标"></a>
<a href="javascript:center()"><img src="images/ubbcode/bb_center.gif" border="0" alt="居中对齐"></a>
<a href="javascript:right()"><img src="images/ubbcode/bb_right.gif" border="0" alt="右对齐"></a>
<iframe id="upload" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0"
  framespacing="0" frameborder="0" scrolling="no" width="280" height="22"
  src="upload.asp">
</iframe>

           <textarea name="content" cols="90" rows="16" style="border-bottom:1px dotted #666666;border-left:0px solid #666666;border-right:0px solid #999999;border-top:0px solid #999999" value="" wrap="VIRTUAL" id="content" onSelect="javascript: storeCaret(this);" onClick="javascript: storeCaret(this);" onKeyDown="javascript: ctlent();" onKeyUp="javascript: storeCaret(this);"><%=content%></textarea> 
    <tr>
      <td colspan=2 align=center> 
　　　　<input type="submit" name="Submit" value="修　改">&nbsp;&nbsp;
        <input type="reset" name="Submit2" value="恢　复">
  </table>
    </center>
  </div>
</form>
<%else
title=request("title")
content=request("content")
id=request("id")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from read where id="&request("id")
rs.open sql,conn,1,3
                
rs("title")=title
rs("content")=content
rs.update
rs.close
response.redirect "admin_index.asp"


end if
%>