l_wy.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
          <%
set rs_yenews=server.createobject("adodb.recordset")
sqltextye="select top 8 * from yenews order by id desc"
rs_yenews.open sqltextye,conn,1,1
%>
<br>
<table width="37%" border="0" cellspacing="0" cellpadding="0">
                        
  <tr align="center"> 
    <td width="290" height=40><img src="Img/wy_top.gif" width=290 height=40></td>
                        </tr>
                        <%i=0
                        do while not rs_yenews.eof%>
                         <tr align="center">
                          
    <td height=20 align="left" background=img/bg_top.gif>&nbsp;&nbsp;·<a href="yenewsInfo.asp?id=<%=rs_yenews("id")%>"> 
      <%=cutstr(rs_yenews("title"),22)%></a>
                           </td>
                        </tr>
                        <%   rs_yenews.movenext
i=i+1
if i=8 then exit do
loop
rs_yenews.close %>
                        <tr align="center"> 
                          
    <td width="290" height=8 background=img/bg_bottom.gif> </td>
                        </tr>
                      </table>