<!--#include file="conn.asp"-->
<%
Dim user,re

user=request("user")
re=request("re")

if user="" or re="" then
response.write"<script>alert('對不起，回復資料不能為空');history.go(-1);</script>"
response.end()
end if
if len(re)>1000 then
response.write"<script>alert('對不起，回復內容不能大于 1000 個字符');history.go(-1);</script>"
response.end()
end if
set rs=server.createobject("adodb.recordset")
sql="select * from re"
rs.open sql,conn,1,3
rs.addnew
rs("user")=user
rs("re")=re
rs("id")=request("id")
rs.update
rs.close
set rs=nothing

set rs=server.createobject("adodb.recordset")
sql="select * from book where id="&request("id")
rs.open sql,conn,1,3
rs("lastdate")=now()
rs.update
rs.close
set rs=nothing
response.redirect"index.asp"
%>