index.asp

为中小型企业与欲创业的个人提供一个合适的企业型网站

<!--#include file="top.asp"-->
<table width="800" height="398" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="219" align="center" valign="top" background="images/right_06.gif"><!--#include file="Tyi86_Left.asp" --></td>
    <td width="581" valign="top" background="images/left_03.gif"><table width="579" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="27" align="right" valign="middle"><img src="Images/left_02.gif" width="579" height="27" border="0" usemap="#Map"></td>
      </tr>
      <tr>
        <td align="center" valign="top" background="images/left_03.gif">
		<%
    set rs=server.createobject("adodb.recordset")
    sql="select top 8 * from news ORDER BY id DESC"
    rs.open sql,conn,1,1
    if Rs.eof or Rs.bof then
    response.write"<div align='center'>还没有添加新闻<div>"
    end if 
    do while not rs.eof
    title = rs("title")
    %>
		<table width="98%" height="20" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7%" height="20" align="center" background="images/22.gif"><img src="images/tb.gif" width="6" height="6"></td>
            <td width="93%" background="images/22.gif"><a href="new.asp?id=<%response.write rs(0)%>" title="<%=rs("title")%>"><% 
    if Getlen(title)>48 then
    response.write LeftStr(title,45)
    response.write "..."
    else
    response.write ""&title&""
    end if
%></a>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#808080">[ <%=rs("time")%> ]</font></td>
          </tr>
        </table>
		<% 
    rs.movenext  
    loop
    Rs.Close
    Set Rs=Nothing
%>
       </td>
      </tr>
      <tr>
        <td height="27" align="right" valign="middle"><img src="Images/left_04.gif" width="578" height="28" border="0" usemap="#Map2"></td>
      </tr>
      <tr>
        <td align="center" valign="top" background="images/left_03.gif">
		<%
    sql="select top 8 * from Product order by soft_id DESC"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    if not rs.eof then
%>
		<table width="98%" border="0" cellspacing="0" cellpadding="0">
          <tr>
		<%  i=0
do while not rs.eof and i<8
%>
            <td><table width="140" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><a href='cp.asp?soft_id=<%=rs("soft_id")%>' target='_blank' Title='<%=rs("soft_name")%>'><%If rs("soft_showpic")<>"" Then%><img src="<%=rs("soft_showpic")%>" width="135" height="100" border="0"><%else%><img src="Images/t_p.gif" width="135" height="100" border="0"><%End If%></a></td>
              </tr>
              <tr>
                <td height="19" align="center"><%=left(rs("soft_name"),10)%></td>
              </tr>
            </table></td>
<%
i=i+1
if i mod 4 = 0 then%>			
          </tr>
		  <%
end if
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
        <td><%if request("piccat_id")<> "" then%>该分类暂时没有图片<%elseif request("keyword")<>"" then%>没有找到包含[<b><font color=red><%=request("keyword")%></font></b>]的图片！<%else%>没有任何图片，请管理员到后台添加！<%end if%></td>
                 
<%end if
end if%>
        </table>
		
        </td>
      </tr>
      <tr>
        <td height="27" align="right" valign="middle"><img src="Images/left_07.gif" width="579" height="28" border="0" usemap="#Map3"></td>
      </tr>
      <tr>
        <td align="center" valign="top" background="images/left_03.gif">
		<%
    sql="select top 7 soft_id,soft_name,soft_joindate from soft order by soft_id DESC"
    set rs=server.createobject("adodb.recordset")
    rs.open sql,conn,1,1
    do while not rs.eof
%>
		<table width="98%" height="20" border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7%" height="20" align="center" background="images/22.gif"><img src="images/tb.gif" width="6" height="6"></td>
            <td width="93%" background="images/22.gif"><a href='xz.asp?soft_id=<%=rs("soft_id")%>' target='_blank' Title='<%=rs("soft_name")%>'><%=left(rs("soft_name"),45)%></a>&nbsp;&nbsp;&nbsp;&nbsp; <font color="#808080">[ <%=rs("soft_joindate")%> ]</font></td>
          </tr>
        </table>
		<%
    rs.movenext
    loop
    if rs.eof and rs.bof then
	response.write"<div align='center'>当前还没有资料下载<div>"
    end if %>
          <p>&nbsp;</p></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="end.asp"-->
<% if switch_onlingQQ ="1" then %>
<!--#include file="Tyi86_qqOline.asp" -->
<% end if %>
<map name="Map">
  <area shape="rect" coords="523,5,565,22" href="News.asp">
</map>
<map name="Map2">
  <area shape="rect" coords="524,5,565,23" href="Cpzs.asp">
</map>
<map name="Map3">
  <area shape="rect" coords="524,6,565,22" href="Zlxz.asp">
</map>
</body>
</html>