user_team.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 997 行 · 第 1/3 页
ASP
997 行
rs("otherpost")=0
rs("createrid")=oblog.l_uid
rs("creatername")=oblog.l_uname
rs("managerid")=oblog.l_uid
rs("managername")=oblog.l_uname
rs("createtime")=ServerDate(Now)
If oblog.CacheConfig(49) = 1 Then
rs("istate")=1
Else
rs("istate")=3
End if
rs("icount0")=1
rs("intro")=intro
rs("classid")=classid
rs.Update
rs.Close
rs.Open "Select Max(teamid) From oblog_team Where createrid=" & oblog.l_uid
tid=rs(0)
rs.Close
oblog.Execute "Insert into oblog_teamusers(teamid,userid,state) values (" & tid & "," & oblog.l_uid & ",5)"
oblog.GiveScore "" ,-1*Abs(oblog.CacheScores(11)),""
str = "" & P_QQ_NAME & ":" & name &"提交完成"
If oblog.CacheConfig(49) = 1 Then str=str & "正在等待管理员审核"
oblog.showok str, "user_team.asp"
End If
End Sub
Sub listuser()
teamadmin_top()
Dim grade,i
sql="select state from oblog_teamusers where userid="&oblog.l_uid&" and teamid="&teamid&" and state=5"
set rs=oblog.execute(sql)
if rs.eof or rs.bof then
set rs=nothing
oblog.adderrstr("您的权限不足,操作无法完成！")
oblog.showusererr
end if
%>
<table class="win_user_team_table" align="center" border="0" cellpadding="0" cellspacing="1">
<tr>
<td class="win_user_team_table_top" colspan="4" name="_teammember"><%=P_QQ_NAME%>用户管理</td>
</tr>
<form method="POST" action="user_team.asp?action=invite&teamid=<%=teamid%>">
<tr>
<td class="win_user_team_table_td">想邀请的用户：</td>
<td colspan=3><input type="text" name="T1" size="20">
<input type="submit" value=" 提交 " name="B3"></td>
</tr>
</form>
<% If oblog.l_uid=managerid Then%>
<form method="POST" action="user_team.asp?action=teammanager&teamid=<%=teamid%>">
<tr>
<td class="win_user_team_table_td">转让<%=P_QQ_NAME%>：</td>
<td colspan=3><input type="text" name="T1" size="20">
<input type="submit" value=" 提交 " name="B3"></td>
</tr>
</form>
<%End if%>
<tr><td>排序</td><td>用户名称</td><td>用户等级</td><td>管理操作</td></tr>
<%
set rs=oblog.execute("select oblog_user.username,oblog_teamusers.state,oblog_teamusers.userid from oblog_teamusers,oblog_user where [oblog_user].userid=oblog_teamusers.userid and oblog_teamusers.teamid="&teamid&" and oblog_teamusers.state<>4")
while not rs.eof
select case cint(rs(1))
case 3
grade="普通用户"
case 1
grade="受邀但尚未回应"
case 2
grade="申请加入"
case 5
grade="管理员"
end Select
If rs(2)=managerid Then grade = grade & "<font color=red>（群主）</font>"
i=i+1
%>
<tr>
<td><%=i%></td>
<td><a href='blog.asp?name=<%=rs(0)%>' target="_blank"><%=rs(0)%></a></td>
<td><%=grade%></td>
<td><%select case cint(rs(1))
case 3
%> <a href="user_team.asp?action=del&state=1&userid=<%=rs(2)%>&teamid=<%=teamid%>">删除</a> <a href="user_team.asp?action=modifystate&g1=3&g2=5&userid=<%=rs(2)%>&teamid=<%=teamid%>">升为管理员</a> <% case 1%>
<a href="user_team.asp?action=del&state=1&userid=<%=rs(2)%>&teamid=<%=teamid%>">删除邀请</a> <% case 2%>
<a href="javascript:openScript('user_pm.asp?action=readteam&id=<%=rs(2)%>',450,380)"> 查看申请 </a> <a href="user_team.asp?action=modifystate&g1=2&g2=3&userid=<%=rs(2)%>&teamid=<%=teamid%>">同意申请</a> <a href="user_team.asp?action=del&state=2&userid=<%=rs(2)%>&teamid=<%=teamid%>"> 拒绝 </a><% case 5%>
<a href="user_team.asp?action=modifystate&g1=5&g2=3&userid=<%=rs(2)%>&teamid=<%=teamid%>">降为普通用户</a>
<a href="user_team.asp?action=del&state=5&userid=<%=rs(2)%>&teamid=<%=teamid%>">删除</a><%end select%></td>
</tr>
<%
rs.movenext
wend
rs.close
%>
</table>
<%
end sub
Sub ExitTeam()
Dim teamid, sql, rs, str, name
teamid = request.QueryString("teamid")
sql = "select t_name from oblog_team where teamid=" & teamid & ""
Set rs = oblog.Execute(sql)
name = rs(0)
rs.Close
sql = "select userid from oblog_teamusers where teamid=" & teamid & " and userid=" & oblog.l_uid & " and state=5"
rs.open sql, conn, 1, 1
If rs.recordcount = 1 Then
str = "您是" & P_QQ_NAME & name & "的管理员,无法退出该" & P_QQ_NAME & ",若要退出请先转移管理员权限"
oblog.adderrstr (str)
oblog.showusererr
End If
sql = "delete from oblog_teamusers where (teamid=" & teamid & " and userid=" & oblog.l_uid & " and state=3) or (teamid=" & teamid & " and userid=" & oblog.l_uid & " and state=5)"
oblog.Execute (sql)
str = "成功退出了" & P_QQ_NAME & ":" & name & ",您已不再是" & name & "的正式成员"
oblog.showok str, ""
End Sub
sub teamadmin()
%>
<!--群组信息-->
<%
dim i,grade
set rs=oblog.execute("select state from oblog_teamusers where userid="&oblog.l_uid&" and teamid="&teamid)
if not rs.eof then
if rs(0)<>5 then oblog.adderrstr ("无权限")
else
oblog.adderrstr ("无权限")
end if
if oblog.errstr<>"" then
set rs=nothing
oblog.showusererr
exit sub
end if
set rs=oblog.execute("select * from oblog_team where teamid="&teamid&"")
ReCountTeamInfo(teamid)
teamadmin_top()
%>
<form name="oblogform" method="post" action="user_team.asp?action=modifyteaminfo&teamid=<%=teamid%>">
<table class="win_user_team_table" align="center" border="0" cellpadding="0" cellspacing="1">
<tr>
<td class="win_user_team_table_top" colspan="2">修改<%=P_QQ_NAME%>信息</td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>名称：</td>
<td><input type="text" name="name" size="30" value="<%=rs("t_name")%>" disabled></td>
</tr>
<tr>
<td class="win_user_team_table_td">标记图片(120*90)</td>
<td><div class="user_face"><img id="imgIcon" width=120 height=90 src="<%=oblog.filt_html(OB_IIF(rs("t_ico"),""))%>">
<p><iframe id="d_file" frameborder="0" src="upload.asp?tMode=9&re=" width="300" height="80" scrolling="no"></iframe>
<br/>图像地址，只支持jpg,gif,png,尺寸为120*90<br/>
外部调用：<input name="ico" type="text" value="<%=oblog.filt_html(rs("t_ico"))%>" size="50" maxlength="200" / onblur="getImg();">
<br/>你可以直接输入一个有效的图片地址,也可以在这里直接选择一个系统可用的图片</p></div></td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>标签：</td>
<td><input type="text" name="tags" size="50" value="<%=rs("t_tags")%>">(最多支持5个，以逗号间隔)</td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>加入条件：</td>
<td>
<input type="radio" name="t1" value="-1" <%If rs("joinlimit")=-1 Then Response.Write " checked" End If%>>任意加入
<input type="radio" name="t1" value="0" <%If rs("joinlimit")=0 Then Response.Write " checked" End If%>>申请加入
<input type="radio" name="t1" value="1" <%If rs("joinlimit")=1 Then Response.Write " checked" End If%>>仅可邀请<br/>
<input type="radio" name="t1" value="2" <%If rs("joinlimit")=2 Then Response.Write " checked" End If%>>积分限制，需大于<input type=text name="t2" size=5 maxlength=8 value="<%=rs("joinscores")%>">积分才能申请</td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>申请说明<br/>不进行前台显示：</td>
<td><textarea rows="5" name="intro" cols="45"><%=rs("intro")%></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value=" 提交 " name="B1"> <input type="reset" value=" 重置 " name="B2"></form></td>
</tr>
</table>
</form>
<%
end sub
sub modifystate()
dim g1,g2,sql,rs,userid,teamid,str
g1=clng(request.QueryString("g1"))
g2=clng(request.QueryString("g2")) 'g1是原始状态,G2是目标状态
userid=clng(request.QueryString("userid"))
teamid=clng(request.QueryString("teamid"))
sql="select state from oblog_teamusers where userid="&oblog.l_uid&" and teamid="&teamid&""
set rs=oblog.execute(sql)
If userid=managerid Then
oblog.adderrstr("您无权对群主进行操作！")
oblog.showusererr
Exit Sub
end If
if cint(rs(0))<>5 then
oblog.adderrstr("您的权限不足,操作无法完成！")
oblog.showusererr
end if
rs.close
if g1=5 then
sql="select state from oblog_teamusers where state=5 and teamid="&teamid&""
rs.open sql,conn,1,1
if rs.recordcount=1 then
str="该管理员是"&P_QQ_NAME&"中唯一的管理员,无法降级"
oblog.adderrstr(str)
oblog.showusererr
end if
end if
set rs=nothing
sql="update oblog_teamusers set state="&g2&" where userid="&userid&" and state="&g1&" and teamid="&teamid&""
oblog.execute(sql)
oblog.showok "用户状态修改成功",""
end sub
Sub del()
dim state,teamid,userid,sql,rs,str
state=clng(request("state"))
teamid=clng(request("teamid"))
userid=clng(request("userid"))
sql="select state from oblog_teamusers where userid="&oblog.l_uid&" and teamid="&teamid&""
set rs=oblog.execute(sql)
If userid=managerid Then
oblog.adderrstr("您无权对群主进行操作！")
oblog.showusererr
Exit Sub
end if
if cint(rs(0))<>5 then
oblog.adderrstr("您的权限不足,操作无法完成！")
set rs=nothing
oblog.showusererr
exit sub
end if
set rs=server.CreateObject("adodb.recordset")
if state=5 then
sql="select state from oblog_teamusers where state=5 and teamid="&teamid&""
rs.open sql,conn,1,1
if rs.recordcount=1 then
str="该管理员是"&P_QQ_NAME&"中唯一的管理员,无法删除"
oblog.adderrstr(str)
oblog.showusererr
exit sub
end if
end if
sql="delete from oblog_teamusers where teamid="&teamid&" and userid="&userid&""
oblog.execute(sql)
oblog.showok "成功删除相关信息",""
end sub
sub modifyteaminfo()
Dim name, rs, intro, sql, str,ico,tags,t1,t2,t3
intro = Trim(request.Form("intro"))
ico = Trim(request.Form("ico"))
t1 = Trim(request.Form("t1"))
t2 = Trim(request.Form("t2"))
t3 = Trim(request.Form("t3"))
If intro="" Then
oblog.adderrstr ("介绍不能为空！")
oblog.showusererr
Else
intro=Left(intro,240)
End If
If t1="2" Then
If t2="" Or Not isNumeric(t2) Then
oblog.adderrstr ("请输入加入时的积分限制")
oblog.showusererr
Else
t2=Int(t2)
End If
Else
t2=0
End If
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open "select * from oblog_team where teamid=" & teamid & " And managerid=" & oblog.l_uid,conn,1,3
If Not rs.EOF Then
rs("t_ico")=ico
rs("joinlimit")=t1
rs("joinscores")=t2
rs("intro")=intro
rs.Update
str = "" & P_QQ_NAME & "信息修改完成"
Else
str = "" & P_QQ_NAME & "信息不存在"
End If
rs.Close
Set rs=Nothing
oblog.showok str, ""
End sub
sub invite()
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
sql="insert into oblog_teamusers (teamid,userid,state) values("&teamid&","&id&",1)"
oblog.execute(sql)
str="成功向"&username&"发出邀请"
else
Select Case rs("state")
Case 3
str="此用户已经是" &P_QQ_NAME& "的成员"
Case 1
str="此用户已经被邀请了"
Case 2
str="此用户已经发出申请，请通过审核即可"
Case 5
str="此用户是" &P_QQ_NAME& "管理员,不需要进行申请"
End Select
End If
end if
Set rs=Nothing
oblog.showok str,""
end sub
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?