reply_ok.asp

简单的servlet/jsp注册

<%
if session("admin_name")="" then response.end
%>
<!--#include file="../inc/adconn.asp"-->
<!--#include file="../css.asp"-->
<%
'for i=1 to request("msg").count
'shw_msg=s msg&request("msg")(i)
'next
'msg=request("msg")
if request("action")="save" then
dim ID,reply
id=request("ID")
reply=request.form("reply")
    'am_uid=request.form("am_uid")
   ' msg=request.form("msg")
	'data=request.form("date")
	'time=request.form("time")
dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from guestbook where id="&id
rs.open sql,conn,1,3
 rs("reply")=reply
'if reply="" then 
'rs("reply")="暂且没有商品简介……"
'else 
'rs("reply")=reply
'end if 
	   rs("reply_date")=date()
	 '  rs("留言日期")=date()
	   'rs("isbn")=isbn
rs.Update
end if
'conn.close
'set conn=nothing
'rs.close
'set rs=noting
'response.redirect "default.asp"
response.write "<br>"+"留言回复成功，点此<a href=../../contact/default.asp target=_blank><font color=#ff000>预览</font></a>，请<a href=default.asp?id="&request("id")&"><font color=#ff000>继续</font></a>其他操作。"
%>