请指教

[Rose1234567890]

第一页这样

Dim c
Set DataCon=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.recordset")
DataCon.ConnectionTimeOut=20
DataCon.Open "DSN=datasource","sa","119"
SQLQuery="Select TOP 5 时间, 所在区,使用面积,房型,地址,房屋售价 From [ershou]"
Set Rs=DataCon.Execute(SQLQuery)
%>
<span style="position: absolute; left: 175; top: 733">
<img border="0" src="bmp/4.jpg" width="106" height="32"></span>                                  
<a href="11.asp"><font size="2" color="#00CC33"><<更多的房源<span style="position: absolute; left: 531; top: 675"><img border="0" src="bmp/zhiye.bmp" width="187" height="215"></span></font></a>
</p>
<div align="center">
<table width="51%" border="0">
<tr bgcolor="#99CC99" align="center">
<td width="16%"><font size="2">所在区</font></td>
<td width="20%"><font size="2">使用面积</font></td>
<td width="21%"><font size="2">房型</font></td>
<td width="22%"><font size="2">地址</font></td>
<td width="21%"><font size="2">房屋售价</font></td>
</tr>
<%
c=0
While Not Rs.Eof
c=c+1
If (c mod 2)=1 Then
%>
<tr bgcolor="#aaddff">
<%
Else
%>
<tr bgcolor="#99CC99">
<%

End If

%>
<td width="16%"><a href='11.asp?id= request(id)'><font size="2"><font color="#000000"><%=Rs("所在区")%></font></font></a></td>
<td width="20%"><a href='11.asp?id= request(id)'<font size="2"><font color="#000000"><%=Rs("使用面积")%></font></font></a></td>
<td width="21%"><a href='11.asp?id= request(id)'<font size="2"><font color="#000000"><%=Rs("房型")%></font></font></a></td>
<td width="22%"><a href='11.asp?id= request(id)'<font size="2"><font color="#000000"><%=Rs("地址")%></font></font></a></td>
<td width="21%"><a href='11.asp?id= request(id)'<font size="2"><font color="#000000"><%=Rs("房屋售价")%></font></font></a></td>
</tr>
<%
Rs.MoveNext
wend

%>
</table>
第二页这样
<%
Dim b
Set DataCon=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.recordset")
DataCon.ConnectionTimeOut=20
DataCon.Open "DSN=datasource","sa","119"
SQLQuery="Select 所在区,使用面积,房型,地址,房屋售价 From [qiuzhu] where"

SQLQuery=SQLQuery& " id='"&request.form("id")&"'"

response write SQLQuery

Set Rs=DataCon.Execute(SQLQuery)

%>



<span style="position: absolute; left: 178; top: 565">
<img border="0" src="bmp/3.jpg" width="110" height="35"></span>                              
  <a href="11.asp"><font size="2" color="#FF0000"><<更多的房源<span style="position: absolute; left: 530; top: 586"><img border="0" src="bmp/yugong.bmp" width="188" height="80"></span></font></a>
</p>
<div align="center">
<table width="50%" border="0">
<tr bgcolor="#99CC99" align="center">
<td width="16%"><font size="2">所在区</font></td>
<td width="20%"><font size="2">使用面积</font></td>
<td width="21%"><font size="2">房型</font></td>
<td width="22%"><font size="2">地址</font></td>
<td width="21%"><font size="2">房屋售价</font></td>
</tr>
<%

While Not Rs.Eof
b=b+1
If (b mod 2)=1 Then
%>
<tr bgcolor="#aaddff">
<%
Else
%>
<tr bgcolor="#99CC99">
<%

End If

%>
<td width="16%"><font size="2"><font color="#000000"><%=Rs("所在区")%></font></font></a></td>
<td width="20%"><font size="2"><font color="#000000"><%=Rs("使用面积")%></font></font></a></td>
<td width="21%"><font size="2"><font color="#000000"><%=Rs("房型")%></font></font></a></td>
<td width="22%"><font size="2"><font color="#000000"><%=Rs("地址")%></font></font></a></td>
<td width="21%"><font size="2"><font color="#000000"><%=Rs("房屋售价")%></font></font></a></td>
</tr>
<%
Rs.MoveNext
wend

%>
</table>

对吗。有什么要改动的，

[Tonglu]

你这个问法也太笼统了吧？？？

[guchenghong]

哪边出了问题？详细点

[zhangking]

让我们怎么回答你?

[wcbm]

你在你的机子上运行一下，如果有问题你再贴出来，要不这样我们是很难帮你的啊

[杨小杨]

太长。你自己慢慢调试。有问题再来问！