www.gusucode.com > 公寓出租网站整站源码 1.0程序 > index.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%>
<tr>
<td><table width="977" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="237" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>公寓分类</b></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td style="line-height:25px;"><% call ShowSmallClass_Tree() %></td>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>公寓查询</b></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" style="line-height:25px;"><% call ShowSearch(1) %></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>新闻动态</b></td>
</tr>
</table></td>
</tr>
<%
set rs_news1=server.createobject("adodb.recordset")
sqltext4="select top 5 * from news where BigClassName='新闻动态'"
rs_news1.open sqltext4,conn,1,1
%>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%i=0
do while not rs_news1.eof%>
<tr>
<td valign="top" style="line-height:25px;">
<img border="0" src="Img/arrow_6.gif" width="11" height="11"> <a href="shownews.asp?id=<%=rs_news1("id")%>" target="_blank"><%=left(rs_news1("title"),12)%></a></td>
</tr>
<%
rs_news1.movenext
i=i+1
loop
rs_news1.close
%>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="37" valign="bottom" background="images/18.gif"><table width="50%" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><b>联系方式</b></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/22.gif"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='联系方式'"
rs.open sql,conn,1,3
%>
<tr>
<td valign="top" style="line-height:25px;"><%=left(rs("Content"),165)%></td>
</tr>
<%rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td><img src="images/28.gif" width="237" height="10" alt="" /></td>
</tr>
</table></td>
<td width="10" valign="top"> </td>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" valign="bottom" background="images/21.gif"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="93%"><b>公寓简介</b></td>
<td width="7%" height="25"><a href="Aboutus.asp?Title=公寓简介">更多>></a></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/23.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" valign="top" ></td>
<td height="5" valign="top" ></td>
</tr>
<tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='公寓简介'"
rs.open sql,conn,1,3
%>
<td width="100%" valign="top" style="line-height:25px;">
<img src="images/01.jpg" width="230" height="150" align="left" /><%=left(rs("Content"),460)%>...</td>
<%rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/29.gif" width="730" height="10" alt="" /></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="35" valign="bottom" background="images/21.gif"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="93%"><strong>公寓展示</strong></td>
<td width="7%" height="25"><a href="product.asp">更多>></a></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/23.gif" style="padding:5px 0 0 0">
<div align="center">
<table border="0" width="98%" cellpadding="0" style="border-collapse: collapse" id="table1">
<tr>
<td><!--#include file="newsproduct.asp"--></td>
</tr>
</table>
</div>
</td>
</tr>
<tr>
<td><img src="images/29.gif" width="730" height="10" alt="" /></td>
</tr>
<tr>
<td height="3"></td>
</tr>
<tr>
<td height="35" valign="bottom" background="images/21.gif"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="93%"><b>入住须知</b></td>
<td width="7%" height="25"><a href="Aboutus.asp?Title=入住须知">更多>></a></td>
</tr>
</table></td>
</tr>
<tr>
<td background="images/23.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" valign="top" ></td>
<td height="5" valign="top" ></td>
</tr>
<tr>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select Content from Aboutus where Title='入住须知'"
rs.open sql,conn,1,3
%>
<td width="100%" valign="top" style="line-height:25px;">
<%=left(rs("Content"),290)%>...</td>
<%rs.close
set rs=nothing
%>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/29.gif" width="730" height="10" alt="" /></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="end.asp"-->