syscode.asp

个人博客

		end if
		show_log=show_log&"<a href=more.asp?name="&postname&"&id="&rs(5)&" title="&rs(0)&" target=_blank>"&htmlencode(topic)&"</a>"
		select case cint(info)
		case 1
			show_log=show_log&"(<a href=blog.asp?name="&rs(1)&" target=_blank>"&postname&"</a>,"&formatdatetime(posttime,0)&")"
		case 2
			show_log=show_log&"("&posttime&")"
		case 3
			show_log=show_log&"(<a href=blog.asp?name="&rs(1)&" target=_blank>"&postname&"</a>)"
		case 4
			show_log=show_log&"(<a href=blog.asp?name="&rs(1)&" target=_blank>"&postname&"</a>,"&rs(4)&")"
		case 5
			show_log=show_log&"("&rs(4)&")"
		case 6
			show_log=show_log&"(<a href=blog.asp?name="&rs(1)&" target=_blank>"&postname&"</a>,"&formatdatetime(posttime,1)&")"
		case 7
			show_log=show_log&"("&formatdatetime(posttime,1)&")"
		case 8
			show_log=show_log&"("&rs(3)&")"
		case else
		end select
		show_log=show_log&vbcrlf
		rs.movenext 
	wend
	show_log=show_log&"</li></ul>"
	set rs=nothing	
end sub


'**************************************************
'过程名：sub_showclass
'作  用：显示系统分类
'参  数：无
'**************************************************
sub sub_showclass()
	dim rs
	'show_class="<a href=index.asp>首页("&blogcount&")</a><br>"
	set rs=conn.execute("select id,classname,classlognum from classname order by ordernum asc")
	while not rs.eof 
		show_class=show_class&"<a href=list.asp?classid="&rs(0)&">"&rs(1)&"("&rs(2)&")</a><br>"
		rs.movenext
	wend
	set rs=nothing
end sub

'**************************************************
'作  用：显示最新回复
'参  数：where语句，显示条数
'**************************************************
sub sub_showcomment(n,l)
	dim rs
	set rs=conn.execute("select top "&n&" mainid,mainuser,commenttopic,comment_user,addtime from [comment] order by id desc")
	while not rs.eof 
		show_comment=show_comment&"<a href=more.asp?name="&rs(1)&"&id="&rs(0)&" target=_blank title="&rs(3)&"回复于"&rs(4)&">"&left(rs(2),l)&"<a><br>"
		rs.movenext
	wend
	set rs=nothing
end sub

'**************************************************
'作  用：显示系统专题排行
'参  数：where语句，显示条数
'**************************************************
sub sub_showsubject(n)
	dim i,rs
	i=0
	set rs=conn.execute("select top "&n&" id,username,subjectname,subjectlognum from [subject] order by subjectlognum desc")
	while not rs.eof  and i<n
		'show_subject="<a href="&indexurl&">首页</a><br>"
		show_subject=show_subject&"<a href='blog.asp?subjectid="&rs(0)&"&name="&rs(1)&"' target='_blank'>"&rs(2)&"("&rs(3)&")<a><br>"
		rs.movenext
		i=i+1
	wend
	set rs=nothing
end sub

'**************************************************
'作  用：显示blog排行
'参  数：显示条数
'**************************************************
sub sub_showblogupdate(n)
	dim i,rs
	i=0
	set rs=conn.execute("select top "&n&" username,logcount,blogname from [user] where lockuser='false' order by logcount desc")
	while not rs.eof  and i<n
		if rs(2)<>"" then
			show_blogupdate=show_blogupdate&"<a href=blog.asp?name="&rs(0)&" target=_blank>"&rs(2)&"("&rs(1)&")<a><br>"
		else
			show_blogupdate=show_blogupdate&"<a href=blog.asp?name="&rs(0)&" target=_blank>"&rs(0)&"("&rs(1)&")<a><br>"
		end if
		rs.movenext	
		i=i+1
	wend
	set rs=nothing
end sub

