编号问题

[复制链接]

皇家㊣贺v

电梯直达

1^#

发表于 2010-1-8 04:31:47 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

如何自动加个编号，请各位大虾帮忙
<%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">编号</td>
<td bgcolor="#FFFFFF" align="center" width="65">客户名</td>
<td bgcolor="#FFFFFF" align="center" width="68">购物金额</td>

收藏0

使用道具举报

千年@之恋

2^#

发表于 2010-1-8 04:31:50 | 只看该作者

<%
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">编号<%=i%></td>
<td bgcolor="#FFFFFF" align="center" width="65">客户名</td>
<td bgcolor="#FFFFFF" align="center" width="68">购物金额</td>
<%rs.movenetxt
i=i+1
wend
end if
rs.close:set rs=nothing
%>

回复支持反对

使用道具举报

qz沒愛過mm

3^#

发表于 2010-1-8 04:31:52 | 只看该作者

问题解决了谢谢哥哥

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册