class_qq.asp

电子备课系统

<%
'Oblog Group Class
'Class_Group.asp
'teamusers中state的状态
'teamusers: state 1有效;2申请加入3被邀请4 副管理员 5 管理员
'拒绝后删除该记录,无论通过还是删除，系统会自动发一条消息给用户
Class Class_Team
	Public g_id,g_Name,g_Ico,CssFile,g_Links,g_Creater,g_ManagerId,g_ManagerName,g_CreateTime,g_ViewLimit
	Public g_Placard,icount0,icount1,icount2,g_intro,g_ViewPassWord,g_Domain,g_DomainRoot,g_OtherPost
	Public g_announce,g_guide,team_Domain,g_URL
	Public PageFrameWork,PageBody,ShowMode,ErrMsg
	Private iPage,Sql,rs,imMode,pid,icoGood,icoTop,icoBlog,groupPWD,fileID
	Private g_Show_main,g_Show_log,g_show_title,g_Show_list

	Private Sub Class_initialize()
		Set rs=Server.CreateObject("Adodb.RecordSet")
		iPage=12
		On Error Resume Next
        If Not IsObject(conn) Then Link_DataBase
        pid=1
	End Sub

	Private Sub Class_terminate()
		On Error Resume Next
        If IsObject(conn) Then conn.Close: Set conn = Nothing
		If ErrMsg<>"" Then Response.Write ErrMsg
    End Sub

	Public Property Let GroupId(byval Value)
		g_id=Int(Value)
		rs.Open "select * From oblog_team Where teamid=" & g_id,conn,1,1
		If rs.Eof Then
			Response.Write "目标" &oblog.CacheConfig(69)& "不存在!"
			Response.End
		Else
			If rs("iState") = 1 Then
				Response.Write "目标" &oblog.CacheConfig(69)& "尚未被管理员审核!"
				Response.End
			ElseIf rs("iState") = 2 Then
				Response.Write "目标" &oblog.CacheConfig(69)& "被锁定!"
				Response.End
			End if
		End If
		rs.Filter="iState=3"

		If Not Rs.EOF Then
			g_Name=rs("t_name")
			g_Ico=rs("t_ico")
			g_CreateTime=rs("CreateTime")
			g_ManagerId=rs("ManagerId")
			g_ManagerName=rs("ManagerName")
			g_ViewLimit = rs("ViewLimit")
			g_ViewPassWord = rs("ViewPassWord")
			g_Domain = rs("t_domain")
			g_DomainRoot = rs("t_domainroot")
			g_OtherPost = rs("otherpost")
			icount0 = rs("icount0")
			icount1 = rs("icount1")
			icount2 = rs("icount2")
			g_intro = rs("intro")
			'获取公告信息
			g_announce=OB_IIF(rs("announce"),"没有设置")
			'获取有情连接信息
			g_links=OB_IIF(rs("links"),"没有设置")
			'检查访问权限
			If g_ViewLimit = 0 Then
				If Not IsMember Then
					Response.Write "非" &oblog.CacheConfig(69)& "成员无权访问此" &oblog.CacheConfig(69)
					Response.End
				End If
				ErrMsg = ""
			ElseIf g_ViewLimit = 1 Then
				If Not IsNull(g_ViewPassWord) And g_ViewPassWord<>"" Then
					groupPWD = Request.Cookies(cookies_name)("group_pwd_"&g_id)
					If groupPWD = "" Or groupPWD<> g_ViewPassWord Then
						Response.Redirect blogurl&"chkblogPassword.asp?groupid="&g_id&"&fromurl="&Replace(oblog.GetUrl,"&","$")
						Response.End
					End If
				End if
			End if
			Call GetTheme
			Call IsManager
			If oblog.CacheConfig(5)="1" And oblog.CacheConfig(75) <> "" And g_Domain<>"" And Not IsNull(g_Domain) Then
				team_Domain = "http://"&g_Domain&"."&g_DomainRoot&"/"
			Else
				team_Domain = oblog.cacheConfig(3)&"group.asp?gid="&g_id
			End If
			g_URL = vbcrlf & "<!-- " &oblog.CacheConfig(69)& "地址 -->" & vbcrlf & "<div id=""GroupUrl""><a href="""&team_domain&""">"&team_domain&"</a></div>" & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "地址 end -->"& vbcrlf
			g_guide = vbcrlf & "<!-- " &oblog.CacheConfig(69)& "导航 -->" & vbcrlf & "<ul id=""GroupMenu"">" & vbcrlf & "	<li><a href=""group.asp?gid=$group_id$"">"&oblog.CacheConfig(69)&"首页</a></li>"&vbcrlf&"	<li><a href=""group.asp?cmd=list&gid=$group_id$"">"&oblog.CacheConfig(69)&"文章</a></li>"&vbcrlf&"	<li><a href=""group.asp?cmd=good&gid=$group_id$"">"&oblog.CacheConfig(69)&"精华</a></li>"&vbcrlf&"	<li><a href=""group.asp?cmd=users&gid=$group_id$"">成员列表</a></li>"&vbcrlf&"	<li>$group_m_buttons$<a href=""group.asp?cmd=join&gid=$group_id$"">申请加入</a></li>"&vbcrlf&"	<li><a href=""group.asp?cmd=album&gid=$group_id$"">浏览相册</a></li>"&vbcrlf&"	<li><a href=""group.asp?cmd=post&gid=$group_id$"">发布新贴</a></li>"&vbcrlf&"	<li><a href=""group.asp?cmd=postphoto&gid=$group_id$"">发布相片</a></li>"&vbcrlf&"</ul>" & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "导航 end -->"&vbcrlf
		Else
			Response.Write "目标" &oblog.CacheConfig(69)& "已经被删除!"
			Response.End
		End If
		rs.Close
		Set rs=Nothing
	End Property

	Public Sub Show()
		PageFrameWork=MakeMainPage(0)
		iMode=Request("mode")
		select Case ShowMode
			Case 1
				PageBody=GetIndexList(iMode,False)
			Case 2
				PageBody=ShowPost(pid)
			Case 3
				PageBody=GetUser(g_id)
			Case Else
				PageBody=ErrMsg
		End select
		'If ShowMode Then
		PageFrameWork=Replace(PageFrameWork,"$title$",g_show_title)
		PageFrameWork=Replace(PageFrameWork,"$group_list$",PageBody)
		Response.Write PageFrameWork
		PageFrameWork=""
	End Sub

	'显示单一日志及回复
	Public Sub ShowPost(pid)
		Dim sRet,sPost,sReply,sEditor
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--浏览帖子及回复")
		sRet=Replace(sRet,"$group_list$",GetPost(pid))
		Response.Write sRet
		sRet=""
	End Sub

	'显示日志列表
	Public Sub ShowList(iType)
		Dim sRet
		sRet=MakeMainPage(iType)
		If iType = 0 Then
			sRet=Replace(sRet,"$group_posts$",GetIndexList(iType,True))
		Else
			sRet=Replace(sRet,"$title$",g_Name&"--浏览帖子列表")
			sRet = Replace(sRet,"$group_list$",vbcrlf & "<div id=""GroupList"">" & vbcrlf & "	<div class=""title"">日志列表</div>" & vbcrlf & "$group_list$" & vbcrlf & "	<div class=""clear""></div>" & vbcrlf)
			If iType = -1 Then
				sRet = Replace(sRet,"$group_list$",GetIndexList(0,False))
			Else
				sRet = Replace(sRet,"$group_list$",GetIndexList(iType,False))
			End if
		End if
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub ShowUsers()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--成员列表")
		sRet = Replace(sRet,"$group_list$",vbcrlf & "<div id=""GroupList"">" & vbcrlf & "	<div class=""title"">成员列表</div>" & vbcrlf & "$group_list$" & vbcrlf & "	<div class=""clear""></div>" & vbcrlf & "</div>")
		sRet=Replace(sRet,"$group_list$",GetUsers)
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub ShowLinksForm()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$group_list$",LinksForm)
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub ShowPlacardForm()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$group_list$",PlacardForm)
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub PostForm()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--发布新帖")
		sRet = Replace(sRet,"$group_list$",vbcrlf & "$group_list$")
		sRet=Replace(sRet,"$group_list$",CommentForm(postid,0))
		Response.Write sRet
		sRet=""
	End Sub


	Public Sub ShowJoinForm()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--申请加入")
		sRet = Replace(sRet,"$group_list$",vbcrlf & "<div id=""GroupList"">" & vbcrlf & "	<div class=""title"">申请加入</div>$group_list$" & vbcrlf & "	<div class=""clear""></div>" & vbcrlf & "</div>")
		sRet=Replace(sRet,"$group_list$",JoinForm(g_id))
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub ActionJoin()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--通过申请")
		sRet=Replace(sRet,"$group_list$",AcceptJoin())
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub PostPHOTO()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--发布相片")
		sRet = Replace(sRet,"$group_list$",vbcrlf & "<div id=""GroupList"">" & vbcrlf & "	<div class=""title"">发布相片</div>" & vbcrlf & "$group_list$" & vbcrlf & "	<div class=""clear""></div>" & vbcrlf & "</div>")
		sRet=Replace(sRet,"$group_list$","<iframe id='d_file' frameborder='0' src='upload.asp?re=no&isphoto=1&tMode=2&teamid="&g_id&"' width='320' height='400' scrolling='no'></iframe>")
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub album()
		Dim sRet
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--浏览相册")
		sRet = Replace(sRet,"$group_list$",vbcrlf & "<div id=""GroupList"">" & vbcrlf & "	<div class=""title"">浏览相册</div>" & vbcrlf & "$group_list$" & vbcrlf & "	<div class=""clear""></div>" & vbcrlf & "</div>")
		sRet=Replace(sRet,"$group_list$",ShowPhoto())
		Response.Write sRet
		sRet=""
	End Sub

	Public Sub photocomment()
		Dim sRet,sPhoto
		GetPhotoComment sPhoto
		sRet=MakeMainPage(1)
		sRet=Replace(sRet,"$title$",g_Name&"--"&g_show_title)
		sRet=Replace(sRet,"$group_list$",sPhoto)
		Response.Write sRet
		sRet=""
	End Sub

	'iMode，1推荐 2 博客文章 3 非博客文章 其他 全部
	'isIndex 是否为首页调用
	Function GetIndexList(iMode,isIndex)
		If Not isIndex Then
			icoBlog="<img src=""oBlogStyle/group/01.gif"" border=""0""  title=""普通文章"" />"
			icoGood="<img src=""oBlogStyle/group/02.gif""  border=""0"" title=""精华文章"" />"
			icoTop="<img src=""oBlogStyle/group/03.gif"" border=""0""  title=""置顶文章"" />"
	'		icoBlog="[普通文章]"
	'		icoGood="[精华文章]"
	'		icoTop="[置顶文章]"
		End if
		Dim SqlPart,sRet,sRet1,i,r,Nums
		Dim rs,lPage,lAll,lPages,sTitle,sMBar
		select Case iMode
			Case "1"
				SqlPart=" And isbest=1 "
			Case "2"
				SqlPart=" And isblog=1 "
			Case "3"
				SqlPart=" And isblog=0 "
			Case Else
		End select
		G_P_Filename="group.asp?cmd="&cmd&"&gid=" & g_id & "&mode="&imode&"&page="
		sRet=""
		If isIndex Then Nums = 8 Else Nums = 500
		Set rs=Server.CreateObject("Adodb.RecordSet")
		Sql="select  * from (select top "&Nums&" isbest,istop,logid,postid,topic,author,replys,lastupdate,addtime,views From oblog_teampost Where teamid=" & g_id & " And iDepth=0 And isTop=1 " & SqlPart & " Order By Lastupdate Desc"
		Sql= Sql & " union "
		Sql= Sql & " (select  top "&Nums&" isbest,istop,logid,postid,topic,author,replys,lastupdate,addtime,views From oblog_teampost Where teamid=" & g_id & " And iDepth=0 And isTop=0  " & SqlPart & " Order by Lastupdate desc )) DERIVEDTBL ORDER BY istop DESC"
		rs.Open Sql,conn,1,1
		'Response.Write(sql)
		'Set rs=oblog.Execute(Sql)
		If rs.Eof Then
			If iMode = "1" Then
				rs.Close
				sRet= sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "精华文章 -->" & vbcrlf
				sRet= sRet & "<div id=""GroupBestLog"">" & vbcrlf
				sRet= sRet & "目前还没有任何主题" & vbcrlf
				sRet= sRet & "</div>" & vbcrlf
				sRet= sRet & "<!-- " &oblog.CacheConfig(69)& "精华文章 end -->" & vbcrlf
				GetIndexList=sRet
				sRet=""
				Exit Function
			Else
				rs.Close
				sRet= sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "最新文章 -->" & vbcrlf
				sRet= sRet & "<div id=""GroupNewLog"">" & vbcrlf
				sRet= sRet & "目前还没有任何主题" & vbcrlf
				sRet= sRet & "</div>" & vbcrlf
				sRet= sRet & "<!-- " &oblog.CacheConfig(69)& "最新文章 end -->" & vbcrlf
				GetIndexList=sRet
				sRet=""
				Exit Function
			End if
		End If
		'分页
		If Request("page") = "" Or Request("page") ="0" then
			lPage = 1
		Else
			lPage = Int(Request("page"))
		End If
		lAll=Int(rs.recordcount)
		'设置缓存大小 = 每页需显示的记录数目
		rs.CacheSize = iPage