www.gusucode.com > 枫的记忆个人主页程序源码程序 > downcode.com\fengdejiyizh\gtbook\reply.asp
<!-- #include file="header.asp" --> <!-- #include file="firewall.asp" --> <!-- #include file="include/function.asp" --> <script language="javascript"> <!-- function chk(){ if (myform.content.value == ""){ alert("回复内容不能为空"); myform.oldpass.focus(); return false; } } --> </script> <% if request("id")<>"" then rid = request("id") end if on error resume next strconn = "select * from reply where frepid=" & cint(request("rid")) set rs = server.createobject("adodb.recordset") rs.open strconn,conn,1,3 if request("action") = "reply" then if request("iid") = "" then session("imsg") = "10" response.redirect ("msg.asp") response.end end if if rs.eof then rs.addnew rs("freply") = trim(HTMLEncode(request("content"))) rs("ftime") = cstr(now()) rs("frepid") = cint(request("iid")) rs.update end if if err.number = 0 then rs.close set rs = nothing conn.close set conn = nothing response.redirect ("index.asp") response.end else rs.close set rs = nothing conn.close set conn = nothing session("imsg") = "12" response.redirect ("msg.asp") response.end end if end if %> <table width="200" height="150" border="0" align="center" cellpadding="0" cellspacing="0" align=center> <form method="post" name="myform" action="reply.asp?action=reply" onsubmit="return chk();"> <tr> <td height="20"> </td> </tr> <tr> <td align="center">回复内容</td> </tr> <tr> <td align="center" height="8"><input type="hidden" name="iid" value="<%=rid%>"></td> </tr> <tr> <td><textarea name="content" cols="60" rows="10"><%=rs("freply")%></textarea></td> </tr> <tr> <td height="8"></td> </tr> <tr> <td align="center"><input type="submit" value="回复" class="submitinput"></input> <input type="reset" value="重添" class="submitinput"></input></td> </tr> <tr> <td height="20" colspan="2"></td> </tr> </form> </table>