group.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 56 行

<!--#include file="inc/inc_syssite.asp"-->
<!--#include file="inc/inc_ubb.asp"-->
<!--#include file="inc/inc_antispam.asp"-->
<!--#include file="inc/md5.asp"-->
<!--#include file="inc/Class_qq.asp"-->
<%
Dim GroupId,postid,oTeam,cmd
GroupId=Int(Request("gid")) '必须
postid=Request("pid")
If postid<>"" Then postid=Int(postid)
Set oTeam=New Class_Team
oTeam.GroupId=GroupId
cmd=Request("cmd")
If postid<>""  Then
	If cmd="" Then cmd="show"
End if
Select Case cmd
	Case "show"
		'显示单篇内容
		oTeam.ShowPost postid
	Case "save"
		'保存回复内容,返回该日志的最后一页
		Call oTeam.SaveComment()
	Case "join"
		'显示加入申请表单
		Call oTeam.ShowJoinForm()
	Case "pass"
		'处理申请:通过/拒绝[处理完成后给目标用户发短信息]
	Case "invite"
		'显示邀请表单,此处由会员在后台进行操作
	Case "links"
		Call oTeam.ShowlinksForm()
	Case "savelinks"
		Call oTeam.SaveLinks
	Case "placard"
		Call oTeam.ShowPlacardForm()
	Case "saveplacard"
		Call oTeam.Saveplacard
	Case "post"
		oTeam.PostForm
	Case "good0","good1","top0","top1","del"
		If postid<>"" Then Call oTeam.PostManage(cmd,postid)
	Case "users"
		Call oTeam.ShowUsers
	Case "wusers"
	Case "info"	
		Call oTeam.ShowInfo
	Case "good"
		oTeam.ShowList(1)
	Case "savejoin"
		oTeam.ActionJoin
	Case Else
		oTeam.ShowList("")
End Select
Set oTeam=Nothing
%>