syscode.asp

电子备课系统

Function show_placard()
	show_placard=OB_IIF(oblog.setup(5, 0),"")
End Function

Function show_bloger(m)
	Dim rs
	Dim i, brstr
	m = Int(m)
	Set rs = oblog.execute("select id,classname from oblog_userclass order by RootID,OrderID")
	If m = 0 Then
		While Not rs.EOF
			show_bloger=show_bloger&"<a href=""listblogger.asp?usertype="&rs(0)&""" title="""&rs(1)&""">"&rs(1)&"</a><br/>" & vbcrlf
			rs.MoveNext
		Wend
	Else
		i = 0
		While Not rs.EOF
			i = i + 1
			If i = Int(m) Then
				brstr = "<br/>"
				i = 0
			Else
				brstr = ""
			End If
			show_bloger=show_bloger&"<a href=listblogger.asp?usertype="&rs(0)&" title="""&rs(1)&""">"&rs(1)&"</a>&nbsp;" & brstr & vbcrlf
			rs.MoveNext
		Wend
	End If
	Set rs = Nothing
End Function

Function show_search(i)
	If i = 0 Then i = "" Else i = "<br />"
	show_search = vbcrlf & "<form name=""search"" method=""post"" action=""list.asp"">" & vbcrlf
	show_search = show_search & "	<select name=""selecttype"" id=""selecttype"">" & vbcrlf
	show_search = show_search & "		<option value=""topic"" selected>日志标题</option>" & vbcrlf
	show_search = show_search & "		<option value=""logtext"">日志内容</option>" & vbcrlf
	show_search = show_search & "		<option value=""id"">博客名称</option>" & i & vbcrlf
	show_search = show_search & "	</select>" & i & vbcrlf
	show_search = show_search & "	<input name=""keyword"" type=""text"" id=""keyword"" size=""16"" maxlength=""40"">" & vbcrlf
	show_search = show_search & "	<input type=""submit"" name=""Submit"" id=""Submit"" value=""搜索"">" & vbcrlf
	show_search = show_search & "</form>" & vbcrlf
End Function

Function show_cityblogger(i)
	show_cityblogger = vbcrlf & "<form name=""oblogform"" id=""cityblogger"" action=""listblogger.asp"">" & vbcrlf
	show_cityblogger = show_cityblogger & oblog.type_city("", "") & vbcrlf
	show_cityblogger = show_cityblogger &"	<input type=""submit"" value=""搜索"">" & vbcrlf
	show_cityblogger = show_cityblogger &"</form>" & vbcrlf

	If i = 1 Then show_cityblogger = Replace(show_cityblogger, "<select name=""city""", "<br /><select name=""city""")
End Function

Function show_newphoto(n, i, w, h)
	Dim rs, sReadMe,imgsrc,fso,wstr,hstr,j,preImgSrc
	Set fso = Server.CreateObject(oblog.CacheCompont(1))
'	If i = 1 Then i = "<br />" Else i = ""
	'兼容4.0模版
	If i = 0 Then i = 4
	if w<>0 or w<>"" then wstr="width="""&w&""""
	if h<>0 or h<>"" then hstr="height="""&h&""""
	Set rs = oblog.execute("select TOP "&N&" c.photo_path,c.photo_readme,c.userid FROM oblog_album c where (c.ishide = 0 OR c.ishide IS NULL) order by photoid desc")
	While Not rs.EOF
		j = j + 1
		If IsNull(rs(1)) Then
			sReadMe = ""
		Else
			sReadMe = oblog.filt_html(rs(1))
		End If
		imgsrc=rs(0)

		preImgSrc=Replace(imgsrc,right(imgsrc,3),"jpg")
		preImgSrc=Replace(preImgSrc,right(preImgSrc,len(preImgSrc)-InstrRev(preImgSrc,"/")),"pre"&right(preImgSrc,len(preImgSrc)-InstrRev(preImgSrc,"/")))
		if  not fso.FileExists(Server.MapPath(preImgSrc)) then
			preImgSrc=imgsrc
		end if
		show_newphoto=show_newphoto&"<a href=""go.asp?albumid="&rs("userid")&""" target=""_blank""><img src="""&preImgSrc&""" "&wstr&" "&hstr&" hspace=""6"" border=""0"" vspace=""6"" alt="""& sReadMe &""" /></a>"
		If j Mod i = 0 Then show_newphoto=show_newphoto& "<br />"
		rs.MoveNext
	Wend
	Set rs = Nothing
