syscode.asp

电子备课系统

	End select

	select Case action
	Case 1
		actionsql = ""
	Case 2
		actionsql = " and isbest=1"
	End select
	If classid = 0 Then
		classsql = ""
	Else
		set rs=oblog.execute("select id from oblog_logclass where parentpath like '"&classid&",%' OR parentpath like '%,"&classid&"' OR parentpath like '%,"&classid&",%'")
		While Not rs.EOF
			ustr=ustr&","&rs(0)
			rs.MoveNext
		Wend
		ustr=classid&ustr
		classsql=" and classid in ("&ustr&")"
		'classsql=" and classid="&CLng(classid)
	End If
	msql="select top "&n&" topic,logfile,addtime,commentnum,iis,logid,classid,subjectid,author,userid from oblog_log where (IsSpecial = 0 OR IsSpecial IS NULL) And isdraft=0 and passcheck=1 And oblog_log.isdel=0 and (oblog_log.is_log_default_hidden=0 or oblog_log.is_log_default_hidden is null) "
	If Is_Sqldata = 0 Then
		msql = msql&" and datediff('d',oblog_log.truetime,Now())<"&Int(sdate)
	Else
		sdate = DateAdd("d",-1*Abs(sdate),Now())
		sdate = GetDateCode(sdate,0)
		msql = msql&" and truetime>'"&sdate&"'"
	End IF
	msql=msql&actionsql&classsql
	msql=msql&ordersql
'	OB_DEBUG msql, 1
	Set rs=Server.CreateObject("Adodb.Recordset")
	rs.open msql ,CONN,1,1
	show_log=show_log & vbcrlf & "<ul>" & vbcrlf
	Do While Not rs.EOF
		arrayList(i) = rs("userid")
		show_log=show_log&"	<li>"
		posttime = rs(2)
		If classname = 1 Then
			Set rstmp = oblog.execute("select id,classname from oblog_logclass where id=" & rs(6))
			If Not rstmp.EOF Then
				show_log=show_log&"<a class=""oblog_class"" href=""list.asp?classid="&rstmp(0)&""" target=""_blank"">〖"&rstmp(1)&"〗</a>"
			End If
		End If
		If subjectname = 1 Then
			Set rstmp = oblog.execute("select subjectid,subjectname from oblog_subject where subjectid=" & rs(7))
			If Not rstmp.EOF Then
				show_log=show_log&"<a class=""oblog_subject"" href=""blog.asp?name="&rs("author")&"&subjectid="&rstmp(0)&""" target=""_blank"">["&oblog.filt_html(rstmp(1))&"]</a>"
			End If
		End If
		Dim topic
		If rs(0) <> "" Then
			topic = Replace(rs(0), "'", "")
			If topic <> "" Then
				If oblog.strLength(topic) > Int(l) Then
					topic = oblog.InterceptStr(topic, Int(l) - 3) & "..."
				End If
			End If
		End If
		show_log=show_log&"<a href="""&rs(1)&""" title="""&oblog.filt_html(rs(0))&""" target=_blank>"&oblog.filt_html(topic)&"</a>"
'		If oblog.cacheConfig(5) = 1 Then
'			userurl = "http://" & Trim(rs("user_domain")) & "." & Trim(rs("user_domainroot"))
'		Else
'			userurl = rs("user_dir") & "/" & rs("user_folder") & "/index." & f_ext
'		End If
		userurl = blogurl & "go.asp?userid="&rs("userid")
		postname = "<span name=""nickname_"&rs("userid")&""" id=""nickname_"&rs("userid")&""">"&rs("userid")&"</span>"
