class_qq.asp

电子备课系统

			rs.Update
			if ustate=3 then
				sRet="您已加入此" &oblog.CacheConfig(69)& "。"
			else
				sRet="您已成功发送申请,正在等待管理员审核。"
			end if
		End If
		rs.Close
		Set rs=Nothing
		AcceptJoin=sRet
	End Function

	'修改友情连接模块
	Function LinksForm()
		Dim sRet
		sRet="<form action='group.asp?cmd=savelinks&gid="&g_Id&"' method='post' name='commentform' id='commentform' onSubmit='return Verifycomment()'>"& vbcrlf
		sRet=sRet & "<ul><p>请修改您的友情连接</p></ul>"
		sRet=sRet & "<ul style=""display:none"">昵称：<input name='UserName' type='text' id='UserName' size='15' maxlength='20' value='' /></ul>" & vbcrlf
		sRet=sRet & "<ul style=""display:none;"">密码：<input name='Password' type='password' id='Password' size='15' maxlength='20' value='' /> (游客无须输入密码)</ul>" & vbcrlf
		sRet=sRet & "<ul style=""display:none;"">主页：<input name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://' /></ul>"  & vbcrlf
		sRet=sRet & "<ul><input type='hidden' name='edit' id='edit' value='' />" & vbcrlf
		sRet=sRet & "<div id=""oblog_edit""></div> " & vbcrlf
		sRet=sRet & "</ul>" & vbcrlf
		sRet=sRet & "<ul><span id=""ob_code""></span><input type='submit' value=' 提交 '></ul>" & vbcrlf
		sRet=sRet & "</form></div>"& vbcrlf
		sRet=sRet & "<script src=""commentedit.asp""></script>"
		LinksForm=sRet
		sRet=""
	End Function
	Function SaveLinks()
		'判断是否为管理员
		If IsManager=False Then
			ErrMsg= "你没有权限进行此操作"
			Response.End
		End If
		Dim rs,content
		content=Request.Form("oblog_edittext")
		Set rs=Server.CreateObject("Adodb.Recordset")
		rs.Open "select * From oblog_team Where teamid=" & g_Id,conn,1,3
		rs("links")=oblog.Ubb_comment(EncodeJP(oblog.InterceptStr(oblog.filt_badword(content),250)))
		rs.Update
		rs.Close
		Set rs=Nothing
		Response.Redirect "group.asp?gid=" & g_id
	End Function
	'修改站点公告模块
	Function PlacardForm()
		Dim sRet
		sRet="<div id=""form_comment""><form action='group.asp?cmd=saveplacard&gid="&g_Id&"' method='post' name='commentform' id='commentform' onSubmit='return Verifycomment()'>"& vbcrlf
		sRet=sRet & "<ul><p>请修改您的" &oblog.CacheConfig(69)& "公告</p></ul>"
		sRet=sRet & "<ul style=""display:none"">昵称：<input name='UserName' type='text' id='UserName' size='15' maxlength='20' value='' /></ul>" & vbcrlf
		sRet=sRet & "<ul style=""display:none;"">密码：<input name='Password' type='password' id='Password' size='15' maxlength='20' value='' /> (游客无须输入密码)</ul>" & vbcrlf
		sRet=sRet & "<ul style=""display:none;"">主页：<input name='homepage' type='text' id='homepage' size='42' maxlength='50' value='http://' /></ul>"  & vbcrlf
		sRet=sRet & "<ul><input type='hidden' name='edit' id='edit' value='' />" & vbcrlf
		sRet=sRet & "<div id=""oblog_edit""></div> " & vbcrlf
		sRet=sRet & "</ul>" & vbcrlf
		sRet=sRet & "<ul><span id=""ob_code""></span><input type='submit' value=' 提交 '></ul>" & vbcrlf
		sRet=sRet & "</form></div>"& vbcrlf
		sRet=sRet & "<script src=""commentedit.asp""></script>"
		PlacardForm=sRet
		sRet=""
	End Function
	Function SavePlacard()
		'判断是否为管理员
		If IsManager=false Then
			ErrMsg= "你没有权限进行此操作"
			Response.End
		End If
		Dim rs,content
		content=Request.Form("oblog_edittext")
		Set rs=Server.CreateObject("Adodb.Recordset")
		rs.Open "select * From oblog_team Where teamid=" & g_Id,conn,1,3
		rs("announce")=oblog.Ubb_comment(EncodeJP(oblog.InterceptStr(oblog.filt_badword(content),250)))
		rs.Update
		rs.Close
		Set rs=Nothing
		Response.Redirect "group.asp?gid=" & g_id
	End Function
	'解散模块(暂不启用)

	function getminilist()
		Dim rs,Sql,sRet
		Sql="select top 20 topic,parentid,author,teamid,addtime From oblog_teampost Where iDepth=1 And teamid=" & g_id & " Order By postid Desc"
		Set rs=oblog.Execute(Sql)
		If rs.Eof Then

			sRet= sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "最新回复 -->" & vbcrlf
			sRet= sRet & "<ul id=""GroupComments"">" & vbcrlf
			sRet= sRet & "	<li>暂无评论</li>" & vbcrlf
			sRet= sRet & "</ul>" & vbcrlf
			sRet= sRet & "<!-- " &oblog.CacheConfig(69)& "最新回复 end -->" & vbcrlf
		Else
			sRet= sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "最新回复 -->" & vbcrlf
			sRet= sRet & "<ul id=""GroupComments"">" & vbcrlf
			Do While Not rs.Eof
				sRet= sRet & "	<li><a href=""group.asp?gid="&rs(3)&"&pid="&rs(1)&""">" & OB_IIF(RemoveHtml(rs(0)),"无题")&"</a><span class=""user"">"&rs(2)&"<span class=""time"">&nbsp;-&nbsp;"&rs(4)&"</span></span></li>" & vbcrlf
				rs.MoveNext
			Loop
			sRet= sRet & "</ul>" & vbcrlf
			sRet= sRet & "<!-- " &oblog.CacheConfig(69)& "最新回复 end -->" & vbcrlf
		End if
		Set rs=Nothing
		getminilist=sRet
		sRet=""
	end function
	Function CheckQQLogin()
		Dim username,password
		username=oblog.filt_badstr(Trim(Request.form("username")))
		if username="" or oblog.strLength(username)>20 then oblog.adderrstr("名字不能为空且不能大于20个字符！")
		if oblog.chk_badword(username)>0 then oblog.adderrstr("名字中含有系统不允许的字符！")
		password=Trim(Request.form("password"))
		if oblog.checkuserlogined()=false then
			password=md5(password)
			oblog.ob_chklogin username,password,0
		end if
	End Function
	'相册列表
	Function ShowPhoto()
		Dim sRet,i,n
		Dim rs,lPage,lAll,lPages,sTitle,imgsrc
		Dim classid
		classid = Request("classid")
		If classid<>"" Then classid = CLng(classid) Else classid = 0
		G_P_Filename="group.asp?gid=" & g_id & "&cmd="&cmd&"&classid="&classid&"&page="
		sRet=""
		Set rs=Server.CreateObject("Adodb.RecordSet")
		if classid>0 then
			Sql = "select photo_path,fileID,photo_Title,a.userid,b.username,b.nickname from oblog_album a INNER JOIN oblog_user b ON a.userid=b.userid where TeamID="&g_id&" and sysClassId="&classid&"  order by photoID desc"
		else
			Sql = "select photo_path,fileID,photo_Title,a.userid,b.username,b.nickname from oblog_album a INNER JOIN oblog_user b ON a.userid=b.userid where TeamID="&g_id&"  order by photoID desc"
		end If
'		Response.Write(sql)
		rs.Open Sql,conn,1,1
'		Set rs=oblog.Execute(Sql)
'		sRet="<div id=""albumtop""><ul>"&GetSysClasses()&"<ul></div>"
		If rs.Eof Then
			rs.Close
			sRet= sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "最新相片 -->" & vbcrlf
			sRet= sRet & "<div>"
			sRet= sRet & "目前还没有任何相片"
			sRet= sRet & "</div>" & vbcrlf
			sRet= sRet & "<!-- " &oblog.CacheConfig(69)& "最新相片 end -->" & vbcrlf
			ShowPhoto=sRet
			sRet=""
			Exit Function
		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
		rs.PageSize = iPage
		rs.movefirst
		lPages = rs.PageCount
		If lPage>lPages Then lPage=lPages
		rs.AbsolutePage = lPage

		sRet= sRet & vbcrlf & "<!-- " &oblog.CacheConfig(69)& "最新相片 -->"& vbcrlf
		sRet= sRet & "<div id=""GroupNewPhoto"">"& vbcrlf
		Do While Not rs.Eof And i < rs.PageSize
		'写内容
				For n=1 to 4
					If Not rs.EOF Then
						If oblog.CacheConfig(67) = "1" Then
							imgsrc = "attachment.asp?path="&rs(0)
						Else
							imgsrc = ProIco(rs(0),3)
						End If
'						imgsrc=blogurl & rs(0)
						'imgsrc=Replace(imgsrc,right(imgsrc,3),"jpg")
						'imgsrc=Replace(imgsrc,right(imgsrc,len(imgsrc)-InstrRev(imgsrc,"/")),"pre"&right(imgsrc,len(imgsrc)-InstrRev(imgsrc,"/")))
						'if  not fso.FileExists(Server.MapPath(imgsrc)) then
							'imgsrc=blogurl&rsPhoto(0)
						'End if
						sRet=sRet&"	<ul class=""PhotoList"">" & vbcrlf
						sRet=sRet&"		<li class=""Photoimg""><a href=""group.asp?cmd=photocomment&gid=" & g_id & "&fileID="&rs(1)&""" title=""" & ob_IIF(rs(2), "无标题") & """><img src='" & imgsrc & "'   /></a></li>" & vbcrlf
						sRet=sRet&"		<li class=""PhotoTitle""><a href=""group.asp?cmd=photocomment&gid=" & g_id & "&fileID="&rs(1)&""" title=""" & ob_IIF(rs(2),"无标题") & """>" & ob_IIF(rs(2),"无标题") & "</a></li>" & vbcrlf
						sRet=sRet&"		<li class=""Uploader""><a href=""go.asp?userid=1"" title="""&OB_IIF(rs("nickname"),rs("username"))&""">("&OB_IIF(rs("nickname"),rs("username"))&")</a></li>" & vbcrlf
						sRet=sRet&"	</ul>"& vbcrlf
						i=i+1
						rs.movenext
						if n>=iPage Then Exit For
					Else
					End if
				Next
		Loop
		sRet=sRet&"</div>"	& vbcrlf
		sRet=sRet&"<!-- " &oblog.CacheConfig(69)& "最新相片 end -->" & vbcrlf
		rs.Close
		Set rs=Nothing
		'生成一个底部分页条
		If cmd<>"" Then sRet=sRet & "<div id=""GroupPages"">" & vbcrlf & PageBarNum(lAll,iPage,lPage,G_P_Filename) & vbcrlf & "</div>"
		'兼容脚本错误
		'sRet= sRet & vbcrlf & "<div id=""comment_list""></div>"
		ShowPhoto=sRet
		sRet=""
	End Function

	'获取系统分类
	Function GetSysClasses()
		Dim rst,sReturn
		Set rst=oblog.Execute("select * From oblog_logclass Where idtype=1")
		If rst.Eof Then
			sReturn=""
		Else
			Do While Not rst.Eof
				sReturn= sReturn & "<option value="&rst("id")&">" & rst("classname") & "</option>" & VBCRLF
				rst.Movenext
			Loop
			sReturn = "<option value="""">请选择相片分类</option><option value='0'>所有分类</option>" & VBCRLF & sReturn
			sReturn="<select name=classid onchange=""javascript:window.location='group.asp?cmd=album&gid=" & g_id&"&classid='+this.options[this.selectedIndex].value;"">" & VBCRLF & sReturn & "</select>"
		End If
		rst.Close
		Set rst=Nothing
		sReturn=sReturn&"  <a href="""">Flash方式浏览</a>"
		GetSysClasses = sReturn
	End Function
	'相册评论
	Function GetPhotoComment(ByRef sRet0)
		Dim trs,i
		Dim sPInfo
		Dim sRet,sRet1
		Dim rs,lPage,lAll,lPages,sTitle,imgsrc
		fileID = Request("fileid")
		If fileID <>"" Then fileID = CLng(fileID) Else fileID = 0
		Set trs = oblog.Execute ("select PHOTO_title,PHOTO_readme,PHOTO_path,fileID,photo_Name,addtime,b.username,b.nickname FROM oblog_album a INNER JOIN oblog_user b ON a.userid=b.userid WHERE TeamID="&g_id&" AND fileid="&fileid)
		If TRS.EOF Then
			sRet0 = "此相片不存在"
			trs.Close
			Set trs = Nothing
			Exit Function
		Else
			If oblog.CacheConfig(67) = "1" Then
				imgsrc = "attachment.asp?path="&trs("PHOTO_path")
			Else
				imgsrc = ProIco(trs(2),3)
			End If
			sPInfo = sPInfo & vbcrlf & "<div id=""GroupList"">" & vbcrlf
			sPInfo = sPInfo & "	<div class=""title""><a href="""&team_domain&""">"&g_Name&"</a> &gt; <a href=""group.asp?cmd=album&gid="&g_Id&""">浏览相册</a></div>" & vbcrlf
			sPInfo = sPInfo & "<div id=""Group_Photo_List"">" & vbcrlf
			sPInfo = sPInfo & "	<div class=""PhotoContent"">" & vbcrlf
			sPInfo = sPInfo & "		<div class=""PhotoTitle"">"&ob_IIF(trs(0),"无标题")&"</div>" & vbcrlf
			sPInfo = sPInfo & "			<div class=""AddTime""><a href="""" title="""" target=""_blank"">"&OB_IIF(trs("nickname"),trs("username"))&"</a> 发表于<span>"&trs("addtime")&"</span></div>" & vbcrlf
			sPInfo = sPInfo & "		<div class=""img"">" & vbcrlf
			sPInfo = sPInfo & "			<img src="""&imgsrc&""" onclick=""javascript:window.open(this.src);"" style=""cursor:pointer"" onload=""rsimg(this,500);"" alt=""点击查看原图""/>" & vbcrlf
			sPInfo = sPInfo & "		</div>" & vbcrlf
			sPInfo = sPInfo & "		<div class=""Content"">" & vbcrlf
			sPInfo = sPInfo & "			<div class=""ContentTitle"">图片简介：</div>" & vbcrlf
			sPInfo = sPInfo & ob_IIF(trs(1),"无简介") & vbcrlf
			sPInfo = sPInfo & "		</div>" & vbcrlf
			sPInfo = sPInfo & "	</div>" & vbcrlf
		End If
		sTitle = ob_IIF(trs(0),"无标题")
		g_show_title = sTitle
		sRet0 = sPInfo & "<div class=""Comments"">相关评论</div>" & vbcrlf
		G_P_Filename="group.asp?gid=" & g_id & "&cmd="&cmd&"&fileid="&fileid&"&page="
		sRet=""
		Set rs=Server.CreateObject("Adodb.RecordSet")
		SQL = "select a.*,b.user_icon1,b.username From oblog_albumcomment a,oblog_user b Where a.userid=b.userid AND iState=1 AND MAINID="&fileid
'		OB_DEBUG (sql),1
		rs.Open SQL,conn,1,1
		If rs.Eof Then
			rs.Close
			sRet=sRet&"<div class=""Comments"">目前还没有任何评论</div>" & vbcrlf
			sRet0=sPInfo&sRet
			sRet=""
		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 &"	<div class=""CommentsContent"">" & vbcrlf
				sRet1 = sRet1 &"		<table>" & vbcrlf
				sRet1 = sRet1 &"