'**************************************************
'作  用：显示新注册blogger
'参  数：显示条数
'**************************************************
sub sub_shownewblogger(n)
	dim i,rs
	i=0
	set rs=conn.execute("select top "&n&" username,logcount,nickname from [user] where lockuser='false'  order by userid desc")
	while not rs.eof  and i<n
		if rs(2)<>"" then
			show_newblogger=show_newblogger&"<a href=blog.asp?name="&rs(0)&" target=_blank>"&rs(2)&"("&rs(1)&")<a><br>"
		else
			show_newblogger=show_newblogger&"<a href=blog.asp?name="&rs(0)&" target=_blank>"&rs(0)&"("&rs(1)&")<a><br>"
		end if
		rs.movenext	
		i=i+1
	wend
	set rs=nothing
end sub

'**************************************************
'作  用：显示推荐blog
'参  数：显示条数
'**************************************************
sub sub_showbestblog(n)
	dim i,rs
	i=0
	set rs=conn.execute("select top "&n&" username,logcount,nickname from [user] where userisbest='true' order by logcount desc")
	while not rs.eof  and i<n
		if rs(2)<>"" then
			show_bestblog=show_bestblog&"<a href=blog.asp?name="&rs(0)&" target=_blank>"&rs(2)&"("&rs(1)&")<a><br>"
		else
			show_bestblog=show_bestblog&"<a href=blog.asp?name="&rs(0)&" target=_blank>"&rs(0)&"("&rs(1)&")<a><br>"
		end if
		rs.movenext	
		i=i+1
	wend
	set rs=nothing
end sub
'**************************************************
'过程名：sub_showcount
'作  用：显示系统统计
'参  数：无
'**************************************************
sub sub_showcount
	dim rs
	if issqldate then
		set rs=conn.execute("select count(id) from blog where datediff(d,addtime,getdate())=0")
	else
		set rs=conn.execute("select count(id) from blog where datediff('d',addtime,now())=0")
	end if
	show_count="博客："&sysusercount
	show_count=show_count&"<br>日志："&syslogcount
	show_count=show_count&"<br>评论："&syscommentcount
	show_count=show_count&"<br>留言："&sysmessagecount
	show_count=show_count&"<br>今日："&rs(0)
	set rs=nothing
end sub


'**************************************************
'作  用：显示系统xml
'参  数：无
'**************************************************
sub sub_showsysxml()
	show_sysxml="<a href='rss2.asp' target='_blank'><img src='Images/xml.gif' width='36' height='14' border='0'></a>"
end sub

'**************************************************
'过程名：sub_showfriends
'作  用：显示系统友情连接
'参  数：无
'**************************************************
sub sub_showfriends
	if isnull(sitefriends) then
		show_friends=" "
	else
		show_friends=sitefriends
	end if
end sub

'**************************************************
'过程名：sub_showplacard
'作  用：显示系统公告
'参  数：无
'**************************************************
sub sub_showplacard
	if isnull(aApplicationValue(30)) then
		show_placard=" "
	else
		show_placard=aApplicationValue(30)
	end if
end sub

'**************************************************
'过程名：sub_showbloger
'作  用：显示博客分类
'参  数：无
'**************************************************
sub sub_showbloger(m)
	dim rs
	dim i,brstr
	m=int(m)
	set rs=conn.execute("select id,typename,usernum from usertype order by ordernum asc")
	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
end sub


'**************************************************
'作  用：显示搜索
'参  数：无
'**************************************************
sub sub_showsearch
	show_search="<form name='search' method='post' action='list.asp'>"
	show_search=show_search&"<select name='selecttype' id='selecttype'>"
	show_search=show_search&"<option value='topic' selected>日志标题</option>"
	show_search=show_search&"<option value='logtext'>日志内容</option>"
	show_search=show_search&"<option value='id'>博客名称</option></select><br>"
	show_search=show_search&"<input name='keyword' type='text' id='keyword' size='16' maxlength='40'>"
	show_search=show_search&" <input type='submit' name='Submit' value='搜索'></form>"
end sub

%>