top.asp

来自「提供企业bug的追踪流程」· ASP 代码 · 共 38 行

<TR>
    <TD class=12p width=183 bgColor=#214ca3 height=25><!--begin 导航条-->　<FONT 
      color=white><STRONG><%=Title%></STRONG></FONT></TD>
    <TD class=12p align=middle width=561 bgColor=#214ca3 height=25><!--begin 滚动新闻-->
	<%
    if isOpenBorder=0 then
	%>
<MARQUEE direction=<%=disefect%> height="12" id=scrollarea onmouseout=scrollarea.start() onmouseover=scrollarea.stop() scrollAmount=<%=distime%> style="CURSOR: hand">
<center> 
<table width="95%" border="0"  cellpadding="0" cellspacing="0" class=12p>
 <tr> 
<!--begin 数据-->
<%
Set rs_border=Server.CreateObject("Adodb.RecordSet")
sql_border="select id,title from bug_border where isopen=0 order by creatTime desc"
rs_border.Open sql_border,conn,1,1
i=0
do while not rs_border.EOF 
%>
 <td>
	
	<a href=border_view.asp?borderid=<%=rs_border("id")%> target="_blank"><font color=white><%=rs_border("title")%></font></a></td><td>&nbsp;&nbsp;</td>
 <%
	i=i+1
	if i>=MaxPerBorders then exit do
	rs_border.movenext
loop
rs_border.Close
set rs_border=Nothing
call CloseConn()  
%>
<!--end 数据-->
 </tr>
</table></center> 
 </MARQUEE>
	<%end if%>
	<!--end 滚动新闻-->　</TD>
    <TD class=12p align=middle width=8 bgColor=#214ca3><!--end 头条新闻--></TD></TR>