真的是新手.................
<%
dim conn,rs,LS,N,X
set conn=server.CreateObject( "ADODB.Connection ")
dsn= "provider=sqloledb.1;date source=172.33.44.55;initial catalog=aa;user id=sa;password=123456 "
conn.Open dsn
set rs=server.CreateObject( "ADODB.Recordset ")
sql= "select A from B "
rs.Open sql,conn
if not rs.EOF then
X=rs( "A ")
N=right(X,3)
LS=( "00 "&N+1)
else
response.Write " "
end if
%>
我是新手
大家不笑哈
我小的一句
循怎么只循一次呢.怎么改
大家忙.

[解决办法]
你这里有循环吗？
[解决办法]
if rs.eof then
response.write " "
else
do while not rs.eof
X=rs( "A ")
N=right(X,3)
LS=( "00 "&N+1)
loop
rs.movenext
rs.close
set rs=nothing //记得关闭
end if
[解决办法]
上的了
下移放在loop面，不然是第一。
你在代造成死循

if rs.eof then
response.write " "
else
do while not rs.eof
X=rs( "A ")
N=right(X,3)
LS=( "00 "&N+1)
rs.movenext　　　//移到循面
loop
rs.close
set rs=nothing //记得关闭
end if