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