l_kf.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_conews=server.createobject("adodb.recordset")
sqltextkf="select top 8 * from conews order by id desc"
rs_conews.open sqltextkf,conn,1,1
%>
<br>
<table width="37%" border="0" cellspacing="0" cellpadding="0">
                        <tr align="center"> 
                          
    <td width="290" height=40><img src="Img/kf_top.gif" width=290 height=40></td>
                        </tr>
                        <%i=0
                        do while not rs_conews.eof%>
                         <tr align="center">
                          <td height=20 align="left" background=img/bg_top.gif>
&nbsp;&nbsp;·<a href="KfInfo.asp?id=<%=rs_conews("id")%>"> 
                              <%=cutstr(rs_conews("title"),22)%></a>
                           </td>
                        </tr>
                        <%   rs_conews.movenext
i=i+1
if i=8 then exit do
loop
rs_conews.close %>
                        <tr align="center"> 
                          
    <td width="290" height=5 background=img/bg_bottom.gif> </td>
                        </tr>
                      </table>