<%
dim rs,sql '打开记录集
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select name from lxtel_user where "
rs.open sql,conn,1,1
if rs.eof or rs.bof then
else
do while not rs.eof
rs.movenext
loop
end if
rs.close '关闭记录集
set rs=nothing
%>
<%
dim rs,sql '打开记录集
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select name from lxtel_user where "
rs.open sql,conn,1,1
if rs.eof or rs.bof then
else
do while not rs.eof
rs.movenext
loop
end if
rs.close '关闭记录集
set rs=nothing
%>
本文链接: https://www.5240.net/?id=39 转载请注明出处!