left.asp

来自「基于ASP的SQL小区物业管理系统课程设计」· ASP 代码 · 共 53 行

<% sub igonggao() %>
<div class="bleft">
  <h5>小区公告</h5>
     <div class="xia" style="overflow:hidden">
<% 
    set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select * from l_gonggao"
    rs.open sql,conn,1,1
%>
         <marquee behavior="scroll" direction="up" onMouseOver="this.stop()" onMouseOut="this.start()" scrolldelay="200" ><p id="reg-3"><%= rs(1) %></p></marquee>
<% 
   rs.close
   set rs=nothing 
%> 
   </div>
</div>
<% end sub %>

<% sub inew() %>
<div class="bleft">
  <h5>新闻动态</h5>
     <div class="xia">
<ul id="reg-2">
<% 
    set rs=Server.CreateObject("ADODB.RecordSet")
    sql="select top 8 newid,title from l_new order by datetime"
    rs.open sql,conn,1,1
	dim title
	if rs.eof or rs.bof then
%>
             <li>对不起，暂时没有新闻显示</li>
			 <% 
			    rs.close 
			    else
				for i=1 to 8
				title=rs(1)
				if len(title)>12 then
				title=left(title,12)&"..."
				end if
			 %>
		     <li><a href="new.asp?id=<%= rs(0) %>"><%= title %></a></li>
<% 
    rs.movenext
	if rs.eof then exit for
	next
    rs.close
	set rs=nothing
	end if
%>
</ul>
   </div>
</div>
<% end sub %>