user_team.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 997 行 · 第 1/3 页

'teamusers: state 1被邀请2申请加入3成员4 副管理员 5 管理员
Sub ListMembers(teamid,cmd)
	Dim sTitle,i,SqlPart,grade
	i=0
	If teamid<>"" Then SqlPart="And b.teamid=" & Int(teamid) & " "
	Select Case cmd
		Case 1
			sTitle="我发出的邀请"
			Sql="Select a.userid,c.username,a.addtime,b.teamid,b.t_name,a.state From oblog_teamusers a,oblog_team b,oblog_user c  Where a.teamid=b.teamid And state=1 And a.userid=c.userid  And a.userid<>" & oblog.l_uid &" And b.managerid=" & oblog.l_uid & SqlPart
		Case 2
			sTitle="我接收到的邀请"
			Sql="Select a.userid,c.username,a.addtime,b.teamid,b.t_name,a.state From oblog_teamusers a,oblog_team b,oblog_user c  Where a.teamid=b.teamid And state=1 And a.userid=c.userid  And a.userid=" & oblog.l_uid &" And b.managerid<>" & oblog.l_uid & SqlPart
		Case 3
			sTitle="我发出的申请"
			Sql="Select a.userid,c.username,a.addtime,b.teamid,b.t_name,a.state From oblog_teamusers a,oblog_team b,oblog_user c  Where a.teamid=b.teamid And state=2 And a.userid=c.userid  And a.userid=" & oblog.l_uid &" And b.managerid<>" & oblog.l_uid & SqlPart
		Case 4			
			sTitle="我接收到的申请"
			Sql="Select a.userid,c.username,a.addtime,b.teamid,b.t_name,a.state,a.info From oblog_teamusers a,oblog_team b,oblog_user c  Where a.teamid=b.teamid And state=2 And a.userid=c.userid  And a.userid<>" & oblog.l_uid &" And b.managerid=" & oblog.l_uid & SqlPart
	End Select
	'Response.Write Sql
	Set rs=oblog.execute(Sql)

%>
	<table  class="win_user_team_table" align="center" border="0" cellpadding="0" cellspacing="1">
		<tr>
			<td class="win_user_team_table_top" colspan="6" name="_teammember"><%=sTitle%></td>
 		</tr>
 			<tr><td>序号</td><td><%=P_QQ_NAME%>名称</td><td>用户名称</td><td>时间</td><td>状态</td><td>管理操作</td></tr>
 		<%
 		If rs.Eof Then
 		%>
 		<tr><td colspan="6">没有相关数据</td></tr>
	<%		
		Else
			while not rs.eof
			select case cint(rs("state"))
				case 3
					grade="普通用户"
				case 2
					grade="申请待批准"
				case 1
					grade="受邀但尚未回应"
				case 5
					grade="管理员"
			end select
			i=i+1
	%>
		<tr>
			<td><%=i%></td>
			<td><a href="group.asp?gid=<%=rs("teamid")%>" target="_blank"><%=rs("t_name")%></a></td>
			<td><a href="go.asp?userid=<%=rs("userid")%>" target="_blank"><%=rs("username")%></a></td>
			<td><%=rs("addtime")%></td>
			<td><%=grade%></td>
			<td>
			<%
			Select Case cmd
				Case 1
					%>
					<a href="user_team.asp?action=state&cmd=1&state=0&userid=<%=rs("userid")%>&teamid=<%=rs("teamid")%>">取消邀请</a>
					<%
				Case 2
					%>					
					<a href="user_team.asp?action=state&cmd=2&state=3&userid=<%=rs("userid")%>&teamid=<%=rs("teamid")%>">接受</a>&nbsp;&nbsp;
					<a href="user_team.asp?action=state&cmd=2&state=0&userid=<%=rs("userid")%>&teamid=<%=rs("teamid")%>">拒绝</a>
					<%
				Case 3
					%>
					<a href="user_team.asp?action=state&cmd=3&state=0&userid=<%=rs("userid")%>&teamid=<%=rs("teamid")%>">取消申请</a>
					<%
				Case 4
					%>
					<a href="user_team.asp?action=state&cmd=4&state=3&userid=<%=rs("userid")%>&teamid=<%=rs("teamid")%>" title="<%=oblog.filt_html(rs("info"))%>">接受</a>&nbsp;&nbsp;
					<a href="user_team.asp?action=state&cmd=4&state=0&userid=<%=rs("userid")%>&teamid=<%=rs("teamid")%>" title="<%=oblog.filt_html(rs("info"))%>" >拒绝</a>
			<%
			End Select
			%>
			</td>
		</tr>					
	
	<%
			rs.movenext
		wend
	End If
	rs.close
