www.diandiba.com记录点点滴滴，尽在点滴吧
- 文章
- 文章
- 特效
- 素材
- 景点
www.diandiba.com<!--#include virtual="Conn/Conn.asp"-->
<!--#include virtual="Conn/inc.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href='/Skin/DefaultSkin.css' rel='stylesheet' type='text/css'>
</head>
<body>
<div style="HEIGHT: 215px; OVERFLOW: hidden" id=demo>
<div id=demo1>
<table width="205" border="0" align="center" cellpadding="0" cellspacing="0">
<%
'查询客户回访
set VisitRs=server.CreateObject("adodb.recordset")
VisitSql="select top 5 * from PE_Visit order by VisitID desc"
VisitRs.open VisitSql,conn,3,2
do while not VisitRs.eof
'查询线路
set ArticleInfoRs=server.CreateObject("adodb.recordset")
ArticleInfoSql="select * from PE_Article where ArticleID="&VisitRs("ArticleID")
ArticleInfoRs.open ArticleInfoSql,conn,3,2
%>
<tr>
<td style="line-height:22px;"><a href="/lines/ShowArticle.asp?ArticleID=<%=ArticleInfoRs("ArticleID")%>" target="_blank" title="<%=ArticleInfoRs("Title")%>"><%=VisitRs("UserName")%>：<%=left(VisitRs("View"),16)%></a> 满意度：<span style="color:#FF0000"><%=VisitRs("Satisfaction")%>%</span></td>
</tr>
<%
ArticleInfoRs.close
set ArticleInfoRs=nothing
VisitRs.movenext
loop
VisitRs.close
set VisitRs=nothing
%>
</table>
</div>
<div id=demo2>
</div>
</div>
<script>
var speed=40;
var demo2=document.getElementById("demo2");
var demo1=document.getElementById("demo1");
var demo=document.getElementById("demo");
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight;
else{
demo.scrollTop++;
}
}
var MyMar=setInterval(Marquee,speed);
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>
</body>
</html>