真的是新手問題.................
<%
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