news.asp
来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 352 行 · 第 1/2 页
ASP
352 行
</tr>
<tr>
<td height="22" align="right"><font color="#FFFFFF">地段 </font></td>
<td height="22"> <input name="area" type="text" id="area" size="14">
</td>
</tr>
<tr>
<td height="23" align="right"><font color="#FFFFFF">是否中介 </font></td>
<td height="23"><input type="radio" name="reg_type" value="1" class="box">
<font color="#FFFFFF">中介</font>
<input type="radio" name="reg_type" value="0" class="box">
<font color="#FFFFFF">免中介</font> </td>
</tr>
<tr>
<td height="23" colspan="2" valign="bottom"> <div align="center">
<a href="javascript:document.form1.submit();"><img src="../images/frams_86.jpg" width="53" height="23" border="0"></a>
</div></td>
</tr>
</form>
</table>
</td>
</tr>
</form></TR>
<tr>
<td height="43" colspan="2">
<img border="0" src="../img/zhinan.gif" width="255" height="40"></td>
</tr>
<TR>
<TD height="45" colspan="2">
<table width="253" border="0" cellpadding="0" cellspacing="0" class="main">
<%
set rs=server.CreateObject("adodb.recordset")
sql="select top 7 * from news where sort=9 order by dnt desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr >
<td width="19" height="20"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="235" height="20" style="CURSOR: hand" ><font color="#FFFFFF">
<style="CURSOR: hand" ><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=9>
<font color=#FFFFFF><%=left(trim(rs("topic")),15)%></a></font></td>
</tr>
<tr class="trline" height="1">
<td background="../img/back.gif" colspan="2" height="1"></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></TD></TR>
<TR>
<TD colspan="2" height="22">
<p align="right"><a href="liuchen_more.asp?sort=9"><font color="#FFFFFF">更多</font></a></TD></TR>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR></TR>
<TR>
</TR></TBODY></TABLE>
<div align="right">
<TABLE height=30 cellSpacing=0 cellPadding=0 width=710 border=0>
<TBODY>
<TR>
<TD width=5><IMG height=30 src="../img/news1a.gif" width=5></TD>
<TD width=150 background=../img/news4a.gif>
<IMG height=9
src="../img/arr_w2.gif" width=9> <font color="#FFFFFF"><b>房产资讯</b></font></TD>
<TD width=5><IMG height=30 src="../img/news2a.gif" width=5></TD>
<TD background=../img/news5a.gif> </TD>
<TD width=5><IMG height=30 src="../img/news3a.gif"
width=5></TD></TR></TBODY></TABLE>
</div>
<TABLE height=3 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE class=out4s_green cellSpacing=0 cellPadding=0 width=705 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=700 align=center
border=0><TBODY>
<table width="97%" height="113" border="0" align="center" cellpadding="0" cellspacing="0" class="main">
<%
dim curpage
if request.querystring("curpage")="" then
curpage=1
else
curpage=request.querystring("curpage")
end if
const numperpage=27
set rs=server.createobject("adodb.recordset")
sql="select * from news order by dnt desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=numperpage
dim totalpages
totalpages=rs.pagecount
rs.absolutepage=curpage
end if
dim count
count=0
do while not rs.eof and count<numperpage
%>
<tr>
<td width="8%" height="20"> <div align="center">
<img border="0" src="../img/arr_w1.gif" width="9" height="9"></div></td>
<td width="92%" height="22"><a href=liuchen_detail.asp?newsid=<%=trim(rs("newsid"))%>&sort=<%=trim(rs("sort"))%> class="linkone"><%=getStr(rs("topic"),27)%>
<%if trim(rs("imgname"))<>"" and isNull(trim(rs("imgname"))) then response.write "(图)" end if%>
</a> <font color="#666666">(
<!--#include file="../admin/sort.asp" -->
<%=Year(Rs("dnt"))&"-"&Month(Rs("dnt"))&"-"&Day(Rs("dnt"))%>)</font></td>
</tr>
<%
rs.movenext
count=count+1
loop
rs.close
set rs=nothing
%>
<tr>
<td height="40" colspan="2"> <div align="center" class="p12">
<span class="black">
<% if cint(curpage)<>1 then %>
<a href="news.asp?curpage=1" class="linkone">首页 </a>
<% else %>
首页
<% end if %>
<% if cint(curpage)>1 then %>
<a href="news.asp?curpage=<%=curpage-1%>" class="linkone">上一页 </a>
<% else %>
上一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</span><span><a href="news.asp?curpage=<%=curpage+1%>" class="linkone">下一页</a></span><span class="black"><a href="liuchen_more.asp?curpage=<%=curpage+1%>" class="linkone"><% else %>
下一页
<% end if %>
<% if cint(curpage)<>cint(totalpages) then %>
</a><a href="news.asp?curpage=<%=totalpages%>" class="linkone"> 末页
<% else %>
末页
<% end if %>
</a> 第<font color="#FF0000"><%=curpage%></font>页/共<%=totalpages%>页 </span> </div></td>
</tr>
</table></TR></TBODY></TABLE>
</div>
<TABLE height=5 cellSpacing=0 cellPadding=0 width=75 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<div align="right">
<TABLE cellSpacing=0 cellPadding=0 width=708
background=../img/bomgreen2.gif border=0>
<TBODY>
<TR>
<TD width=20>
<IMG height=27 src="../img/bomgreen1.gif"
width=13></TD>
<TD align=right>
</TD></TR></TBODY></TABLE></div>
</TD></TR></TBODY></TABLE>
<!--#include file="../end.asp"-->
</BODY></HTML>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?