%>
</table>
<%
End sub

Sub MemberState()
	Dim userId,sMsg,iState
	userid=Int(Request("userid"))
	iState=Cint(Request("state"))
	Select Case Int(Request("cmd"))
		Case 1
			'取消邀请(由管理员操作)
			Set rs=oblog.execute("Select teamid From oblog_team Where teamid=" & teamid & " And managerid=" & oblog.l_uid)
			If Not rs.Eof Then
				oblog.execute "Delete From oblog_teamusers Where userid=" & userid & " And teamid=" & teamId 
				sMsg="已取消对该用户的邀请"
			Else
				sMsg="您无权取消对该用户的邀请"
			End If
			Set rs=Nothing
		Case 2
			'接受邀请/拒绝邀请(由被邀请人操作)
			If iState=3 Then
				oblog.Execute "Update oblog_teamusers Set state=" & iState & " Where userid=" & oblog.l_uid & " And teamid=" & teamid
				sMsg="已接受该用户的邀请"
			Else
				oblog.execute "Delete From oblog_teamusers Where userid=" & oblog.l_uid & " And teamid=" & teamId 
				sMsg="已拒绝该用户的邀请"
			End If
		Case 3
			'取消申请(由申请人操作)
			oblog.execute "Delete From oblog_teamusers Where userid=" & oblog.l_uid & " And teamid=" & teamId 
			sMsg="您已取消对该" &P_QQ_NAME& "的加入申请"			
		Case 4
			'接受申请/拒绝申请(由管理员操作)
			Set rs=oblog.execute("Select teamid From oblog_team Where teamid=" & teamid & " And managerid=" & oblog.l_uid)
			If Not rs.Eof Then
				If iState=3 Then
					oblog.Execute "Update oblog_teamusers Set state=" & iState & " Where userid=" & userid & " And teamid=" & teamid
					sMsg="已接受该用户的申请"
				Else
					oblog.execute "Delete From oblog_teamusers Where userid=" & userid & " And teamid=" & teamId 
					sMsg="已拒绝该用户的申请"
				End If
			Else
				sMsg="您无权对该用户的申请进行操作"
			End If
			Set rs=Nothing
	End Select
	oblog.showok sMsg, "user_team.asp?action=memebers&cmd=" & Request("cmd")
End Sub

Sub SaveAddon()
    Dim rs,sType,sField,sTitle,sDesc,sContent
	sField=Request("itype")
	If  sField="1" Then
		sField="links"
		sTitle=P_QQ_NAME& "友情连接"
		sDesc="你可以在这里放置" &P_QQ_NAME& "的与其他站点、博客等的连接"
	Else
		sField="announce"
		sTitle=P_QQ_NAME& "公告"
		sDesc="你可以在这里放置" &P_QQ_NAME& "的介绍，或者你愿意放上去的任何信息"
	End If
    sContent = FilterJS(oblog.filt_astr(request.Form("edit"), 20000))
    Set rs = server.CreateObject("adodb.recordset")
    rs.open "select "& sField &" from oblog_team where teamid=" & teamid, conn, 1, 3
    rs(0) =  oblog.filtpath(sContent)
    rs.Update
    rs.Close
    Set rs = Nothing
    oblog.showok "修改" & sTitle & "成功", ""
End Sub

Sub ShowAddon(itype)
	Dim rs,sField,sTitle,sDesc
	If  itype="1" Then
		sField="links"
		sTItle=P_QQ_NAME& "友情连接"
		sDesc="你可以在这里放置" &P_QQ_NAME& "的与其他站点、博客等的连接"
	Else
		sField="announce"
		sTitle=P_QQ_NAME& "公告"
		sDesc="你可以在这里放置" &P_QQ_NAME& "的介绍，或者你愿意放上去的任何信息"
	End If
	
	Set rs = oblog.execute("select " & sField & " from oblog_team where teamid=" & teamid)
	teamadmin_top()
