index.asp

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

<!--#include file="inc/syscode.asp"-->
<!--#include file="top.asp"-->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=178 background=images/leftftbg.gif>
      <DIV align=center>
      <TABLE cellSpacing=0 cellPadding=0 width=178 border=0>
        <TBODY>
        <TR>
          <TD width=178><!--#include file="index_ywjs.asp"--></TD>
        </TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 作品列表 --><!--#include file="L_product.asp"--></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 友情连接 --><!-- #include file="L_fellow.asp" --></TD></TR>
        <TR>
          <TD height=10></TD></TR>
        <TR>
          <TD><!-- 站内调查 --><!-- #include file="L_vote.asp" --></TD></TR>
        <TR>
          <TD background=images/leftbg.gif height=5></TD></TR>
</TBODY></TABLE>
    </TD>
<!--********************左栏部分结束**********************-->
    <TD  bgcolor="#FFFFFF" valign=top>
      <table width="580" border="0" align="center" cellpadding="0" cellspacing="0">
       <tr>
            <td width=281 height=75 align=center valign="top"> 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>最新信息</b></font></div></td>
                </tr>
              </table>
              <%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 6 * from news order by id desc"
rs_news.open sqltext4,conn,1,1
%>
              <table width="98%" border="0" cellspacing="1" cellpadding="4" bgcolor="#999999">
                <tr> 
                  <td width="263" height="30" valign="top" bgcolor="#FFFFFF"> 
                    <table width="267" height="22" border="0" cellpadding="0" cellspacing="1">
                      <%i=0
do while not rs_news.eof%>
                      <tr align="center"> 
                        <td width="17"><img src="Img/arrow_6.gif" width="11" height="11"> 
                        </td>
                        <td width="175" height=20 align="left"><a href="NewsInfo.asp?id=<%=rs_news("id")%>"> 
                          <%=cutstr(rs_news("title"),10)%></a> </td>
                        <td width=70><%=rs_news("time")%></td>
                      </tr>
                      <%   rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>
                    </table>
                  </td>
                </tr>
              </table> </td>
            <td width="299" valign=top><table width="100%" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td height="25" bgcolor="#CCCCCC"> <div align="center"><font color="#FFFFFF"><b>最新留言</b></font></div></td>
                </tr>
              </table>
              <table width="96%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#999999">
                <tr> 
                  <td width="276" height="30" valign="top" bgcolor="#FFFFFF"><%
sql2="select top 6 * from book  order by ID desc"        
set rs2=server.createobject("adodb.recordset")        
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
response.write "<center>现在还没有人留言！</center>"
else %>
<table width="281" height="22" border="0" cellpadding="0" cellspacing="1">
                      <%i=0
do while not rs2.eof%>
                      <tr align="center"> 
                        <td width="23"><img src="Img/arrow_6.gif" width="11" height="11"> 
                        </td>
                        <td width="255" height=20 align="left">  <%if rs2("image")<>"" then%>
                          <a href="gbook.asp"><font color=#999999>此留言为悄悄话……</font> </a>
                          <%else%>                   
                             <a href=gbook.asp> <%=cutstr(rs2("内容"),20)%>
                         </a>  <%end if%></td>
                      </tr>
                      <%   rs2.movenext
i=i+1
if i=6 then exit do
loop
rs2.close %>
                    </table>
					 <% end if  %></td>
                </tr>
              </table></td>
       </tr>
      </table>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr><td height=8></td></tr>
  <tr><td height=1 background=img/web_bg.gif></td></tr>
</table>

        <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
            <td width=50% valign=top>
<!-- #include file="L_kf.asp" --></td>
   <td width=50% valign=top><!-- #include file="L_wy.asp" --></td>
  </tr>
</table>
<!-- #include file="L_pro.asp" -->
 </tr>
</table>
<!-- 底部信息部分 --><!-- #include file="foot.asp" -->