UC知道ASP序号问题！
来源：百度知道 编辑：UC知道 时间：2024/09/20 11:42:52
如何让<%=i%>每出现一次加1? 这样就可以排序了！
以下代码完成是这个：http://124.200.157.162:8021/Pages\3/ZBDYJJD.asp
我想让序号可以排出来。谢谢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim tuto,tuhu,sql0
dim database,conn,connstr
database="../../SSLAC/Orders_2008.mdb" ' 数据库的名称
set conn=server.CreateObject("adodb.connection")
' 加载数据库驱动程序
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath(database)
conn.open connstr 'open方法打开数据库连接
set rs=server.CreateObject("adodb.recordset")
tuto="已发送"
tuhu="退回"
' 从数据库中查询NO1中包含关键字的记录
sql="select * from Orders where c1='"&tuto&"' order by data1 "
rs.open sql,conn,1,1 ' 执行查询，结果保存在rs中
if rs.eof or rs.bof
以下代码完成是这个：http://124.200.157.162:8021/Pages\3/ZBDYJJD.asp
我想让序号可以排出来。谢谢
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
dim tuto,tuhu,sql0
dim database,conn,connstr
database="../../SSLAC/Orders_2008.mdb" ' 数据库的名称
set conn=server.CreateObject("adodb.connection")
' 加载数据库驱动程序
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath(database)
conn.open connstr 'open方法打开数据库连接
set rs=server.CreateObject("adodb.recordset")
tuto="已发送"
tuhu="退回"
' 从数据库中查询NO1中包含关键字的记录
sql="select * from Orders where c1='"&tuto&"' order by data1 "
rs.open sql,conn,1,1 ' 执行查询，结果保存在rs中
if rs.eof or rs.bof
<%
i=1
do while not rs.eof
%>
<tr>
<td valign="middle"> <%=i%></td>
<td><span class="STYLE1"> <%=rs("a1")%> </span></td>
<td><span class="STYLE1"> <%=rs("f")%> </span></td>
<td><span class="STYLE1"> <%=rs("g")%><%=rs("h")%></span><span class="STYLE1"><%=rs("k")%></span></td>
<td><span class="STYLE1"> <%=rs("s")%> </span></td>
<td> <span class="STYLE1"><%=rs("y")%> </span></td>
</tr>
<%
rs.movenext
i=i+1
loop
<td width="40"><span class="STYLE1"> 序号</span></td>
<td width="80"><s