解答ASP代码

来源：百度知道 编辑：UC知道 时间：2024/06/09 15:02:21
<%
nns="南宁市"
sql="select top 6 * from jd2 where city='"&nns&"' order by id desc"
Set rszzs_1=Server.CreateObject("ADODB.RecordSet")
rszzs_1.open sql,conn
n=0
do while not rszzs_1.eof
c_id=rszzs_1("id")
set rszzs_1zzs=server.createobject("adodb.recordset")
sqltext="select top 1 c_id,stageprice from roomb where c_id="&c_id&""
rszzs_1zzs.open sqltext,conn
if rszzs_1zzs.eof and rszzs_1zzs.bof then
stageprice="NoRoom"
Else
stageprice="＄"&rszzs_1zzs("stageprice")
End if
%>
<tr>
<td height="20"><font color="#666666">
<a href="readhotel.asp?id=<%=rszzs_1("id")%>">
<%if len(rszzs_1("c_name"))>7 then%>
<%=left(rszzs_1("c_name"),7)%>...
<%else%>
<%

<%
nns="南宁市" '为变量nns赋初始值为南宁市
sql="select top 6 * from jd2 where city='"&nns&"' order by id desc"'sql语句 功能是查询jd2表条件为city字段的值为南宁市的所有字段值并按照id的降序排列 desc从大到小
Set rszzs_1=Server.CreateObject("ADODB.RecordSet") '定义数据库操作对象
rszzs_1.open sql,conn '执行sql语句
n=0 '为变量n赋初始值为0
do while not rszzs_1.eof '如果 没有到表的尾部 即有符合条件的记录
c_id=rszzs_1("id") '为变量c_id赋初始值为表中id字段的值
set rszzs_1zzs=server.createobject("adodb.recordset") '与set rszzs_1的意思相同
sqltext="select top 1 c_id,stageprice from roomb where c_id="&c_id&"" '定义sqltext 查询roomb表的c_id和stageprice两个字段只显示一条记录条件是 c_id的字段值要等于c_id变量的值 top n 表示显示前n条记录
rszzs_1zzs.open sqltext,conn '执行sqltext语句
if rszzs_1zzs.eof and rszzs_1zzs.bof then '如果指针在表头和表尾 即没有符合条件的记录
stageprice="NoRoom" '为stageprice变量赋值为NoRoom
Else '否则
stageprice="＄"&rszzs_1