'		postname = "nickname_"&rs("userid")
		select Case CInt(info)
			Case 1
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_uname""><a href="&userurl&" target=_blank>"&postname&"</a></span><span class=""ob_log_c2"">,</span><span class=""ob_log_time"">"&formatdatetime(posttime,0)&"</span><span class=""ob_log_c1"">)</span>"
			Case 2
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_time"">"&posttime&"</span><span class=""ob_log_c1"">)</span>"
			Case 3
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_uname""><a href="&userurl&" target=_blank>"&postname&"</a></span><span class=""ob_log_c1"">)</span>"
			Case 4
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_uname""><a href="&userurl&" target=_blank>"&postname&"</a></span><span class=""ob_log_c2"">,</span><span class=""ob_log_num"">"&rs(4)&"</span><span class=""ob_log_c1"">)</span>"
			Case 5
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_num"">"&rs(4)&"</span><span class=""ob_log_c1"">)</span>"
			Case 6
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_uname""><a href="&userurl&" target=_blank>"&postname&"</a></span><span class=""ob_log_c2"">,</span><span class=""ob_log_time"">"&formatdatetime(posttime,1)&"</span><span class=""ob_log_c1"">)</span>"
			Case 7
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_time"">"&formatdatetime(posttime,1)&"</span><span class=""ob_log_c1"">)</span>"
			Case 8
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_num"">"&rs(3)&"</span><span class=""ob_log_c1"">)</span>"
			Case 9
				show_log=show_log&"<span class=""ob_log_c1"">(</span><span class=""ob_log_bname"">"&oblog.filt_html(rs("blogname"))&"<span><span class=""ob_log_c1"">)</span>"
			Case Else
		End select
		show_log=show_log&"</li>" & vbcrlf
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_log=show_log & "</ul>" & vbcrlf

	If Not rs.Bof Then
		'info参数为1，3，4，6之一才需调用用户昵称
		If InStr("1,3,4,6",info) > 0 Then
			show_log = show_log & oblog.GetNickNameById (arrayList,i,n&l&order&action&sdate&classid&classname&subjectname&info)
'			show_log = oblog.GetNameNameByUserId(arrayList,show_log)
		End if
	End If
	Set rs = Nothing
	Set rstmp = Nothing
End Function

Function show_userlog(userid,n, l, order,  subjectid,  info)
	Dim rs, strSql, strOrderSql, i, posttime,topic,strContent
	i = 0
	select Case order
		Case 1
			'strOrderSql = " order by logid desc"
			strOrderSql = " order by addtime desc"
		Case 2
			strOrderSql = " order by iis desc,logid DESC"
		Case 3
			strOrderSql = " order by commentnum desc,logid DESC"
	End select

	strSql = "select Top "&n&" topic,logfile,addtime,commentnum,iis,logid,author,userid"
	strSql = strSql & " from oblog_log where (IsSpecial = 0 OR IsSpecial IS NULL) And isdraft=0 and passcheck=1 and isdel=0 "
	'过滤掉当日之后的日志
	strSql = strSql & " And addtime< "&G_Sql_Now
	If subjectid<>0 And IsNumeric(subjectid) Then
		strSql = strSql & " And Subjectid=" & CLng(subjectid)
	End If
	strSql = strSql & " And UserId=" & CLng(Userid) & strOrderSql
	'Response.Write strSql
	Set rs = oblog.execute(strSql)
	strContent= vbcrlf & "<ul>" & vbcrlf
	Do While Not rs.EOF
		strContent=strContent&"	<li>"
		posttime = rs("addtime")
		If rs("topic") <> "" Then
			topic = Replace(rs("topic"), "'", "")
			If topic <> "" Then
				If oblog.strLength(topic) > Int(l) Then
					topic = oblog.InterceptStr(topic, Int(l) - 3) & "..."
				End If
			End If
		End If
		strContent=strContent&"<a href=""go.asp?logid=" & rs("logid") &""" title="""&oblog.filt_html(rs(0))&""" target=_blank>"&oblog.filt_html(topic)&"</a>"
		If  CInt(info)=1 Then
			strContent=strContent&"("&formatdatetime(posttime,1)&")"
		End If
		strContent=strContent&"</li>" & vbcrlf
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_userlog=strContent & "</ul>" & vbcrlf
	strContent=""
	Set rs = Nothing
End Function

Function show_class(m)
	Dim rs
	'show_class="<a href=index.asp>首页("&blogcount&")</a><br>"
	Dim i, brstr
	show_class = ""
	m = Int(m)
	Set rs = oblog.execute("select id,classname from oblog_logclass Where idtype=0 And child=0 order by RootID,OrderID")
	If m = 0 Then
		While Not rs.EOF
			show_class=show_class&"<a href=""list.asp?classid="&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 />" & vbcrlf
				i = 0
			Else
				brstr = ""
			End If
			show_class=show_class&"<a href=""list.asp?classid="&rs(0)&""" title="""&rs(1)&""">"&rs(1)&"</a>&nbsp;" & brstr & vbcrlf
			rs.MoveNext
		Wend
		if right(show_class,6)="<br />" then show_class=left(show_class,len(show_class)-6)
	End If
	Set rs = Nothing