End Function

Function show_blogstar()
	Dim rs
	Set rs = oblog.execute("select top 1 * from oblog_blogstar where ispass=1 order by id desc")
	If Not rs.EOF Then
		show_blogstar = vbcrlf & "<div id=""blogstar"">" & vbcrlf
		show_blogstar = show_blogstar & "	<div class=""blogstarimg""><a href=""" & rs("userurl") & """ target=""_blank""><img src=""" & rs("picurl") & """  hspace=""3"" border=""0"" vspace=""3"" alt=""" & oblog.filt_html(rs("blogname")) & """ /></a></div>" & vbcrlf
		show_blogstar=show_blogstar & "	<div class=""blogstarname"">博客："&"<a href="""&rs("userurl")&""" target=""_blank"" title="""&oblog.filt_html(rs("blogname"))&""">"&oblog.filt_html(rs("blogname"))&"</a></div>" & vbcrlf
		show_blogstar = show_blogstar & "	<div class=""blogstarinfo"">简介："&oblog.filt_html(rs("info"))&"</div>" & vbcrlf
		show_blogstar = show_blogstar & "</div>" & vbcrlf
	Else
		show_blogstar = " "
	End If
	Set rs = Nothing
End Function

Public Function show_blogstar2(iNumber, iPerline, iWidth, iHeight)
	Dim rs, iCount, sLine
	If Not IsNumeric(iNumber) Then
		iNumber = 1
	Else
		iNumber = CLng(iNumber)
	End If
	'iWidth=160
	'iHeight=160
	If iNumber = 0 Then iNumber = 1
	Set rs = oblog.execute("select top " & iNumber & " * from oblog_blogstar where ispass=1 order by id desc")
	If Not rs.EOF Then
		show_blogstar2 = vbcrlf & "<table id=""blogstar"" style=""table-layout: fixed; word-break: break-all; "" width=""100%"" border=""0"">" & vbcrlf
		show_blogstar2 = show_blogstar2 & "	<tr>" & vbcrlf


		If iNumber = 1 Then
			sLine = "		<td valign=""top"">" & vbcrlf
			sLine = sLine & "			<div class=""blogstarimg""><a href=""" & rs("userurl") & """ target=""_blank""><img src=""" & rs("picurl") & """ hspace=""3"" border=""0"" vspace=""3"" alt=""" & Left(oblog.filt_html(rs("blogname")) ,999)& """ onload=""javascript:if(this.width>" & iWidth & ") this.style.width=" & iWidth & ";"" /></a></div>" & vbcrlf
			sLine = sLine & "			<div class=""blogstarname"">博客：" & "<a href=""" & rs("userurl") & """ target=""_blank"" title=""" & Left(oblog.filt_html(rs("blogname")) ,999) & """>" & Left(oblog.filt_html(rs("blogname")) ,50) & "</a></div>" & vbcrlf
			sLine = sLine & "			<div class=""blogstarinfo"">简介：" & oblog.filt_html(rs("info")) & "</div>" & vbcrlf
			sLine = sLine & "		</td>" & vbcrlf
			show_blogstar2 = show_blogstar2 & sLine & "	</tr>" & vbCrLf
		'多图片时强制大小统一
		Else
			iCount = 1
			Do While Not rs.EOF
				sLine = "		<td valign=""top"">" & vbcrlf
				sLine = sLine & "			<div class=""blogstarimg""><a href=""" & rs("userurl") & """ target=""_blank""><img src=""" & rs("picurl") & """ hspace=""3"" border=""0"" vspace=""3"" alt=""" & Left (oblog.filt_html(rs("blogname")),999 )& """ width=" & iWidth & " height=" & iHeight & " /></a></div>" & vbcrlf
				sLine = sLine & "			<div class=""blogstarname"">博客：" & "<a href=""" & rs("userurl") & """ target=""_blank"" title=""" & Left (oblog.filt_html(rs("blogname")) ,999)& """>" & Left (oblog.filt_html(rs("blogname")) ,50)& "</a></div>" & vbcrlf
				sLine = sLine & "			<div class=""blogstarinfo"">简介：" & oblog.filt_html(rs("info")) & "</div>" & vbcrlf
				sLine = sLine & "		</td>" & vbCrLf
				show_blogstar2 = show_blogstar2 & sLine
				If iCount Mod iPerline = 0 Then show_blogstar2 = show_blogstar2 & "	</tr>" & vbcrlf
				iCount = iCount + 1
				rs.MoveNext
			Loop
			If Right(show_blogstar2, 5) <> "	</tr>" Then show_blogstar2 = show_blogstar2 & "	</tr>" & vbcrlf
		End If
		show_blogstar2 = show_blogstar2 & "</table>" & vbcrlf
	Else
		show_blogstar2 = " "
	End If
	rs.Close
	Set rs = Nothing
End Function

'获取标签
's 表现形式 1-列表形式,2-云图形式
'n 标签数目
'x 取消（防止用户启用此标签改动麻烦，函数暂不变）
'y 每行显示数目
Function GetHotTags(s,n,x,y)
	Dim sContent,sSql,rst,iFont,iFontSize,i,iFontFamily
	Dim sSplit
	sSplit="&nbsp;&nbsp;" & vbcrlf
	sSql="select * From (SELECT TOP "& n & " * FROM Oblog_Tags ORDER BY iNum DESC,tagid DESC) AS T Where iNum>0 AND iState=1 "
	If s=1 Then
		sSql= sSql & " Order By iNum Desc,tagid DESC "
	Else
		If Is_Sqldata = 1 Then
			sSql= sSql & " Order By Newid()"
		Else
			Randomize
			sSql= sSql & " Order By Rnd(-(TagID+"&Rnd()&"))"
		End If
	End if
	Set rst=conn.Execute(sSql)
	If rst.Eof Then
		sContent=""
	Else
		Do While Not rst.Eof
			If s=1 Then
				sContent= sContent & "<span><a href=""tags.asp?tagid=" & rst("tagID") &""">" & rst("Name")& "<span>(" & rst("iNum") &  ")</span></a></span>" & sSPlit
			Else
				Dim className,FontSize,FontWeight
				iFont=rst("iNum")
				If iFont <= 10 Then
					className = """tag_font1"""
					FontSize = "12px"
					FontWeight = "400"
				ElseIf iFont <=30 Then
					className = """tag_font2"""
					FontSize = "14px"
					FontWeight = "400"
				ElseIf iFont <=100 Then
					className = """tag_font3"""
					FontSize = "15px"
					FontWeight = "400"
				ElseIf iFont <=200 Then
					className = """tag_font4"""
					FontSize = "16px"
					FontWeight = "600"
				ElseIf iFont <=300 Then
					className = """tag_font5"""
					FontSize = "17px"
					FontWeight = "600"
				ElseIf iFont <=450 Then
					className = """tag_font6"""
					FontSize = "18px"
					FontWeight = "600"
				ElseIf iFont <=600 Then
					className = """tag_font7"""
					FontSize = "19px"
					FontWeight = "600"
				ElseIf iFont <=800 Then
					className = """tag_font8"""
					FontSize = "20px"
					FontWeight = "600"
				ElseIf iFont <=1000 Then
					className = """tag_font9"""
					FontSize = "21px"
					FontWeight = "600"
				Else
					className = """tag_font10"""
					FontSize = "22px"
					FontWeight = "600"
				End if
				if iFontSize >800 then iFontFamily="黑体"
				sContent= sContent & "<a href=""tags.asp?tagid=" & rst("tagID") & """ title=""TAG：" & Left(rst("Name"),10)& vbcrlf & "被使用"& rst("iNum") &"次""><span class="&className&" style=""font-size: "&FontSize&"; font-weight: "&FontWeight&"; font-family:"&iFontFamily&";"" >" & Left(rst("Name"),10)& "</span></a>" & sSPlit
			End If
			i=i+1
			If i Mod y = 0 Then
				sContent = sContent &  "<br />" & vbCrLf
			End If
			rst.Movenext
		Loop
	End If
	rst.Close
	Set rst=Nothing
	GetHotTags= sContent
	sContent=""
End Function

'x:1- 最新创建/2-最活跃群组(贴数最多)/3-规模大(人数最多) / 4-推荐群组
'n: 数目
'l: 题目显示长度
'y: 是否显示图标
'w:	图标宽度，不写则默认50
'h: 图标高度，不写则默认50
Function GetTeams(x,n,l,y,w,h)
	Dim rs,Sql,sRet,sIco
	Sql="select top " & n & " teamid,t_name,t_ico,icount0,(icount1+icount2) From oblog_team Where istate=3 and isdel=0  "
	select Case x
		Case 1
			Sql= Sql & " Order By teamid Desc"
		Case 2
			Sql= Sql & " Order By (icount1+icount2) Desc,teamid DESC"
		Case 3
			Sql= Sql & " Order By icount0 Desc,teamid DESC"
		Case 4
			Sql= Sql & " and isbest=1"
	End select
	Set rs=oblog.Execute(Sql)
	sRet= Vbcrlf & "<ul>" & Vbcrlf
	Do While Not rs.Eof
		sRet=sRet & "	<li>" & Vbcrlf
		If y=1 Then
			If w="" Then w=50:h=50
			sIco=LCase(Ob_IIF(rs(2),"images/ico_default.gif"))
			If Left(sico,7)<>"http://" Then sico=blogdir & sico
			sRet=sRet & "		<div class=""group_img""><a href=""group.asp?gid=" & rs(0) & """ target=""_blank""><img src=""" & sico & """ width=""" & w &""" height=""" & h &""" alt=""" & Left(oblog.filt_html((rs(1))),l) & "(" & rs(3) & "/" & rs(4) & ")"" /></a></div>" & Vbcrlf
		End if
		sRet=sRet & "		<div class=""group_name""><a href=""group.asp?gid=" & rs(0) & """ target=""_blank"" title=""" & Left(oblog.filt_html((rs(1))),l) & "(" & rs(3) & "/" & rs(4) & ")"">" & Left(oblog.filt_html((rs(1))),l) & "</a><span>(" & rs(3) & "/" & rs(4) & ")</span></div>" & Vbcrlf
		sRet=sRet & "	</li>" & Vbcrlf
		rs.movenext
	Loop
	Set rs=Nothing
	sRet=sRet & "</ul>" & Vbcrlf
	GetTeams=sRet
End Function

'获取群组文章
'teamid: 0 所有群组;如果是选择多个群组,则把群组ID用|分隔开,如1|2|8
'postnum: 帖子数目
'l:帖子主题显示字数
'u:是否显示用户名 0/1
't:是否显示发帖时间 0/1
Function GetPosts(teamid,postnum,l,u,t)
	Dim rs,sql,sRet,sAddon
	Dim arrayList,i
	ReDim arrayList(postnum-1)
	Sql="select Top " & postnum & " teamid,postid,topic,addtime,author,userid From oblog_teampost Where idepth=0 and isdel=0 "
	If teamid<>"" And teamid<>"0" Then
		teamid=Replace(teamid,"|",",")
		teamid  = FilterIDs(teamid)
		If teamid = "" Then Exit Function
		Sql=Sql & " And teamid In (" & teamid & ") "
	End If
	Sql=Sql & " Order by postid Desc"
	Set rs=oblog.Execute(Sql)
	sRet= Vbcrlf & "<ul>" & Vbcrlf
	i = 0
	If Not RS.Eof Then
		Do While Not rs.Eof
			arrayList(i) = rs("userid")
			sAddon=""
			sRet=sRet & "	<li><a href=""group.asp?gid=" & rs(0) & "&pid=" & rs(1) & """ target=""_blank"" title=""" & oblog.Filt_html(Left(OB_IIF(rs(2),"无题"),l)) & """>" & oblog.Filt_html(Left(OB_IIF(rs(2),"无题"),l)) & "</a>"
			If u=1 Then sAddon=OB_IIF(rs(4),"-")
			sAddon = "<span name=""nickname_"&rs("userid")&""" id=""nickname_"&rs("userid")&""">"&rs("userid")&"</span>"
			if t=1 Then
				If sAddon<>"" Then sAddon=sAddon & ","
				sAddon=sAddon & rs(3)
			End If
			If sAddon<>"" Then sAddon="(" & sAddon & ")"
			sRet=sRet & sAddon & "</li>" & Vbcrlf
			i = i + 1
			rs.Movenext
		Loop
		Set rs = Nothing