club.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

response.Write" checked"
end if
response.Write"> "&rst(""&WebSqlType&"_mbtitle")&"<BR><BR></TD>"
if n mod 6=0 then response.Write("</tr><tr>")
rst.movenext
loop
rst.close
response.Write"</TR></TBODY></TABLE><TABLE cellSpacing=0 cellPadding=0 width='92%' border=0> <TR>"
response.Write"<TD height='30' align=middle>&nbsp;<INPUT class=button type=submit value='确定,更换风格' name=Submit2></TD>"
response.Write"</TR></TABLE></form>"
End Function
'---------------------------------------------------------------------------
Function CMemberServer()
if request("lr")="yes" then
conn.execute("update "&WebSqlType&"_cmember set "&WebSqlType&"_key=3 where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
response.redirect("member.asp?id="&request("id"))
end if
if request("lr")="yes" then
conn.execute("delete from "&WebSqlType&"_cmember where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
response.redirect("member.asp?id="&request("id"))
end if
if request("dlr")="no" then
conn.execute("update "&WebSqlType&"_cmember set "&WebSqlType&"_key=4,"&WebSqlType&"_key1="&request("key")&" where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
response.redirect("member.asp?id="&request("id"))
end if
if request("dlr")="yes" then
conn.execute("update "&WebSqlType&"_cmember set "&WebSqlType&"_key="&request("key1")&","&WebSqlType&"_key1=0 where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
response.redirect("member.asp?id="&request("id"))
end if
End Function
'---------------------------------------------------------------------------
Function CMemberTitle()
response.Write"<SPAN class=tags><A "
if trim(request("mykey"))="" then
response.Write"class=selectTag "
end if
response.Write"  href='member.asp?id="&id&"'>所有成员</A><A "
if trim(request("mykey"))="4" then
response.Write"class=selectTag "
end if
response.Write" href='member.asp?id="&id&"&mykey=4'>冻结成员</A><A "
if trim(request("mykey"))="2" then
response.Write"class=selectTag "
end if
response.Write" href='member.asp?id="&id&"&mykey=2'>管理员</A><A "
if trim(request("mykey"))="3" then
response.Write"class=selectTag "
end if
response.Write" href='member.asp?id="&id&"&mykey=3'>正常成员</A><A "
if trim(request("mykey"))="0" then
response.Write"class=selectTag "
end if
response.Write" href='member.asp?id="&id&"&mykey=0'>待审人员</A></SPAN>"
End Function
'---------------------------------------------------------------------------
Function CMember()
response.Write"<TABLE cellSpacing=0> <TBODY> <TR> <TH width=27>&nbsp;</TH>"
response.Write"<TH width='281'><DIV style='TEXT-ALIGN: left'>成员</DIV></TH>"
response.Write"<TH width=141><DIV class=th>加入时间</DIV></TH><TH width=57>"
response.Write"<DIV class=th>级别</DIV></TH><TH width=110><DIV class=th>审批</DIV></TH><TH width=76>"
response.Write"<DIV class=th>成员名片</DIV></TH><TH width=70><DIV class=th>分配权限</DIV></TH><TH width=68>"
response.Write"<DIV class=th>短消息</DIV></TH></TR>"
set rs1=server.createobject("adodb.recordset")
if request("mykey")<>"" then
sql="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&" and "&WebSqlType&"_key="&request("mykey")&" order by "&WebSqlType&"_date desc"
else
sql="select * from "&WebSqlType&"_Cmember where "&WebSqlType&"_Cid="&id&" order by "&WebSqlType&"_date desc"
end if
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else 
listnum=20
rs1.pagesize=listnum
page=Request("page")
if (page-rs1.pagecount) > 0 then
page=rs1.pagecount
elseif page = "" or page < 1 then
page = 1
end if
rs1.absolutepage=page
'编号的实现
j=rs1.recordcount
j=j-(page-1)*listnum
i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if
do while not rs1.eof and i<listnum
n=n+1
if rs1(""&WebSqlType&"_key")=0 then
adm="待审"
keys="<a href='member.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&lr=yes&key=3'>批准</a> | <a href='member.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&lr=no'>拒绝</a>"
elseif rs1(""&WebSqlType&"_key")=1 then
adm="创使人"
keys="-"
elseif rs1(""&WebSqlType&"_key")=2 then
adm="管理员"
keys="<a href='#'>管理员</a> | <a href='member.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&dlr=no&key="&rs1(""&WebSqlType&"_key")&"'>冻结</a>"
elseif rs1(""&WebSqlType&"_key")=3 then
adm="成员"
keys="<a href='#'>成员</a> | <a href='member.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&dlr=no&key="&rs1(""&WebSqlType&"_key")&"'>冻结</a>"
elseif rs1(""&WebSqlType&"_key")=4 then
adm="冻结"
keys="<a href='member.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&dlr=yes&key1="&rs1(""&WebSqlType&"_key1")&"'>解冻</a>"
end if
'------------------------------------------
set rs2=server.createobject("adodb.recordset")
sql1="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&rs1(""&WebSqlType&"_Cuserid")
rs2.open sql1,conn,1,1
if rs2.eof and rs2.bof then                     
else 
username=rs2(""&WebSqlType&"_username")
realname=rs2(""&WebSqlType&"_realname")
utop=rs2(""&WebSqlType&"_top")
end if
response.Write"<TR><TD><IMG src='images/pop.gif'>&nbsp;</TD>"
response.Write"<TD class=td1><SPAN class='graytext right'>"&rs1(""&WebSqlType&"_top")&"</SPAN> "
response.Write"<A href='/space/index.asp?id="&rs1(""&WebSqlType&"_Cuserid")&"' target=_blank>"&rs1(""&WebSqlType&"_Cuser")&"</A>" 
if rs1(""&WebSqlType&"_nc")<>"" then
response.Write"("&rs1(""&WebSqlType&"_nc")&") "
end if
response.Write"</TD><TD>"&trim(rs1(""&WebSqlType&"_date"))&"</TD>"
response.Write"<TD>"&adm&"</TD><TD>"&keys&"</TD> <TD>"
response.Write"<A href='member_org.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&nc="&rs1(""&WebSqlType&"_nc")&"&msn="
response.Write""&rs1(""&WebSqlType&"_msn")&"&sj="&rs1(""&WebSqlType&"_sj")&"&user="&rs1(""&WebSqlType&"_Cuser")&"'>设置名片</A>"
response.Write" <TD><A  href='member_key.asp?id="&id&"&mid="&rs1(""&WebSqlType&"_Cuserid")&"&top="&rs1(""&WebSqlType&"_top")&""
response.Write"&flag="&rs1(""&WebSqlType&"_flag")&"&key="&rs1(""&WebSqlType&"_key")&"&user="&rs1(""&WebSqlType&"_Cuser")&"'>分配权限</A>"
response.Write"</TD><TD><IMG height=16 alt=短消息 src='images/message.gif' width=16> "
response.Write"<A href='/jiaoyou/index.asp?username="&rs1(""&WebSqlType&"_Cuserid")&"' target=_blank>发消息</A></TD></TR>"
rs1.movenext
i=i+1 
j=j-1
loop
response.Write"<TR><TD class=page colSpan=8>"
filename="member.asp?id="&id&""
response.Write"共 "&rs1.pagecount&" 页 "
if page=1 then
else
response.Write"<a href="&filename&">|<<</a>&nbsp; "
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000><<</font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page-1&"><font color=#000000>["&page-1&"]</font></a>&nbsp;"
end if
if rs1.pagecount=1 then
else
response.Write"["&page&"]"
end if
if rs1.pagecount-page <> 0 then
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>["&page+1&"]</font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&page+1&"><font color=#000000>>></font></a>&nbsp;" 
response.Write"<a href="&filename&"&page="&rs1.pagecount&"><font color=#000000>>>|</font></a>&nbsp; "
end if
response.Write"</TD></TR>"
rs1.close
end if
response.Write"</TBODY></TABLE>"
End Function
'-------------------------------------------------------------------------------
Function CmemberKeyServer()
if request("action")="add" then
if clng(request("key"))=2 then
conn.execute("update "&WebSqlType&"_Cmember set "&WebSqlType&"_key="&request("key")&" where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
end if
if clng(request("flag1"))=1 then
flag1=clng(request("flag1"))
else
flag1=0
end if
if clng(request("flag2"))=1 then
flag2=clng(request("flag2"))
else
flag2=0
end if
if clng(request("flag3"))=1 then
flag3=clng(request("flag3"))
else
flag3=0
end if
if clng(request("flag4"))=1 then
flag4=clng(request("flag4"))
else
flag4=0
end if
flag=flag1&","&flag2&","&flag3&","&flag4
conn.execute("update "&WebSqlType&"_Cmember set "&WebSqlType&"_flag='"&flag&"',"&WebSqlType&"_top='"&request("mtop")&"' where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
response.redirect("member.asp?id="&request("id"))
end if
End Function
'-----------------------------------------------------------------------------
Function CMemberKey()
response.Write"<FORM name=form  action=member_key.asp?action=add method=post>"
response.Write"<DIV id=wrap2><DIV class=content><DIV class=left-content></DIV>"
response.Write"<DIV class=right-content><LABEL>设置“<STRONG class=redtext>"&request("user")&"</STRONG>”的权限：" 
response.Write"</LABEL><SPAN class=graytext>(这里设置会员在这些栏目的权限，创始人权限不受此管辖)</SPAN></DIV></DIV>"
response.Write"<DIV class=content><DIV class=left-content><STRONG>授予头衔:</STRONG></DIV><DIV class=right-content>"
response.Write"<LABEL><INPUT id=mtop value="&request("top")&" name=mtop> </LABEL><SPAN class=graytext>"
response.Write"您可以授予“"&request("user")&"”在圈子内的专有头衔，如：总经理、董事长等。。。</SPAN></DIV></DIV>"
if trim(request("key"))<>1 then
response.Write"<DIV class=content><DIV class=left-content><STRONG>选择栏目:</STRONG></DIV><DIV class=right-content>"
response.Write"<INPUT name=key type=checkbox id=key value='2' "
if trim(request("key"))=2 then
response.Write"CHECKED"
end if
response.Write"> 管理员 <SPAN class=graytext>(拥有创始人的所有权限,包含等级,链接,属性设置等,请谨慎选择)</SPAN><BR><BR>"
response.Write"</DIV></DIV>"
end if
response.Write"<DIV class=nav2><DIV class=left-content><INPUT type=hidden value="&id&" name=id> "
response.Write"<INPUT type=hidden value="&request("mid")&" name=mid> </DIV>"
response.Write"<DIV class=right-content><LABEL><INPUT type=submit value=' 更 新 ' name=Submit></LABEL></DIV></DIV></DIV></FORM>"
End Function
'-----------------------------------------------------------------------------
Function CMemberOrgServer()
if request("action")="add" then
conn.execute("update "&WebSqlType&"_Cmember set "&WebSqlType&"_nc='"&request("nc")&"',"&WebSqlType&"_sj='"&request("sj")&"',"&WebSqlType&"_msn='"&request("msn")&"' where "&WebSqlType&"_Cid="&request("id")&" and "&WebSqlType&"_Cuserid="&request("mid")&"")
response.redirect("member.asp?id="&request("id"))
end if
End Function
'-----------------------------------------------------------------------------
Function CMemberOrg()
response.Write"<FORM name=form onsubmit='return ckok();' action=member_org.asp?action=add method=post>"
response.Write"<DIV id=wrap2><DIV class=content><DIV class=left-content></DIV>"
response.Write"<DIV class=right-content><LABEL>设置“<STRONG class=redtext>"&request("user")&"</STRONG>”的名片资料： "
response.Write"</LABEL><SPAN class=graytext>(注意！若该成员已经使用帐号，请勿随意更改)</SPAN></DIV></DIV>"
response.Write"<DIV class=content><DIV class=left-content><STRONG>呢称:</STRONG></DIV>"
response.Write"<DIV class=right-content><LABEL><INPUT maxLength=20  value='"&request("nc")&"' name=nc> </LABEL>"
response.Write"<SPAN class=graytext>该呢称只在本圈子内有效</SPAN></DIV></DIV><DIV class=content>"
response.Write"<DIV class=left-content><STRONG>手机:</STRONG></DIV><DIV class=right-content><LABEL>"
response.Write"<INPUT value='"&request("sj")&"' maxLength=11 name=sj> </LABEL><SPAN class=graytext>"
response.Write"圈子成员都能看到，可以不填</SPAN></DIV></DIV><DIV class=content>"
response.Write"<DIV class=left-content><STRONG>MSN说明:</STRONG></DIV>"
response.Write"<DIV class=right-content><LABEL><INPUT maxLength=40 size=40 value='"&request("msn")&"' name=msn></LABEL></DIV>"
response.Write"</DIV><DIV class=nav2><DIV class=left-content><INPUT type=hidden value="&id&" name=id> "
response.Write"<INPUT type=hidden value='"&request("mid")&"' name=mid></DIV><DIV class=right-content><LABEL>"
response.Write"<INPUT type=submit value=' 更 新 ' name=Submit></LABEL></DIV></DIV></DIV></FORM>"
End Function
'-----------------------------------------------------------------------------
Function CphotoServer()
if request("action")="del" then
conn.execute("delete From "&WebSqlType&"_photo Where "&WebSqlType&"_id="&request("pid")&"")
response.redirect("photo.asp?id="&request("id"))
end if
End Function
'----------------------------------------------------------------------------
Function Cphoto()
set rs1=server.createobject("adodb.recordset")
sql="select * from "&WebSqlType&"_photo where "&WebSqlType&"_club="&id&" order by "&WebSqlType&"_date desc"
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then                     
	response.write "<tr><td height