guest_savereply.asp

e人畅想公用日记本 v1.0

<%if isnull(Request.ServerVariables("HTTP_REFERER")) or instr(1,lcase(Request.ServerVariables("HTTP_REFERER")),"/guest_reply")<=0 then
else%>
<!--#include file="top.asp"-->
<%id=cint(request.querystring("id"))
reply=request.form("reply")
if reply="" then
reply="该家伙发蒙，没有写东西。浪费时间啊!"
else
reply=request.form("reply")
end if%>
<table width="600" border="0" cellspacing="0" cellpadding="0" class="table_pointline" align="center">
  <tr>
    <td>
      <%set smr=conn.execute("insert into guest(reply,message)values('"&reply&"',"&id&")")
	set smr=nothing
	response.redirect"index.asp"%>
    </td>
  </tr>
</table>
<!--#include file="bottom.asp"-->
<%end if%>