<!--#include file="inc/inc_syssite.asp"-->
<!--#include file="inc/class_blog.asp"-->
<%
	dim uname,Rs,Sql,intI,intII,topic,i
	uname=Trim(Request.QueryString("uname"))
%>
<link href="../images/index.css" rel="stylesheet" type="text/css" media="all" />
<link href="../images/public.css" rel="stylesheet" type="text/css" media="all" />
<link href="../images/recruit.css" rel="stylesheet" type="text/css" media="all" />
<div style="height:100%;background:#fff;border:1 #DDECF6 solid;border-top:0px;">
<div id="demo" style="OVERFLOW: hidden; HEIGHT: 200px">
<div id="demo1">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr valign="top">
<%
	Set Rs= Server.CreateObject("ADODB.RecordSet")
	sql="select top 100 * from oblog_log where author='"&uname&"' order by logid desc"
	Rs.open sql,conn,1,1
	dim num:num=rs.recordcount
	intI=0
	intII=1
	if Rs.eof then
		Response.Write("该用户未申请博客或其博客内没有日志资料")
	else
		Do While Not Rs.Eof
			topic=Rs("topic")
			intI=intI+1
			Response.Write("<td width='25%' height='10'>&nbsp;&nbsp;<img align=absmiddle src='../images/dot_13.gif'>&nbsp;<a href='u/"&uname&"/index.html' target='_blank'>")
			Response.Write Left(topic,45)
			if len(topic)>45 then Response.Write("...")
			Response.Write("</a></td>")
			Rs.movenext
			If intI=intII And Not Rs.Eof Then
				intI=0
				Response.Write("</tr><tr>")
			End If
		Loop
	end if
	If intI<>intII Then
		For i=intI To intII-1
			Response.Write("<td></td>")
		Next
	End If
	Rs.Close
	set rs=nothing
%>
</tr>
</table>
</div>
				    <div id="demo2"></div>
			      </div>
<script language="JavaScript" type="text/javascript"> 
var MyMar
var speed=40
<%
if num>8 then
%>
demo2.innerHTML=demo1.innerHTML
<%
end if
%>
function Marquee(){ 
if(demo2.offsetTop-demo.scrollTop<=0) 
demo.scrollTop-=demo1.offsetHeight 
else{ 
demo.scrollTop++ 
} 
} 
<%
if num>8 then
%>
MyMar=setInterval(Marquee,speed)
<%
end if
%> 
demo.onmouseover=function() {clearInterval(MyMar)} 
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)} 
</script>
</div>