pl_edit.asp

是运行在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 * FROM pinglun where id="&request("id")
rs.open sql,conn,1,1
%>

<%
id=rs("id")
shenhe=rs("shenhe")
name=rs("name")
text=rs("text")
%>

<br><br><br>
<form method="post" action="pl_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="name" maxlength="250" size="32" style="border-style: groove; border-width: 1; background-color:#FFFFFF" value="<%=name%>">&nbsp; 
        <input type="hidden" name="id" value="<%=id%>">
<%if shenhe=0 then
ac=0
else
ac=1
end if%>
<input type="hidden" name="ac" value="<%=ac%>">
 </td>
</tr>
       <tr> 
      <td nowrap width="96" align="left">
      内容：</td>
      <td width="480"> 
        <textarea name="text" cols="72" rows="10" style="border-style: groove; border-width: 1"><%=text%></textarea>
      </td>
    </tr>
    <tr>
      <td nowrap width="96"height="34">　</td>
      <td width="367" height="34"> 
　　　　<input type="submit" name="Submit" value="修　改">&nbsp;&nbsp;
        <input type="reset" name="Submit2" value="恢　复"></td>
    </tr>
  </table>
    </center>
  </div>
</form>

<%else
name=request("name")
text=request("text")
id=request("id")
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from pinglun where id="&request("id")
rs.open sql,conn,1,3
                
rs("name")=server.htmlencode(name)
rs("text")=server.htmlencode(text)
rs.update
rs.close

ac=request("ac")
if ac=1 then
%>
<script>alert( '编辑成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_pl.asp?sh=1">
<%else%>
<script>alert( '编辑成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_pl.asp?sh=0">
<%end if
end if
%>