<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="../sql/Neeao_SqlIn.Asp" -->
<!--#include file="IsLogin.asp" -->
<%
f_id=clng(request("id"))
if f_id="" then
Call Msgbox("对不起,ID号错误!",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="&f_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,f_grade from t_club_member where F_club_id="&f_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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=site_info(0)%>:.子俱乐部:</title>
其中的 <%=site_info(0)%> 输出为 太原都市网 我想把这句<%=site_info(0)%> 修改 但是不知道他在什么类目下!原程序地址是 http://www.xfwb.net/xiazai/xfwb.rar 求求高手帮忙解决!
可以追加 500分