user_team.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 997 行 · 第 1/3 页
ASP
997 行
<!--#include file="user_top.asp"-->
<%
Dim DivId,rs,sql,sDisable
Dim teamId,teamname,managerid
DivId=Request("div")
If DivId="" Then DivId=11
DivId=Cint(DivId)
'没有出现编辑器的情况下进行脚本保护
If DivId=13 Or DivId=14 Then
Call oblog.makeEditorJs("edit",2)
End If
'如果有TeamId,则取得该群组的基本信息
teamId=Request("teamid")
If teamId<>"" Then
teamId=Int(teamId)
Set rs=oblog.Execute("Select * From oblog_team Where istate>0 and teamid=" & teamId)
teamname=rs("t_name")
managerid=rs("managerid")
Set rs=Nothing
sDisable=""
Else
sDisable=" disabled"
End If
%>
<script language="javascript">
function getImg(){
if (document.oblogform.ico.value!=""){
document.all.imgIcon.src=document.oblogform.ico.value;
}
}
function doMenu1(URL){
document.getElementById("teamFrame").src=URL;
document.getElementById("swin2").style.display = "block";
}
//window.onload=function(){
// var trs=user_team_left.getElementsByTagName("ol")
// for(var i=0;i<trs.length;i++){
// trs[i].style.backgroundColor=((i%2==0)?"#fff":"#F5FBFF");
// }
//}
</script>
</head>
<body style="overflow:auto!important;overflow-x:hidden;background:#FFf;">
<ul id="user_team_top">
<li id="p13"><a href="user_team.asp"><%=P_QQ_NAME%>首页</a></li>
<li id="p14"><a href="user_team.asp?action=creatteam">创建<%=P_QQ_NAME%></a></li>
<li id="p15"><a href="user_team.asp?action=listmanageteam">管理的<%=P_QQ_NAME%></a></li>
<li id="p15"><a href="user_team.asp?action=listjoinedteam">加入的<%=P_QQ_NAME%></a></li>
<li id="p16"><a href="user_team.asp?action=members&cmd=1">发出的邀请</a></li>
<li id="p17"><a href="user_team.asp?action=members&cmd=3">发出的申请</a></li>
</ul>
<div id="user_team">
<%
'teamusers: state 1有效;2申请加入3被邀请4 副管理员 5 管理员
dim action,id
action=request("action")
id=trim(request("id"))
select case action
case "listjoinedteam"
call listjoinedteam
case "creatteam"
call creatteam
case "maketeam"
call maketeam
case "listuser"
call listuser
case "invite"
call invite
case "exitteam"
call exitteam
case "teamadmin"
call teamadmin
case "modifystate"
call modifystate
case "del"
call del
case "modifyteaminfo"
call modifyteaminfo
Case "members"
Call ListMembers("",Cint(Request("cmd")))
Case "state"
Call MemberState
case "links"
call ShowAddon(1)
case "announce"
call ShowAddon(2)
case "saveaddon"
Call SaveAddon
case "listmanageteam"
call listmanageteam
Case "teammanager"
Call teammanager
case else
call main
response.Write("<div style='display:none'>")'输出一个闭合标签
end select
%>
</div>
</body>
</html>
<%
sub listmanageteam()
%>
<table class="win_user_team_table" align="center" border="0" cellpadding="0" cellspacing="1">
<tr>
<td class="win_user_team_table_top" colspan="5">我管理的<%=P_QQ_NAME%></td>
</tr>
<tr>
<td>序号</td><td><%=P_QQ_NAME%>名称</td><td>创建时间</td><td>帖子/成员<td>操作</td>
</tr>
<%
dim rs,i
set rs=oblog.execute("select a.* From oblog_team a,oblog_teamusers b Where b.userid=" & oblog.l_uid&" and a.teamid=b.teamid and b.state=5 and a.istate>0")
while not rs.eof
i=i+1
%>
<tr>
<td><%=i%></td>
<td><%="<a href=""group.asp?gid="&rs("teamid")&""" target=""_blank"">"&rs("t_name")&"</a>"%></td>
<td><%=formatdatetime(rs("createtime"),2)%></td>
<td><%=rs("icount2")%>/<%=rs("icount0")%></td>
<td>
<%
Select Case Cint(OB_IIF(rs("istate"),2))
Case 1
Response.write "待审"
Case 2
Response.write "锁定"
Case 3
%>
<a href="user_team.asp?action=teamadmin&teamid=<%=rs("teamid")%>">管理</a>
<%
End Select
%>
</td>
</td>
<%
rs.movenext
wend
set rs=nothing
%>
</table>
<%
end sub
sub listjoinedteam()
dim rs,i
set rs=oblog.execute("Select a.teamid,a.t_name,b.addtime,b.post_all From oblog_team a,oblog_teamusers b Where a.teamid=b.teamid And b.userid=" & oblog.l_uid & " And b.state=3")
%>
<table class="win_user_team_table" align="center" border="0" cellpadding="0" cellspacing="1">
<tr>
<td class="win_user_team_table_top" colspan="5">我加入的他人创建的<%=P_QQ_NAME%></td>
</tr>
<tr>
<td>序号</td><td><%=P_QQ_NAME%>名称</td><td>加入时间</td><td>帖数<td>操作</td>
</tr>
<%
If rs.Eof Then
Response.Write "<tr><td colspan=5>未加入他人创建的" &P_QQ_NAME & "</td></tr>"
Else
Do while not rs.eof
i=i+1
%>
<tr>
<td><%=i%></td>
<td><a href="group.asp?gid=<%=rs("teamid")%>" target=_blank><%=rs("t_name")%></a></td>
<td><%=OB_IIF(rs("addtime"),"")%></td>
<td><%=OB_IIF(rs("post_all"),0)%></td>
<td><a href="user_team.asp?action=exitteam&teamid=<%=rs("teamid")%>" onclick="if (confirm('确认要退出该<%=P_QQ_NAME%>吗?')==false) return false;">退出</a></td>
</tr>
<%
rs.movenext
Loop
End If
set rs=nothing
%>
</table>
<%
end sub
Sub creatteam() '创建圈子页面部分
Dim rs
If oblog.l_Group(16,0)=0 Then
oblog.AddErrStr ("您目前所属的等级目前不允许创建新的" &P_QQ_NAME)
oblog.showUserErr
Response.End
End if
'检查之前是够有待审核的申请
Set rs=oblog.Execute("Select t_name From oblog_team Where istate=1 And managerid=" & oblog.l_uid)
If Not rs.Eof Then
oblog.adderrstr("您之前创建的 " & rs(0) & " 还没有被审核通过，不能再创建新的" &P_QQ_NAME)
oblog.showusererr
rs.Close
End If
'检查目前管理的总数
Set rs=oblog.Execute("Select count(teamid) From oblog_team Where managerid=" & oblog.l_uid)
If rs(0)>=oblog.l_Group(16,0) Then
oblog.adderrstr("您目前已管理 " & rs(0) & " 个" &P_QQ_NAME& "，达到系统的限额。" )
oblog.showusererr
rs.Close
End If
Set rs=Nothing
%>
<form name="oblogform" method="post" action="user_team.asp?action=maketeam" >
<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"></td>
</tr>
<tr>
<td class="win_user_team_table_td">标记图片(120*90)</td>
<td><div class="user_face"><img src="images/default_groupico.gif" id="imgIcon" width=120 height=90>
<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" id="ico" type="text" value="images/default_groupico.gif" size="50" maxlength="200" onblur="getImg();">
<br/>你可以直接输入一个有效的图片地址,也可以在这里直接选择一个系统可用的图片</p></div></td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>类别：</td>
<td>
<select name="classid" id="classid" >
<%=oblog.show_class("log",0,2)%>
</select>
</td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>标签：</td>
<td><input type="text" name="tags" size="50">(最多支持5个，以逗号间隔)</td>
</tr>
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>加入条件：</td>
<td><input type="radio" name="t1" value="-1">任意加入 <input type="radio" name="t1" value="0"checked>申请加入 <input type="radio" name="t1" value="1">仅可邀请<br/> <input type="radio" name="t1" value="2">积分限制，需大于<input type=text name="t2" size=5 maxlength=8>积分才能申请</td>
</tr>
<!--
<tr>
<td class="win_user_team_table_td">是否允许非成员参与讨论：</td>
<td><input type="radio" name="t3" value="1" checked>是 <input type="radio" name="t3" value="0">否</td>
</tr>
-->
<tr>
<td class="win_user_team_table_td"><%=P_QQ_NAME%>申请说明<br/>管理员审核用：</td>
<td><textarea rows="5" name="intro" cols="45"></textarea></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" value=" 提交 " name="B1"> <input type="reset" value=" 重置 " name="B2"></td>
</tr>
</table>
</form>
<%
End sub
Sub MakeTeam()
Dim rs
Set rs=Server.CreateObject("Adodb.Recordset")
If oblog.l_Group(16,0)=0 Then
oblog.AddErrStr ("您目前所属的等级目前不允许创建新的" &P_QQ_NAME)
oblog.showUserErr
Response.End
End If
If oblog.l_uScores<CLng(oblog.CacheScores(11)) Then
oblog.AddErrStr ("您的积分不足，无法申请" &P_QQ_NAME)
oblog.showUserErr
Response.End
End if
'检查之前是够有待审核的申请
Set rs=oblog.Execute("Select t_name From oblog_team Where istate=1 And managerid=" & oblog.l_uid)
If Not rs.Eof Then
oblog.adderrstr("您之前创建的 " & rs(0) & " 还没有被申请通过，不能再创建新的" &P_QQ_NAME)
oblog.showusererr
rs.Close
End If
'检查目前管理的总数
Set rs=oblog.Execute("Select count(teamid) From oblog_team Where managerid=" & oblog.l_uid)
If rs(0)>=oblog.l_Group(16,0) Then
oblog.adderrstr("您目前已管理 " & rs(0) & " 个" &P_QQ_NAME& "，达到系统的限额。" )
rs.Close
oblog.showusererr
End If
rs.Close
Dim name, intro, sql, teamid, str,ico,tags,t1,t2,t3,tid,classid
name = oblog.filt_badword(Trim(request.Form("name")))
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"))
classid = Trim(request.Form("classid"))
if classid="" then
oblog.showok "" &P_QQ_NAME& "分类不能为空！",""
else
classid=clng(classid)
end if
If name="" Then
oblog.showok "名称不能为空！",""
exit sub
Else
name=Left(name,50)
End If
If intro="" Then
oblog.showok "申请说明不能为空！",""
exit sub
Else
intro=Left(intro,240)
End If
If t1="2" Then
If t2="" Or Not isNumeric(t2) Then
oblog.showok "请输入加入时的积分限制",""
exit sub
Eles
t2=Int(t2)
End If
Else
t2=0
End If
rs.Open "select * from oblog_team where t_name='" & name & "'",conn,1,3
If Not rs.EOF Then
Set rs = Nothing
oblog.showok "此" & P_QQ_NAME & "名已经存在！",""
exit sub
Else
rs.AddNew
rs("t_name")=name
rs("t_ico")=ico
rs("joinlimit")=t1
rs("joinscores")=t2
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?