%>

	<table  class="dTab12_body" align="center" border="0" cellpadding="0" cellspacing="1">
	<tbody>
	  <form name="oblogform" method="post" action="user_team.asp?action=saveaddon&itype=<%=itype%>&teamid=<%=teamid%>" onSubmit="submits(); ">
	  <tr>
		<td colspan="2" class="dTab12_body_top"><%=sTitle%></td>
	  </tr>
	  <tr>
		<td class="dTab12_body_td"><%=sDesc%>
		</td>
	 </tr>
	 <tr>
		<td>
		 <textarea id="edit" name="edit" style="width:60%;height:220px; display:none"><%=Server.HtmlEncode(OB_IIF(rs(0),""))%></textarea >
  		</td>
  	</tr>
   <tr><td>
    &nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" name="Submit" value="提交修改" />
     </td>
	  </tr>
    </form>
	</tbody>
  </table>
<%
Set rs = Nothing
End Sub

sub teamadmin_top()
%>
	<ul class="user_setting_title" id="TabPage1">
	<li id="Tab00" <%If divId=00 Then%>class="Selected"<%End If%>><a href="group.asp?gid=<%=teamid%>" target="_blank" title="<%=teamname%>"><strong><%=teamname%></strong></a></li>
	<li id="Tab11"  <%If divId=11 Then%>class="Selected"<%End If%>><a href="user_team.asp?action=teamadmin&teamid=<%=teamid%>&div=11" ><%=P_QQ_NAME%>信息</a></li>
	<li id="Tab12"  <%If divId=12 Then%>class="Selected"<%End If%>><a href="user_team.asp?action=listuser&teamid=<%=teamid%>&div=12" >成员管理</a></li>
	<li id="Tab13"  <%If divId=13 Then%>class="Selected"<%End If%>><a href="user_team.asp?action=announce&teamid=<%=teamid%>&div=13"><%=P_QQ_NAME%>公告</a></li>
	<li id="Tab14"  <%If divId=14 Then%>class="Selected"<%End If%>><a href="user_team.asp?action=links&teamid=<%=teamid%>&div=14">友情链接</a></li>
</ul>
<%end sub

Sub ReCountTeamInfo(teamid)
	Dim rst,c1,c2,c3,c4
	Set rst=oblog.execute("Select Count(userid) From oblog_teamusers Where teamid=" & teamid)
	If not rs.Eof Then
		c1=OB_IIf(rst(0),0)
	Else
		c1=0
	End If	
	Set rst=oblog.execute("Select Count(postid) From oblog_teampost Where idepth=0 And teamid=" & teamid)
	If not rs.Eof Then
		c2=OB_IIf(rst(0),0)
	Else
		c2=0
	End If	
	Set rst=oblog.execute("Select Count(postid) From oblog_teampost Where idepth>0 And teamid=" & teamid)
	If not rs.Eof Then
		c3=OB_IIf(rst(0),0)
	Else
		c3=0
	End If	
	oblog.execute "Update oblog_team Set iCount0=" & c1 & ",iCount1=" & c2 & ",iCount2=" & c3 & " Where teamid=" & teamid
	Set rst=Nothing
End Sub

sub main()%>
	<div class="left" id="user_team_left">
		<div>最近话题</div>
	<%show_grouplist()%>
	</div>
	<div class="right">
		<div>我的<%=P_QQ_NAME%></div>
	<%show_mygroup()%>
	</div>
<%
end  sub