End Function

Function show_comment(n, l)
	Dim rs
	set rs=oblog.execute("select top "&n&" mainid,commenttopic,comment_user,addtime,commentid from [oblog_comment] where isdel=0 order by commentid desc")
	show_comment= vbcrlf & "<ul>" & vbcrlf
	While Not rs.EOF
		show_comment=show_comment&"	<li><a href=""go.asp?logid="&rs(0)&"&commentid="&rs(4)&""" target=""_blank"" title="""&oblog.filt_html(rs(2))&"回复于"&rs(3)&""">"&oblog.InterceptStr(oblog.filt_html(rs(1)),CLng(l))&"</a></li>" & vbcrlf
		rs.MoveNext
	Wend
	show_comment=show_comment&"</ul>" & vbcrlf
	Set rs = Nothing
End Function

Function show_subject(n)
	Dim i, rs
	i = 0
	'set rs=oblog.execute("select top "&n&" subjectid,oblog_subject.userid,subjectname,subjectlognum,user_dir,user_folder from [oblog_subject],oblog_user where oblog_subject.userid=oblog_user.userid and oblog_subject.oblog_subjecttype=0 order by subjectlognum desc")
	set rs=oblog.execute("select a.*,b.username From (select top " & n &" Subjectid,SubjectName,SubjectlogNum,userid From oBlog_subject where subjecttype=0 order by subjectlognum desc) a ,oblog_user b Where a.userid=b.userid")
	show_subject= vbcrlf & "<ul>" & vbcrlf
	Do While Not rs.EOF
		show_subject=show_subject&"	<li><a href=""blog.asp?name="&rs("username")&"&subjectid="&rs("subjectid")&""" target=""_blank"" title="""&oblog.filt_html(rs("subjectname"))&"("&rs("SubjectlogNum")&")"">"&oblog.filt_html(rs("subjectname"))&"("&rs("SubjectlogNum")&")</a></li>" & vbcrlf
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_subject=show_subject&"</ul>" & vbcrlf
	Set rs = Nothing
End Function

Function show_blogupdate(n)
	Dim i, rs, userurl
	i = 0
	set rs=oblog.execute("select top "&n&" username,log_count,nickname,blogname,userid,user_dir,user_domain,user_domainroot,user_folder from [oblog_user] where lockuser=0 and isdel=0 AND user_level >=7 order by log_count desc,userid DESC")
	show_blogupdate= vbcrlf & "<ul>" & vbcrlf
	Do While Not rs.EOF
		If oblog.cacheConfig(5) = 1 Then
			userurl = "http://" & Trim(rs("user_domain")) & "." & Trim(rs("user_domainroot"))
		Else
			userurl = rs("user_dir") & "/" & rs("user_folder") & "/index." & f_ext
		End If
		If rs("blogname") <> "" Then
			show_blogupdate=show_blogupdate&"	<li><a href="""&userurl&""" target=""_blank"" title="""&rs("blogname")&"("&rs("log_count")&")"">"&rs("blogname")&"("&rs("log_count")&")</a></li>" & vbcrlf
		Else
			show_blogupdate=show_blogupdate&"	<li><a href="""&userurl&""" target=""_blank"" title="""&rs("username")&"("&rs("log_count")&")"">"&rs("username")&"("&rs("log_count")&")</a></li>" & vbcrlf
		End If
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_blogupdate=show_blogupdate&"</ul>" & vbcrlf
	Set rs = Nothing
End Function

