帮帮忙!急等!求大家了
来源:百度知道 编辑:UC知道 时间:2024/05/26 20:27:09
请问下面的代码哪里出错了 老不行呀!
Function next_bankuai()
Cmd.parameters.refresh
cmd.CommandText = "next_bankuai"
set rs=cmd.Execute(,Array(44))
rs.close
set rs=nothing
End Function
<tr> <% next_bankuai() %>
<%do while not rs.eof%>
<%=rs("f_next_name")%>
<%
rs.movenext
loop
%>
</tr>
Function next_bankuai()
Cmd.parameters.refresh
cmd.CommandText = "next_bankuai"
set rs=cmd.Execute(,Array(44))
rs.close
set rs=nothing
End Function
<tr> <% next_bankuai() %>
<%do while not rs.eof%>
<%=rs("f_next_name")%>
<%
rs.movenext
loop
%>
</tr>
dim aaa
Function next_bankuai()
cmd.CommandText = "next_bankuai"
Cmd.parameters.refresh
set rss=cmd.Execute(,Array(44))
do while not rss.eof
aaa = aaa & "<td>" & rss("f_an_id") & "</td>"
rss.movenext
loop
rss.close
set rss=nothing
End Function
<tr>
<% next_bankuai() %>
<%=aaa%>
</tr>
你是总是用当前数据覆盖以前的数据,那么最后当然只有一条记录了呀!
我给你改一下:
Function string next_bankuai()
Cmd.parameters.refresh
cmd.CommandText = "next_bankuai"
set rss=cmd.Execute(,Array(44))
aaa="";
do while not rss.eof
aaa += rss("f_an_id") '先为aaa赋值
aaa += "\n"; '换行
rss.movenext
loop
rss.close
set rss=nothing
return aaa;
End Function
'显示调用:
<table>
<tr>
<td>
<% next_b