right.asp

blog 又搭工

<script language="javascript" type="text/javascript">
	function check1()
	{
			if (document.form1.keyword.value=="")
			{ 
				alert("请输入关键字!");
				return false;				
				}		
	 		return true;
		}				
</script>
<div id="right-bg">
			<div id="search">请键入搜索关键字:
			  <form id="form1" name="form1"  action="search.asp" method="post" onsubmit="javascript:return check1();" >
			      <input name="keyword" type="text" class="text" size="18" />
			        <input name="Submit" type="submit" class="btn" value="搜索" />
		       
		      </form>
		    </div>
			<div id="right-title">博主</div>
			<div id="right-body" align="center">
				<%strSql="Select * From config where id=6"'&request("id")
				 Set rs=db.Execute(strSql)
				 %>
				<div id="pic" style="margin-top:5px; margin-bottom:5px;">
					<!--<img src="image/ok.jpg" width="130" height="130" />	-->
					<img src="../<%=rs("blogpic")%>" width="160" height="180">  
					</div>
			</div>
			
			
			<div id="right-title">文章分类</div>
			<div id="right-body" style="height:auto;font-weight:bold;color: #FF0000;">
				<%
					dim classRs,classSql
					set classRs=server.createobject("adodb.recordset")
					classSql="select * from class order by classid desc"
					classRs.open classSql,db,1
							'文章数目												
				do while not classRs.eof
							Dim Blog_Cls_ID
							Blog_Cls_ID = classRs("classid")
							Set NRs=db.execute("select count(*) from Article where classid= "&Blog_Cls_ID&"")	
				%>
			<div class="nav"><a href="showclass.asp?classid=<%=classRs("classid")%>" class="nav"><%=classRs("classname")%>
					(<%Response.Write ""&NRs(0)&""
						NRs.close%>)</a>
						</div>			
				<%
				classRs.movenext
				loop
				Set NRs = Nothing
				%>
			</div>
			
			
			
			<div id="right-title">近来计划&nbsp;&nbsp;&nbsp;&nbsp;<a href="all_plan.asp" class="page">...</a></div>
			<div id="right-body">
			<%
			dim planRs,planSql
			set planRs=server.createobject("adodb.recordset")
			planSql="select top 10 * from plan order by subdate desc"
			planRs.open planSql,db,1
			'countPlan=planRs.recordcount
			do while not planRs.eof			
			%>
				<a href="show_plan.asp?planid=<%=planRs("planid")%>" class="nav">
				<%
				if len(planRs("title"))>13 then
					 response.Write left(planRs("title"),13)&"..."
				 else
				 	response.Write planRs("title")
				end if
				%>
				 </a>
			<%
			planRs.movenext
			loop
			planRs.close
			set planRs=nothing
			%>	
			</div>
			
			
			<div id="right-title">计划评论</div>
			<div id="right-body">
			<%
			dim reRsRed,reSqlRed
			set reRsRed=server.createobject("adodb.recordset")
			reSqlRed="select top 10 * from replan order by id desc"
			reRsRed.open reSqlRed,db
			'countRe=reRsR.recordcount
			do while not reRsRed.eof	
		%>
			<a href="show_plan.asp?planid=<%=reRsRed("reid")%>&#re" class="nav">
			<%if len(reRsRed("body"))>13 then
				response.Write left(reRsRed("body"),13)&"..."
			   else
			    response.Write reRsRed("body")			
			end if
			%></a>
		<%
		reRsRed.movenext
		loop
		reRsRed.close
		set reRsRed=nothing%>
		</div>
			
			
			
			
			
			<div id="right-title">最近一博&nbsp;&nbsp;&nbsp;&nbsp;<a href="all_article.asp" class="page">...</a></div>
			<div id="right-body">
			<%
			'--------------------------------------------
			'现在开始显示数据库中的信息主要是文章
			'--------------------------------------------
			dim RS,Sql
			set RS=server.createobject("adodb.recordset")
			Sql="select top 10 * from article order by subdate desc"
			Rs.open Sql,db,1
			'countArticle=Rs.recordcount
			do while not Rs.eof			
			%>
			<a href="show_article.asp?articleid=<%=Rs("articleid")%>" class="nav">
			<%if len(Rs("title"))>13 then
				response.Write left(Rs("title"),13)&"..."
			   else
			    response.Write Rs("title")			
			end if
			%></a>
			<%
			rs.movenext
			loop
			rs.close
			set rs=nothing
			%>
			</div>
			
			
			
			
			<div id="right-title">博文评论</div>
			<div id="right-body">
			<%
			dim reRsR,reSqlR
			set reRsR=server.createobject("adodb.recordset")
			reSqlR="select top 10 * from re order by subdate desc"
			reRsR.open reSqlR,db
			'countRe=reRsR.recordcount
			do while not reRsR.eof	
		%>
			<a href="show_article.asp?articleid=<%=reRsR("articleid")%>&#re" class="nav">
			<%if len(reRsR("body"))>13 then
				response.Write left(reRsR("body"),13)&"..."
			   else
			    response.Write reRsR("body")			
			end if
			%></a>
		<%
		reRsR.movenext
		loop
		reRsR.close
		set reRsR=nothing%>
		</div>
			
			
			
			
			
			
			<div id="right-title">博友留言&nbsp;&nbsp;&nbsp;&nbsp;<a href="message.asp" class="page">...</a></div>
			<div id="right-body">
					<%
			'dim meRs,meSql
			set meRs=server.createobject("adodb.recordset")
			meSql="select top 10 * from message order by subdate desc"
			meRs.open meSql,db,1
			'countMessage=meRs.recordCount
			do while not meRs.eof	
		%>
			<a href="message.asp" class="nav">
			<%if len(meRs("body"))>13 then
				response.Write left(meRs("body"),13)&"..."
			   else
			    response.Write meRs("body")			
			end if
			%></a>
		<%
		meRs.movenext
		loop
		meRs.close
		set meRs=nothing%>
			</div>
			
			
			
			
			
			
			<div id="right-title">友情链接&nbsp;&nbsp;&nbsp;&nbsp;<a href="all_link.asp"  class="page">...</a></div>
			<div id="right-body">
				<%
				set linkRs=server.CreateObject("adodb.recordset")
				linksql="select top 12 * from link order by id desc"
				linkrs.open linksql,db,1
				do while not linkrs.eof
				%>
				<a href="<%=linkrs("URL")%>" class="nav" target="_blank"><%=linkrs("text")%></a>
				<%
				linkrs.movenext
				loop
				linkrs.close
				set linkrs=nothing
				%>
			</div>
			
			
			
			
			<div id="right-title">站内统计</div>
			<div id="right-body" style="height:140px; padding-left:20px; width:180px; padding-top:10px; line-height:25px;">
				<!--#include file="count.asp"-->
			</div>
		</div>