index2.asp

来自「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员」· ASP 代码 · 共 572 行 · 第 1/2 页

ASP

572 行

</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellpadding="5">
<tr>
<td width="50%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%"><img border="0" src="imag/k-001.jpg"></td>
<td width="96%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="33%">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%">
<p align="center"><b><font style="font-size: 14px" color="#FFFFFF">热点新闻</font></b></td>
<td width="34%"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="2%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="96%">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<% set rsTOP=server.createobject("adodb.recordset")
				  sqlTOP="select top 6 * from news where mytype='热点新闻' order by lls desc"
				  rsTOP.open sqlTOP,conn,3,3
		          for i=1 to 10 %>
<tr>
<td width="5%"><img border="0" src="imag/001.gif"></td>
<td width="95%"><a title="<% =left(rsTOP("nr"),25) %>..." href=open.asp?xiangxi=<% =rsTOP("id") %> target="_blank"><% =left(rsTOP("bt"),20) %><% if len(rsTOP("bt")) > 21 then 
				  response.Write"..."
				  end if%></a>&nbsp;&nbsp;<font style="font-size: 10px" color="#C0C0C0"><% =rstop("riqi") %></font>
</td>
</tr>
<% rsTOP.movenext
                   if rsTOP.eof then exit for
                   next
                   rsTOP.close %>
</table>
</td>
<td width="2%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img border="0" src="imag/k-007-1.jpg"></td>
<td width="94%" background="imag/k-007-d.jpg">
<p align="center"><img border="0" src="imag/k-007-2.jpg"></td>
<td width="3%"><img border="0" src="imag/k-007-3.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="50%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%"><img border="0" src="imag/k-001.jpg"></td>
<td width="96%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="33%">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%">
<p align="center"><font color="#FFFFFF"><b><font style="font-size: 14px">房产新闻</font></b></font></td>
<td width="34%"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="2%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="2%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="96%">
<table border="0" width="100%" cellspacing="1" cellpadding="0">
<% set rsnew=server.createobject("adodb.recordset")
				  sqlnew="select top 6 * from news where mytype='房产新闻' order by id desc"
				  rsnew.open sqlnew,conn,3,3
		          for i=1 to 10 %><tr>
<td width="5%"><img border="0" src="imag/001.gif"></td>
<td width="95%"><a title="<% =left(rsnew("nr"),25) %>..." href=open.asp?xiangxi=<% =rsnew("id") %> target="_blank"><% =left(rsnew("bt"),20) %></a>&nbsp;&nbsp;<font style="font-size: 10px" color="#C0C0C0"><% =rsnew("riqi") %></font>
</td>  
</tr><% rsnew.movenext
                   if rsnew.eof then exit for
                   next
                   rsnew.close %>
</table>
</td>
<td width="2%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="3%"><img border="0" src="imag/k-007-1.jpg"></td>
<td width="94%" background="imag/k-007-d.jpg">
<p align="center"><img border="0" src="imag/k-007-2.jpg"></td>
<td width="3%"><img border="0" src="imag/k-007-3.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellpadding="5">
<tr>
<td width="50%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%"><img border="0" src="imag/k-001.jpg"></td>
<td width="98%" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" background="imag/k-002-1.jpg"><img border="0" src="imag/k-002-1.jpg"></td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" bgcolor="#71B51C">
<tr>
<td width="50%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="33%">
<p align="right"><img border="0" src="imag/k-003.jpg"></td>
<td width="33%">
<p align="center"><b><font style="font-size: 14px" color="#FFFFFF">房产知识</font></b></td>
<td width="34%"><img border="0" src="imag/k-004.jpg"></td>
</tr>
</table>
</td>
<td width="50%">
<p align="right"><img border="0" src="imag/k-008.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="1%"><img border="0" src="imag/k-005.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="1%" background="imag/k-006.jpg"><img border="0" src="imag/k-006.jpg"></td>
<td width="98%">
<DIV align=center> 
                  <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
     <% dim t
	 Set RsSmall=Server.Createobject("ADODB.Recordset")
	 RsSmallSrt="select top 14 * from news where mytype='房产知识'  order by id desc"
	 RsSmall.Open RsSmallSrt,Conn,1,3 %>
     <tr> 
     <% t=0
      while not RsSmall.eof %>
      <td width="369"><div align="left">&nbsp;&nbsp;<IMG src="imag/001.gif">&nbsp;                   
       <a title="<% =left(RsSmall("nr"),15) %>..." href=open.asp?xiangxi=<% =RsSmall("id") %>  target="_blank"><% =RsSmall("bt") %></a> 
       </div></td> 
       <% t=t+1
	    if t=2 then
	    t=0 %>
     </tr>
     <% end if
     RsSmall.movenext
     wend %>
       </table></DIV>
</td>
<td width="1%" background="imag/k-006-2.jpg"><img border="0" src="imag/k-006-2.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0" background="imag/k-009-2.jpg">
<tr>
<td width="50%"><img border="0" src="imag/k-009-1.jpg"></td>
<td width="50%">
<p align="right"><img border="0" src="imag/k-009-3.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%"></td>
</tr>
<tr>
<td width="100%"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%" background="imag/end.jpg" height="97" valign="top">
<!--#include file="end.asp"-->
</td>
</tr>
</table>
</td>
<td width="1%" valign="top" background="imag/b-right.jpg"><img border="0" src="imag/b-right.jpg"></td>
</tr>
</table>
</td>
</tr>
</table>
</div>

</body>

</html>

index2.asp - 源码说明

本页面展示了「功能的增加及完善 1.完善了上次不能读写房源编号的错误； 2.增加了不是会员不能查看房主的相系方法的功能； 3.增加了不是会员不能发布的功能； 4.完善了会员中心信息等功能； 5.新增了一个」中的 index2.asp 源码文件，采用 ASP 编程语言编写，共 572 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Web应用相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?