编程论坛 → ASP技术论坛

编号问题

nixy 发布于 2007-08-21 08:53， 310 次点击

如何自动加个编号，请各位大虾帮忙
<%Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "sa","sa","123456"
sersql="select * from jjy"
Set rs=OBJConn.Execute (sersql)
%>
<tr>
<td bgcolor="#FFFFFF" align="center" width="56"><b><font color="#FF0000">编号</font></b></td>
<td bgcolor="#FFFFFF" align="center" width="65"><b><font color="#FF0000">客户名</font></b></td>
<td bgcolor="#FFFFFF" align="center" width="68"><b><font color="#FF0000">购物金额</font></b></td>

[此贴子已经被作者于2007-8-21 8:59:10编辑过]

2 回复

#2

ayue2222007-08-21 09:01

<%
dim i
Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "sa","sa","123456"
sersql="select * from jjy"
Set rs=OBJConn.Execute (sersql)
if not (rs.bof and rs.eof) then
i=1
while not rs.eof
%>
<tr>
<td bgcolor="#FFFFFF" align="center" width="56"><b><font color="#FF0000">编号<%=i%></font></b></td>
<td bgcolor="#FFFFFF" align="center" width="65"><b><font color="#FF0000">客户名</font></b></td>
<td bgcolor="#FFFFFF" align="center" width="68"><b><font color="#FF0000">购物金额</font></b></td>
<%rs.movenetxt
i=i+1
wend
end if
rs.close:set rs=nothing
%>

#3

nixy2007-08-21 09:40

问题解决了谢谢哥哥

1