style_edit.asp

就是这样的一个源码

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

read=rs("read")
%>
<br><br><br><br>
<form method="post" name="input" action="style_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 colspan=2 align=center> 

           <textarea name="read" cols="90" rows="16"><%=read%></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
read=request("read")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from style"
rs.open sql,conn,1,3
                
rs("read")=read
rs.update
rs.close
response.redirect "admin_index.asp"

end if
%>