<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="IsLogin.asp" -->
<!--#include file="../sql/Neeao_SqlIn.Asp" -->
<%
 m_ID = Session("CurUserID")
 m_username= Session("CurUserName")
 f_id=clng(checkStr(request("f_id")))
 if f_id="" or IsNumeric(f_id)=false then
   Response.write "对不起，ID号发生错误！"
   Response.end
 end if
 m_Sql = "SELECT * FROM T_club_book"
 Set rs=Server.createobject("Adodb.RecordSet")
' Set rs = conn.Execute(m_Sql)
rs.open m_sql,conn,1,3
   rs.addnew
   rs("f_username")=m_username
   rs("f_club_id")=f_id
   rs("f_regtime")=now()
   rs("f_content")=HTMLEncode(request("content"))
   rs.update
 rs.close
 set rs=nothing
 '更新统计信息
  conn.execute "update t_club set f_clubbook=f_clubbook+1 where f_id=" & f_id

   '添加发送信息
   Response.Redirect "club_viewsub.asp?id="&f_id
 '  call MsgBox("祝贺您，您的真情告白已经成功发送!","club_saylist.asp")

%>