Function show_newblogger(n)
	Dim rs, userurl,userico
	set rs=oblog.execute("select top "&n&" username,log_count,nickname,blogname,userid,user_dir,user_domain,user_domainroot,user_folder from [oblog_user] where lockuser=0 and isdel=0 AND user_level >=7 order by userid desc")
	show_newblogger= vbcrlf & "<ul>" & vbcrlf
	While Not rs.EOF
		If oblog.cacheConfig(5) = 1 Then
			userurl = "http://" & Trim(rs("user_domain")) & "." & Trim(rs("user_domainroot"))
		Else
			userurl = rs("user_dir") & "/" & rs("user_folder") & "/index." & f_ext
		End If
		If rs(3) <> "" Then
			show_newblogger=show_newblogger&"	<li><a href="""&userurl&""" target=""_blank"" title="""&rs(3)&"("&rs(1)&")"">"&rs(3)&"("&rs(1)&")</a></li>" & vbcrlf
		Else
			show_newblogger=show_newblogger&"	<li><a href="""&userurl&""" target=""_blank"" title="""&rs(0)&"("&rs(1)&")"">"&rs(0)&"("&rs(1)&")</a></li>" & vbcrlf
		End If
		rs.MoveNext
	Wend
	show_newblogger=show_newblogger&"</ul>" & vbcrlf
	Set rs = Nothing
End Function

Function show_bestblog(n)
	Dim i, rs, userurl
	i = 0
	set rs=oblog.execute("select top "&n&" username,log_count,nickname,blogname,userid,user_dir,user_domain,user_domainroot,user_folder from [oblog_user] where user_isbest=1 and isdel=0 AND user_level >=7 order by log_count desc,userid DESC")
	show_bestblog= vbcrlf & "<ul>" & vbcrlf
	Do While Not rs.EOF
		If oblog.cacheConfig(5) = 1 Then
			userurl = "http://" & Trim(rs("user_domain")) & "." & Trim(rs("user_domainroot"))
		Else
			userurl = rs("user_dir") & "/" & rs("user_folder") & "/index." & f_ext
		End If
		If rs(3) <> "" Then
			show_bestblog=show_bestblog&"	<li><a href="""&userurl&""" target=""_blank"" title="""&rs(3)&"("&rs(1)&")"">"&rs(3)&"("&rs(1)&")</a></li>" & vbcrlf
		Else
			show_bestblog=show_bestblog&"	<li><a href="""&userurl&""" target=""_blank"" title="""&rs(0)&"("&rs(1)&")"">"&rs(0)&"("&rs(1)&")</a></li>" & vbcrlf
		End If
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_bestblog=show_bestblog&"</ul>" & vbcrlf
	Set rs = Nothing
End Function

Function show_count()
	Dim rs,logToday
	If Is_Sqldata = 0 Then
		Set rs = oblog.execute("select COUNT(logid) FROM oblog_log WHERE DATEDIFF('d',truetime,Now)=0 AND isdel=0 ")
	Else
		Set rs = oblog.execute("select COUNT(logid) FROM oblog_log WHERE truetime>=CONVERT(CHAR(10),GETDATE(),120) AND truetime < CONVERT(CHAR(10),GETDATE()+1,120) AND isdel=0 ")
	End if
	logToday=rs(0)
	Set rs = Nothing
	show_count = vbcrlf & "<ul id=""blog_info"">" & vbcrlf
	show_count = show_count & "	<li>博客：" & oblog.setup(4, 0) & "</li>" & vbcrlf
	show_count = show_count & "	<li>日志："&oblog.setup(1,0)&"</li>" & vbcrlf
	show_count = show_count & "	<li>评论："&oblog.setup(2,0)&"</li>" & vbcrlf
	show_count = show_count & "	<li>留言："&oblog.setup(3,0)&"</li>" & vbcrlf
	show_count = show_count & "	<li>昨日："&OB_IIF(oblog.setup(10, 0),0)&"</li>" & vbcrlf
	show_count = show_count & "	<li>今日："&logToday&"</li></ul>" & vbcrlf
	show_count = show_count & "</ul>" & vbcrlf
End Function

Function show_sysxml()
	show_sysxml = "<a href=""" & blogdir & "rss2.asp"" target=""_blank"" title=""订阅本站最新文章""><img src=""Images/xml.gif"" width=""36"" height=""14"" border=""0""></a>"
End Function

Function show_friends()
	show_friends=OB_IIF(oblog.setup(6, 0),"")
End Function