[B]修改了一下[/B]
<BODY>'这里是第6行
<%
set conn=server.CreateObject("ADODB.Connection"
conn.Open "Driver={SQL Server};server=JO;database=ASPTest;uid=sa;pwd=admin"
set.rs=server.CreateObject("ADODB.RecordSet"
sql="SELECT * FROM asptest where i_d in (2,2)"
rs.Open sql,conn,1,1
If(not rs.eof and not rs.bof) Then response.write(rs(" aspuser ")
Elseif (rs.eof and rs.bof) Then response.write("没有找到!"
End if
rs.close set rs=nothing
conn.close
set conn=nothing%>
</BODY>
<%
dim conn
set conn=server.CreateObject("ADODB.Connection"
conn.Open "Driver={SQL Server};server=JO;database=ASPTest;uid=sa;pwd=admin"
Set rs=conn.Execute("SELECT * FROM asptest"
%>
<%
If (rs.eof and rs.bof) Then
response.write("没有找到!"
Else
do until rs.eof
response.write("<br>"&rs("aspuser")
response.write("<br>"&rs("aspname")
response.write("<hr>"
rs.moveNext
loop
End if
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%=now()%>