class_qq.asp

电子备课系统

			sRet=Replace(sRet,"$group_ico$",g_Ico)
		Else
			sRet=Replace(sRet,"$group_ico$","")
		End If
		sRet=Replace(sRet,"$group_creater$",g_creater)
		sRet=Replace(sRet,"$group_id$",g_Id)
		'底部
		sRet=Replace(sRet,"$group_bottom$",oblog.CacheConfig(10))
		sRet=Replace(sRet,"$group_comments$",getminilist())
		'公告
		sRet=Replace(sRet,"$group_placard$",vbcrlf & "<!-- " &oblog.CacheConfig(69)& "公告 -->" & vbcrlf & "<div id=""GroupPlacard"">" & vbcrlf & g_announce & vbcrlf & "</div>" & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "公告 end -->" & vbcrlf)
		'友情连接
		sRet=Replace(sRet,"$group_links$",vbcrlf & "<!-- " &oblog.CacheConfig(69)& "友情链接 -->" & vbcrlf & "<div id=""GroupLinks"">" & vbcrlf & g_links & vbcrlf & "	<div id=""ad_teamlinks""></div>" & vbcrlf & "</div>" & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "友情链接 end -->" & vbcrlf)
		'群组信息
		sRet=Replace(sRet,"$group_info$",GetGroupInfo)
		'活跃用户
		sRet=Replace(sRet,"$group_bestuser$",index_showuser("best"))
		'最新加入
		sRet=Replace(sRet,"$group_newuser$",index_showuser("new"))
		sRet=Replace(sRet,"$group_admin$",GetAdminList)
		sRet=Replace(sRet,"$group_bestposts$",GetIndexList(1,True))
		sRet=Replace(sRet,"$group_photo$",showPhoto())
		sRet = sRet &vbcrlf&"<span id=""ad_teambot""></span></body>"&vbcrlf
		sRet = sRet &"</html>"
		sRet = sRet & "<script src=""" & blogurl&"ShowXml.asp?teamid="&g_id&"""></script>"
		'最新群组
		'最活跃群组
		MakeMainPage=sRet
	End Function

	function index_showuser(action)
		dim sql,tmp,i
		if action="best" then
			tmp="Order By post_replys Desc"
		else
			tmp="Order By addtime Desc"
		end if
		Sql="select a.*,b.nickname,b.username,b.user_icon1 From (select top 9 * From oblog_teamusers Where state>2 and teamid=" & g_Id & " "&tmp&") a,oblog_user b Where a.userid=b.userid"
		'Response.Write(sql)
		Set rs=oblog.Execute(Sql)
		If Not rs.Eof Then
				If action = "best" Then
					index_showuser=index_showuser & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "活跃成员 -->" & vbcrlf & "<div id=""GroupBestUser"">" & vbcrlf
				Else
					index_showuser=index_showuser & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "最新成员 -->" & vbcrlf & "<div id=""GroupNewUser"">" & vbcrlf
				End If
			Do While Not rs.Eof
				i=i+1
				if i>9 then exit Do
				index_showuser=index_showuser & "	<ul class=""UserList"">" & vbcrlf
				index_showuser=index_showuser & "		<li class=""userimg""><a href="""&blogurl&"go.asp?userid=" & rs("userid")&""" target=_blank><img src=""" & OB_IIF(rs("user_icon1"),""&blogurl&"images/ico_default.gif")&""" /></a></li>" & vbcrlf
				index_showuser=index_showuser & "		<li class=""username""><a href=""go.asp?userid=" & rs("userid")&"""  target=_blank>" & OB_IIF(rs("nickname"),rs("username"))&"</a></li>" & vbcrlf
				index_showuser=index_showuser & "	</ul>" & vbcrlf
				rs.movenext
			Loop
					index_showuser=index_showuser & "</div>" & vbcrlf
				If action = "best" Then
					index_showuser=index_showuser & "<!-- " &oblog.CacheConfig(69)& "活跃成员 end -->" & vbcrlf
				Else
					index_showuser=index_showuser & "<!-- " &oblog.CacheConfig(69)& "最新成员 end -->" & vbcrlf
				End If

		End If
		Set rs=Nothing
	end function

	'主题内容置顶，其它分页
	Function GetPost(byval pid)
		Dim i,rs,Sql,sTitle,sMBar
		Dim lPage,lAll,lPages
		Dim sRet,sRet1
		Set rs=Server.CreateObject("Adodb.RecordSet")
		Sql="select a.*,b.user_icon1 From oblog_teampost a,oblog_user b Where a.postid="& pid &" and a.userid=b.userid And iDepth=0"
		G_P_Filename="group.asp?cmd=show&gid="&g_Id&"&pid=" & pid & "&page="
		Set rs=oblog.execute(Sql)
		If rs.Eof Then
			sRet="<li>编号为" & pid & "的主题不存在</li>"
			Set rs=Nothing
			Exit Function
		End If
		Oblog.Execute("UPDATE oblog_teampost SET views = views + 1 WHERE postid =  "&pid)
		sTitle=OB_IIF(rs("topic"),"无题")
		If rs("isbest")=1 Then
			sMBar="<a href=""group.asp?cmd=good0&gid=" & g_Id & "&pid=" & rs("postid") & """>取消精华</a> | "
		Else
			sMBar="<a href=""group.asp?cmd=good1&gid=" & g_Id & "&pid=" & rs("postid") & """>设为精华</a> | "
		End If
		If rs("istop")=1 Then
			sMBar=" | <a href=""group.asp?cmd=top0&gid=" & g_Id & "&pid=" & rs("postid") & """>取消置顶</a> | " & sMBar
		Else
			sMBar=" | <a href=""group.asp?cmd=top1&gid=" & g_Id & "&pid=" & rs("postid") & """>设为置顶</a> | " & sMBar
		End If
		'If rs("logid")>0 Then sTitle= icoBlog  & sTitle
		sMBar=sMBar & "<a href=""group.asp?cmd=del&gid=" & g_Id & "&pid=" & rs("postid") & """ onclick=""return confirm('确定删除此帖子？');"">删除</a> | "
		sMBar=sMBar & "<a href=""group.asp?cmd=post&modify=1&gid=" & g_Id & "&pid=" & rs("postid") & """>编辑</a>"
		g_show_title = sTitle
		sRet = g_Show_log
		sRet = vbcrlf & "		<div class=""LogList"">"& vbcrlf &sRet
		sRet = sRet &"		</div>" & vbcrlf
		'替换ID,进行显示
		sRet=Replace(sRet,"$group_name$",vbcrlf & "<!-- " &oblog.CacheConfig(69)& "名称 -->" & vbcrlf & "<div id=""GroupName"">"&g_Name&"</div>" & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "名称 end -->")
		sRet=Replace(sRet,"c_content_down", "c_content_down1")
		sRet=Replace(sRet,"$group_post_title$", "<div class=""LogTitle"">"&sTitle&" (浏览次数："&rs("views")&")</div>")
		sRet=Replace(sRet,"$group_content$",rs("content"))
		sRet=Replace(sRet,"$group_post_userico$",ProIco(rs("user_icon1"),2))
		sRet=Replace(sRet,"$group_post_user$",rs("author"))
		sRet=Replace(sRet,"$group_post_time$",rs("addtime"))
		sRet=Replace(sRet,"$group_post_content$",filtscript(rs("content")))
		sRet=Replace(sRet,"$group_post_id$",rs("postid"))
		sRet=Replace(sRet,"$group_post_replys$","<a href=""#add_comment"">回复("&rs("replys")&")</a> ")
		sRet=Replace(sRet,"$group_tags$",OB_IIF(rs("tags"),""))
		sRet=Replace(sRet,"$group_post_link$","#")
		sRet=Replace(sRet,"$group_post_userurl$","go.asp?user="&rs("author"))
		sRet=Replace(sRet,"$group_post_high$","楼主")

		If imMode=1 Then
			sRet=Replace(sRet,"$group_post_m$",sMBar)
		Else
			if oblog.CodeCookie(rs("author"))=Request.Cookies(cookies_name)("username") then
				sRet=Replace(sRet,"$group_post_m$","<a href=""group.asp?cmd=del&gid=" & g_Id & "&pid=" & rs("postid") & """>删除</a> | <a href=""group.asp?cmd=post&modify=1&gid=" & g_Id & "&pid=" & rs("postid") & """>编辑</a>")
			else
				sRet=Replace(sRet,"$group_post_m$","")
			end if
		End If
		rs.Close
		'挂广告
		sRet=sRet & vbcrlf & "<div id=""oblog_ad_team_post_1""></div>" & Vbcrlf
		'挂内容
		rs.Open "Select a.*,b.User_Icon1,b.Username From (select top 500 * From oblog_teampost Where idepth>0 And parentid=" & pid & " Order By postid Desc) a Left Join oblog_user b  On a.userid =b.userid",conn,1,1
		If rs.Eof Then
			sRet1=""
		Else
			i=0
			'分页
			If Request("page") = "" Or Request("page") ="0" then
				lPage = 1
			Else
				lPage = Int(Request("page"))
			End If
			lAll=Int(rs.recordcount)
			'设置缓存大小 = 每页需显示的记录数目
			rs.CacheSize = iPage
			rs.PageSize = iPage
			rs.movefirst
			lPages = rs.PageCount
			If lPage>lPages Then lPage=lPages
			rs.AbsolutePage = lPage
			sRet1 = ""
			i=0
			Do While Not rs.Eof And i < rs.PageSize
				i=i+1
				sRet1=sRet1 & vbcrlf & Replace("<div class=""CommentsList"">" &g_Show_log&"</div>","$group_topic$","") & vbcrlf
				sRet1=Replace(sRet1,"$group_post_title$", "<div class=""CommentsTitle"">Re:"&sTitle&"</div>")
				sRet1=Replace(sRet1,"$group_post_userurl$","go.asp?user="&rs("author"))
				sRet1=Replace(sRet1,"$group_post_replys$","")
				sRet1=Replace(sRet1,"$group_content$","<span id=""c_"&rs("postid")&""">"&rs("content")&"</span>")
				sRet1=Replace(sRet1,"$group_post_user$","<a href='go.asp?user="&rs("author")&"'><span id=""n_"&rs("postid")&""">"&rs("author")&"</span></a>")
				sRet1=Replace(sRet1,"$group_post_time$","<span id=""t_"&rs("postid")&""">"&rs("addtime")&"</span>")
				sRet1=Replace(sRet1,"$group_post_userico$",OB_IIF(rs("user_icon1"),"images/ico_default.gif"))
				sRet1=Replace(sRet1,"$group_post_high$","第<span class=""xx"">" & i & "</span>楼")
				If imMode=1 or oblog.CodeCookie(rs("author"))=Request.Cookies(cookies_name)("username") Then
					sRet1=Replace(sRet1,"$group_post_m$","<a href=""javascript:reply_quote('"& rs("postid")&"')"" >引用</a> | <a href=""group.asp?cmd=del&gid=" & g_id &"&pid=" & rs("postid")& """>删除</a>")
				Else
					sRet1=Replace(sRet1,"$group_post_m$","<a href=""javascript:reply_quote('"& rs("postid")&"')"" >引用</a> ")
				End If
				rs.MoveNext
			Loop
		End If
		sRet1= vbcrlf &  "<div id=""comment_list"">" & sRet1 &"</div>" & vbcrlf
		'挂分页代码
		sRet1= sRet1 & "<div id=""GroupPages"">" & vbcrlf & PageBarNum(lAll,iPage,lPage,G_P_Filename) & vbcrlf & "</div>"
		'挂回复
		sRet1=sRet1
		GetPost = sRet&sRet1
		GetPost = vbcrlf & "<div id=""GroupList"">" & vbcrlf & "	<div class=""title"">"&g_Name&" &gt; 文章列表 </div>" & vbcrlf & "	<div id=""Log_List"">"&GetPost
		GetPost = GetPost & vbcrlf & "</div>" & vbcrlf & "</div>" & vbcrlf
		GetPost = GetPost & CommentForm(pid,0)
	End Function

	'获取最新回复
	Function GetNewComments()
		Dim rs,Sql,sRet
		Sql="select top 5 content From oblog_teampost Where iDepth>0 And teamid=" & g_id & " Order By postid Desc"
		Set rs=oblog.Execute(Sql)
		If rs.Eof Then
			sRet="<li>-<li>"
		Else
			Do While Not rs.Eof
				sRet=sRet & "<li>" & Left(RemoveHtml(rs(0)),10) & "...</li>"
				rs.MoveNext
			Loop
		End if
		Set rs=Nothing
		GetNewComments=sRet
		sRet=""
	End Function

	'获得群组信息
	Function GetGroupInfo()
		Dim sRet
		sRet=""
		sRet=sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "资料 -->" & vbcrlf
		sRet=sRet & "<div id=""GroupInfo"">" & vbcrlf
		sRet=sRet & "	<ul class=""Groupico"">" & vbcrlf
		sRet=sRet & "		<li><img class=""group_img"" src="""&ProIco(g_ico,2)&""" onload=""rsimg(this,195);"" /></li>" & vbcrlf
		sRet=sRet & "		<li><span>" &oblog.CacheConfig(69)& "名称：</span>"&g_Name&"</li>" & vbcrlf
		sRet=sRet & "	</ul>" & vbcrlf
		sRet = sRet & "	<div class=""GroupIntro""><span>"&oblog.CacheConfig(69)&"介绍：</span><p>"&g_intro&"</p></div>" & vbcrlf
		sRet=sRet & "	<ul class=""GroupData"">" & vbcrlf
		sRet=sRet & "		<li><span>创建者：" & g_ManagerName & "</span></li>" & vbcrlf
		sRet=sRet & "		<li><span>创建时间：" & g_createtime & "</span></li>" & vbcrlf
		sRet=sRet & "		<li><span>成员总数：" & icount0 & "</span></li>" & vbcrlf
		sRet=sRet & "		<li><span>主题总数：" & icount1 & "</span></li>" & vbcrlf
		sRet=sRet & "		<li><span>回复总数：" & icount2 & "</span></li>" & vbcrlf
		sRet=sRet & "	</ul>"& vbcrlf
		sRet=sRet & "</div>"& vbcrlf
		sRet=sRet & "<!-- " &oblog.CacheConfig(69)& "资料 end -->" & vbcrlf
		GetGroupInfo = sRet
	End Function


	function GetAdminList()
		Dim rs,rst,sRet
		Sql="select TOP 1 a.userid,a.province,a.city,username,nickname,blogname,user_icon1,log_count,user_group,scores From oblog_user a,"
		Sql= Sql & "(select  userid,state,addtime From oblog_teamusers Where Teamid=" & G_id & ") b Where a.userid=b.userid and b.state=5 Order By b.addtime Desc"
		Set rs=Oblog.Execute(Sql)
		Do While Not rs.Eof
			sRet= sRet & "		<li class=""Adminimg""><img src=""" & OB_IIF(rs("user_icon1"),""&blogurl&"images/ico_default.gif") & """ border=0 width=48 height=48></li>" & vbcrlf
			sRet= sRet & "		<li class=""Adminname""><a href=""go.asp?userid=" & rs("userid") & """ target=""_blank"">" &  rs("username") &"</a></li>" & vbcrlf
			sRet= sRet & "		<li class=""Admincity"">(" & rs("province") & rs("city")  &")</li>" & vbcrlf
			sRet= sRet
			rs.MoveNext
		Loop
		GetAdminList= vbcrlf & "<!-- " &oblog.CacheConfig(69)& "管理员 -->" & vbcrlf & "<div id=""GroupAdmin"">" & vbcrlf & "	<ul class=""GroupAdmin"">" & vbcrlf &sRet& "	</ul>" & vbcrlf & "</div>" & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "管理员 end -->" & vbcrlf
	end  function

	'获取相关的群组列表信息
	Function GetTeams(byval sNumber,byval sType)
		Dim Sql,rs,sRet,sField1,sField2
		select Case sType
			Case 1
				' hot 最热,回复最多
				sField1="icount2"
				sField2="icount2 Desc"
			Case 2
				'active 最积极,发表文章最多
				sField1="icount1"
				sField2="icount1 Desc"
			Case 3
				'最庞大
				sField1="icount0"
				sField2="icount0 Desc"
			Case 4
				'最新加入
				sField= "icount0"
				sField= "teamid Desc"
		End select
		Sql="select top " & sNumber & " teamid,t_name, " &  sField & " From oblog_team Order by " & sField
		Set rs=oblog.Execute(Sql)
		If rs.Eof Then
			sRet="<li>还没有任何" & oblog.CacheConfig(69) &"信息</li>"
		Else
			Do While Not rs.Eof
				sRet=sRet & "<li><a href=""group.asp?Group_id=" & rs(0) & """ target=""_blank"">" & rs(1) & "</a>(" & rs(2) & ")</li>"
				rs.Movenext
			Loop
		End If
		Set rs=Nothing
		GetHotTeams=sRet
		sRet=""
	End Function

	Function CommentForm(id,action)
		If IsMember=False Then
			If pid=0 Then
				oblog.ShowMsg "非本" &oblog.CacheConfig(69)& "成员不可以发起主题，仅可回复，您可以申请加入该" &oblog.CacheConfig(69)& "","group.asp?cmd=join&gid="&g_id
				exit Function
			Else
				If g_OtherPost = 0 And Not g_ViewLimit="-1" Then
					oblog.ShowMsg "非本" &oblog.CacheConfig(69)& "成员无权参与回复，您可以申请加入该" &oblog.CacheConfig(69)& "","group.asp?cmd=join&gid="&g_id
					exit Function
				End if
			End If
		End If
		Dim sName,sRet,sTopic,sContent,modify,sql
		Dim FormUrl
		If action = 0 Then
			FormUrl = "group.asp?cmd=save&gid="&g_Id&"&pid=" & id &"&modify="&Trim(Request("modify"))
		ElseIf action = 1 Then
			FormUrl = "SaveAlbumComment.asp?fileid="&id&"&teamid="&g_id
		End if
		modify=Trim(Request("modify"))
		If oblog.checkuserlogined()=false Then
			CommentForm="<p><a href='login.asp?fromurl=group.asp?cmd="&cmd&"$gid="&g_Id&"$pid="&id&"'>您必须登录后才能进行回复或者发起新的主题</a></p>"
			Exit Function
		End If