数风流人物还看今朝,看谁改得又快又好(欢迎大家一齐参与)

-------------------------------------------------------------------
以下是段不完整或错误的代码,欢迎大家一齐参与修改好它.
48小时后请本届版主及ayue222评出 [冠军]...
请注意: [本届版主及ayue222] 不能参与修改.
提示: 不要让基本代码引导错误啊!
-------------------------------------------------------------------
S=数字类型
-------------------------------------------------------------------
<%
'找到[字段S]最大的编号+1等于所需的编号
dim i,aa
set rs=server.CreateObject("adodb.recordset")
sql="select S from SS"
rs.open sql,conn,1,1
aa=rs("S")
i=aa+1

%> 显示8位数的编号:<%=i%>

--------------------------------------------------------------------