Question

谁帮我看一下这个程序代码（asp代码）哪里错了呢?

sub displayList_yd()
action=Trim(Request.QueryString("action"))
if action="Search" then
sql="Select * from yunData where ty_num='"&formatstr(Trim(Request.Form("text2")))&"' and ty_shr='"&formatstr(Trim(Request.Form("text1")))&"'"
set rs=Conn.Execute(sql)
if rs.eof then
response.Write("<br><br><div align=center>未找到相关信息</div>")
else
response.Write("<tr height="15">
<td width="120" height="25" bgcolor="#FFFFFF"><div align="right">托运日期:</div></td>
<td width="160" bgcolor="#FFFFFF"><%= rs(1) %></td>
<td width="120" bgcolor="#FFFFFF"><div align="right">托运单号:</div></td>
<td width="206" bgcolor="#FFFFFF"><%= rs(2) %></td>
</tr>

<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">目的网点:</div></td>
<td bgcolor="#FFFFFF"><%= rs(3) %></td>
<td bgcolor="#FFFFFF"><div align="right">收货人:</div></td>
<td bgcolor="#FFFFFF"><%= rs(5) %></td>
</tr>

<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">货物名称:</div></td>
<td bgcolor="#FFFFFF"><%= rs(6) %></td>
<td bgcolor="#FFFFFF"><div align="right">件数:</div></td>
<td bgcolor="#FFFFFF"><%= rs(7) %></td>
</tr>

<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">送货方式:</div></td>
<td bgcolor="#FFFFFF"><%= rs(13) %></td>
<td bgcolor="#FFFFFF"><div align="right">收货网点:</div></td>
<td bgcolor="#FFFFFF"><%= rs(8) %></td>
</tr>

<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">到货日期:</div></td>
<td bgcolor="#FFFFFF"><%= rs(12) %></td>
<td bgcolor="#FFFFFF"><div align="right">提货日期:</div></td>
<td bgcolor="#FFFFFF"><%= rs(9) %></td>
</tr>

<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">提货人身份证:</div></td>
<td bgcolor="#FFFFFF"><%= rs(10) %></td>
<td bgcolor="#FFFFFF"><div align="right">提货电话:</div></td>
<td bgcolor="#FFFFFF"><%= rs(11) %></td>
</tr>")

rs.movenext
loop
end if
rs.close
set rs=nothing
End If

end sub
回答对了我我送高分。
还是没用啊
我的是xtml

Answer 1

请附上错误信息!
这样看会死人的!

Answer 2

<%
sub displayList_yd()
action=Trim(Request.QueryString("action"))
if action="Search" then
sql="Select * from yunData where ty_num='"&formatstr(Trim(Request.Form("text2")))&"' and ty_shr='"&formatstr(Trim(Request.Form("text1")))&"'"
set rs=Conn.Execute(sql)
if rs.bof or rs.eof then
response.Write("<br><br><div align=center>未找到相关信息</div>")
else
do while not rs.eof
response.Write("<tr height=""15"">)
%>
<td width="120" height="25" bgcolor="#FFFFFF"><div align="right">托运日期:</div></td>
<td width="160" bgcolor="#FFFFFF"><%= rs(1) %></td>
<td width="120" bgcolor="#FFFFFF"><div align="right">托运单号:</div></td>
<td width="206" bgcolor="#FFFFFF"><%= rs(2) %></td>
</tr>
<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">目的网点:</div></td>
<td bgcolor="#FFFFFF"><%= rs(3) %></td>
<td bgcolor="#FFFFFF"><div align="right">收货人:</div></td>
<td bgcolor="#FFFFFF"><%= rs(5) %></td>
</tr>
<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">货物名称:</div></td>
<td bgcolor="#FFFFFF"><%= rs(6) %></td>
<td bgcolor="#FFFFFF"><div align="right">件数:</div></td>
<td bgcolor="#FFFFFF"><%= rs(7) %></td>
</tr>
<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">送货方式:</div></td>
<td bgcolor="#FFFFFF"><%= rs(13) %></td>
<td bgcolor="#FFFFFF"><div align="right">收货网点:</div></td>
<td bgcolor="#FFFFFF"><%= rs(8) %></td>
</tr>
<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">到货日期:</div></td>
<td bgcolor="#FFFFFF"><%= rs(12) %></td>
<td bgcolor="#FFFFFF"><div align="right">提货日期:</div></td>
<td bgcolor="#FFFFFF"><%= rs(9) %></td>
</tr>
<tr height="15">
<td height="25" bgcolor="#FFFFFF"><div align="right">提货人身份证:</div></td>
<td bgcolor="#FFFFFF"><%= rs(10) %></td>
<td bgcolor="#FFFFFF"><div align="right">提货电话:</div></td>
<td bgcolor="#FFFFFF"><%= rs(11) %></td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
end If
end sub
%>

Answer 3

循环语句错误，没有do语句。

在这后面：
response.Write("<br><br><div align=center>未找到相关信息</div>")
else

＜--此位置添加：do while not rs.eof