新微赢技术网

标题: 编号问题 [打印本页]

---

作者: 皇家㊣贺v    时间: 2010-1-8 04:31
标题: 编号问题
如何自动加个编号，请各位大虾帮忙
<%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>

---

作者: 千年@之恋    时间: 2010-1-8 04:31
<%
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
%>

---

作者: qz沒愛過mm    时间: 2010-1-8 04:31
问题解决了谢谢哥哥

---

欢迎光临 新微赢技术网 (http://bbs.weiying.cn/)

Powered by Discuz! X3.2