<%
 data_path="../" 'ACC连接数据库路径，对SQL无效
 dir="no"
 numid="no"
%>

<!--#include file="../conn/conn.asp"-->
<%
username=request.Form("Books_Name")
Emal=request.Form("Books_Mail")
qq=request.Form("Books_Qq")
centont=request.Form("Books_Info")
ip=Request.ServerVariables("REMOTE_ADDR")
id=request.QueryString("id")
  sql_update="select * from yixiang_tradeinfo"
  set up_rs=server.CreateObject("adodb.recordset")
  up_rs.open sql_update,conn,1,3
  up_rs.addnew
	  up_rs("id")=id
	  up_rs("email")=emal
	  up_rs("QQ")=qq
	  up_rs("centont")=centont
	  up_rs("add_date")=now()
	  up_rs("ip")=ip
	  up_rs("username")=username
	  up_rs("restor")="暂时没有回复"
  up_rs.update
  up_rs.close
  set up_rs=nothing
 conn.close
Set conn=nothing
Response.Write("<SCRIPT language=JavaScript>alert('提示:评论成功!');this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>")
%>