sub show_grouplist()
	dim rs,str,sql
	sql="select top 10 a.topic,a.postid,a.lastupdate,a.teamid,c.t_name,d.username,d.nickname from oblog_teampost a,oblog_teamusers b,oblog_team c,oblog_user d where a.iDepth=0 and b.userid="&oblog.l_uid&" and a.teamid=b.teamid and a.teamid=c.teamid and c.istate=3 and (b.state=3 or b.state=5) and a.userid=d.userid order by a.postid desc"
	set rs=oblog.execute(sql)
	while not rs.eof
		str=str&"<ol><li class=""l1""><a href=""group.asp?gid="&rs("teamid")&"&pid="&rs("postid")&""" title="""&rs("topic")&""" target=""_blank"">"&rs("topic")&"</a></li><li class=""l2""><a title="""&ob_iif(rs("username"),rs("nickname"))&" 发表于"&FmtMinutes(rs("lastupdate"))&"前"">"&ob_iif(rs("username"),rs("nickname"))&" 发表于"&FmtMinutes(rs("lastupdate"))&"前</a><span>来自：<a title=""来自："&rs("t_name")&""">"&rs("t_name")&"</a></span></li></ol>"
		rs.movenext
	wend
	response.Write(str)
	set rs=nothing
end sub

sub show_mygroup()
	dim rs,str,sql
	set rs=oblog.execute("select a.teamid,a.t_name,a.createtime,a.istate,a.icount0,a.icount1,a.icount2,a.t_ico,b.state From oblog_team  a,oblog_teamusers b Where b.userid=" & oblog.l_uid&" and a.teamid=b.teamid and b.state>2 and a.istate>0 order by b.state desc ")
	while not rs.eof
		str=str&"<ul>"
		str=str&"<li class=""left""><a href=""group.asp?gid="&rs("teamid")&""" title=""点击查看" &P_QQ_NAME& "："&rs("t_name")&""" target=""_blank""><img src='"&rs("t_ico")&"' /></a></li>"
		str=str&"<li class=""right"">"
		str=str&"	<ol>"
		str=str&"		<li class=""o1""><a href=""group.asp?gid="&rs("teamid")&""" class=""left"" title=""点击查看" &P_QQ_NAME& "："&rs("t_name")&""" target=""_blank"">"&rs("t_name")&"</a>"
		Select Case Cint(OB_IIF(rs("istate"),2))
			Case 1			
			str=str&"<font color=""#0000FF"">待审</font>"			
			Case 2
			str=str&"<font color=""#ff0000"">锁定</font>"
			Case 3
				if rs("state")>3 then
					str=str&"<a href='user_team.asp?action=teamadmin&teamid="&rs("teamid")&"' class=""right"">管理</a>"
				end if
		end select
		str=str&"</li>"
		str=str&"		<li class=""o2"">创建时间："&rs("createtime")&"</li>"
		str=str&"		<li class=""o3""><span class=""left"">贴数："&rs("icount2")&"篇</span><span class=""right"">成员："&rs("icount0")&"人</span></li>"
		str=str&"	</ol>"
		str=str&"</li>"
		str=str&"</ul>"
		rs.movenext
	wend
	response.Write(str)
	set rs=nothing
end Sub
'转让群主
sub teammanager()
	dim username,rs,id,teamid,sql,str
	username=oblog.filt_badstr(trim(request.Form("t1")))
	teamid=clng(request.QueryString("teamid"))
	sql="select userid from oblog_user where username='"&username&"'"	
	set rs=oblog.execute(sql)
	If rs.Eof Then
		str="用户名"&username&"不存在"
	Else
		id=clng(rs(0))

		Set rs = oblog.execute ("select * from oblog_teamusers where teamid= " & teamid & " And userid = " &id)

		If rs.eof Then 
			oblog.adderrstr ("此用户非本" &P_QQ_NAME& "成员！")
	        oblog.showusererr
			Exit Sub
		End if  
		Dim trs
		If Not IsObject(conn) Then link_database
		Set trs = server.CreateObject("adodb.recordset")
		trs.open "select * from oblog_team where teamid=" & teamid & " And managerid=" & oblog.l_uid ,conn,1,3

		If Not trs.eof Then
			trs("managerid")= id 
			trs("managername") = username
			trs.update
			oblog.execute ("update oblog_teamusers set state= 5 where teamid=" & teamid & " And userid=" & id)
			str="转让群主成功！"
		Else 
			trs.close
			oblog.adderrstr ("无权操作！")
	        oblog.showusererr
			Exit Sub
		End If
		Set trs=Nothing
	End If
	oblog.showok str,""
end sub
%>