syscode.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 887 行 · 第 1/3 页

			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 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
		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>"
	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"
		Case 3
			strOrderSql = " order by commentnum desc"
	End Select           

	strSql = "Select Top "&n&" topic,logfile,addtime,commentnum,iis,logid,author,userid"    
	strSql = strSql & " from oblog_log where ishide<>1 and isdraft=0 and passcheck=1 and isdel=0 "
	strSql = strSql & "and blog_password=0  And (ispassword='' Or ispassword is null)"
	'过滤掉当日之后的日志
	If is_Sqldata=1 Then
		strSql = strSql & " And addtime<getdate() "
	Else
		strSql = strSql & " And addtime<Now "
	End If

	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="<ul>"
	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>"
	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)&">"&rs(1)&"</a><br/>"
			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_class=show_class&"<a href=list.asp?classid="&rs(0)&">"&rs(1)&"</a> "&brstr
			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="<ul>"
	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>"
		rs.MoveNext
	Wend
	show_comment=show_comment&"</ul>"
	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="<ul>"
	Do While Not rs.EOF
		show_subject=show_subject&"<li><a href='blog.asp?name="&rs("username")&"&subjectid="&rs("subjectid")&"' target=_blank>"&oblog.filt_html(rs("subjectname"))&"("&rs("SubjectlogNum")&")</a></li>"
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_subject=show_subject&"</ul>"
	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 order by log_count desc")
	show_blogupdate="<ul>"
	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>"&rs("blogname")&"("&rs("log_count")&")</a></li>"
		Else
			show_blogupdate=show_blogupdate&"<li><a href="&userurl&" target=_blank>"&rs("username")&"("&rs("log_count")&")</a></li>"
		End If
		rs.MoveNext
		i = i + 1
		If i >= Int(n) Then Exit Do
	Loop
	show_blogupdate=show_blogupdate&"</ul>"
	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 order by userid desc")
	show_newblogger="<ul>"
	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>"&rs(3)&"("&rs(1)&")</a></li>" & vbcrlf
		Else
			show_newblogger=show_newblogger&"<li><a href="&userurl&" target=_blank>"&rs(0)&"("&rs(1)&")</a></li>" & vbcrlf
		End If
		rs.MoveNext
	Wend
	show_newblogger=show_newblogger&"</ul>"
	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 order by log_count desc")
	show_bestblog="<ul>"
	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"">"&rs(3)&"("&rs(1)&")</a></li>" & vbcrlf
		Else
			show_bestblog=show_bestblog&"<li><a href="""&userurl&""" target=""_blank"">"&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>"
	Set rs = Nothing
End Function

Function show_count()
	Dim rs,lngToday,lngYesteday
	If is_sqldata Then
		Set rs = oblog.execute("select count(logid) from oblog_log where datediff(d,truetime,getdate())=0  and isdel=0 ")
		lngToday=rs(0)
		Set rs = oblog.execute("select count(logid) from oblog_log where datediff(d,truetime,getdate())=1 and isdel=0 ")
		lngYesteday=rs(0)
	Else
		Set rs = oblog.execute("select count(logid) from oblog_log where datediff('d',truetime,now())=0 and isdel=0 ")
		 lngToday=rs(0)
		Set rs = oblog.execute("select count(logid) from oblog_log where datediff('d',truetime,now())=1 and isdel=0 ")
		lngYesteday=rs(0)
	End If
	Set rs = Nothing
	show_count = "<ul><li>博客：" & oblog.setup(4, 0) & "</li>"
	show_count=show_count&"<li>日志："&oblog.setup(1,0)&"</li>"
	show_count=show_count&"<li>评论："&oblog.setup(2,0)&"</li>"
	show_count=show_count&"<li>留言："&oblog.setup(3,0)&"</li>"
	show_count=show_count&"<li>昨日："&lngYesteday&"</li>"
	show_count=show_count&"<li>今日："&lngToday&"</li></ul>"

End Function

Function show_sysxml()
	show_sysxml = "<a href='" & blogdir & "rss2.asp' target='_blank'><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

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)&">"&rs(1)&"</a><br/>"
			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)&">"&rs(1)&"</a> "&brstr
			rs.MoveNext
		Wend
	End If
	Set rs = Nothing