<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="IsLogin.asp" -->

<%

club_id=clng(checkStr(request("id")))
'response.write request("m_id")
'response.end
 if club_id="" or IsNumeric(club_id)=false then
 Call Msgbox("对不起，发生错误！",1)
 Response.end
 end if
 m_ID = Session("CurUserID")
 m_username= Session("CurUserName")

set rs_a=server.createobject("adodb.recordset")
sql_a="select * from t_club where F_id="&club_id
rs_a.open sql_a,conn,1,3

if rs_a.eof then
 Call Msgbox("对不起，该俱乐部已经不存在！",1)
 Response.end
end if
'判别身份，是否有权限上传照片
set rs_user=server.createobject("adodb.recordset")
sql_user="select f_ischeck,f_identity from t_club_member where F_club_id="&club_id&" and f_username='"&m_username&"'"
rs_user.open sql_user,conn
if rs_user.eof and rs_user.bof then
 Call Msgbox("对不起,您还未加入本俱乐部！",1)
 Response.end
 else
 if rs_user("f_ischeck")=false then
 Call Msgbox("对不起,您还未通过审核加入本俱乐部，请耐心等待！",1)
 Response.end
 end if
end if
if rs_user("f_identity")="初级会员" then    '初级会员无权发布活动信息
 Call Msgbox("对不起,您是本俱乐部[初级会员]暂无权发布活动信息！",1)
 Response.end
end if
rs_user.close
set rs_user=nothing

m_title=trim(request("name"))    'checkStr函数
m_area=trim(request("area"))
m_address=trim(request("address"))
m_time=cdate(request("meettime1")&" "&request("meettime2")&":"&request("meettime2")&":00")
m_count=trim(request("count"))
m_price=trim(request("price"))
m_content=HTMLEncode(request("content"))
'添加活动信息

set rs_c=server.createobject("adodb.recordset")
sql_c="select * from t_club_meet"
rs_c.open sql_c,conn,1,3
rs_c.addnew
rs_c("f_club_id")=club_id
rs_c("f_title")=m_title
rs_c("f_username")=m_username
rs_c("f_area")=m_area
rs_c("f_address")=m_address
rs_c("f_time")=m_time
rs_c("f_count")=m_count
rs_c("f_price")=m_price
rs_c("f_content")=m_content
'区分是否审核，目前自动通过审核
rs_c("f_ischeck")=1
rs_c("f_regtime")=now()
rs_c.update
rs_c.close
set rs_c=nothing
rs_a("f_clubactive")=rs_a("f_clubactive")+1
rs_a.update
url="club_meetmanage.asp?id="&rs_a("f_id")
response.redirect url 
 
 '////////////////////////////////
rs_a.close
set rs_a=nothing
%>
