www.gusucode.com > 盐城分类信息网asp源码程序 > admin/gbookedit.asp
<!--#include file=conn.asp--> <!--#include file=cookies.asp--> <% dim rs,sql,id id=trim(request("id")) if not isnumeric(id) or id="" then response.write "<li>参数错误!" response.end end if set rs=server.createobject("adodb.recordset") sql = "select gbook1 from gbook where id="&cstr(id) rs.open sql,conn,1,3 if request("chk")="1" then savehf end if %> <meta http-equiv="Content-Language" content="zh-cn"> <link href="inc_style.css" rel="stylesheet" type="text/css"> <title>修改留言</title> <body topmargin="0" leftmargin="0"> <div align="center"> <center> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="180" height="35"> <form action="?id=<%=id%>&chk=1" method="POST"> <tr> <td width="181" height="10"> <p align="center">修改内容</td> </tr> <tr> <td width="181" height="20"> <p align="center"> <textarea rows="7" name="memo" cols="22"><%=rs("gbook1")%></textarea></td> </tr> <tr> <td width="181" height="6"> <p align="center"> <input type="submit" value="提交" name="B1" style="color: #FFFFFF; border: 1px solid #000000; background-color: #666666"></td> </tr> </form> </table> </center> </div> <% sub savehf() dim gbook1 gbook1=trim(request("memo")) rs("gbook1")=gbook1 rs.update rs.close set rs=nothing response.write "<li>修改成功!" cl response.end end sub closedb %> <%sub cl()%> <body onLoad="setTimeout(window.close, 2000)"> <%end sub%>