关于SQL server 2000 的一些问题

刚刚完善了一下数据库连接代码,也发现了一些比较有意思的事情,所以想写出来给大家一个参考.

<%
  Set Conn = Server.CreateObject("ADODB.Connection")
        ConnStr = "DRIVER={SQL SERVER};SERVER=222.198.72.147;uid=sa;pwd=;database=swu"
 Conn.open ConnStr

'SQL server地址是222.198.72.147,登陆名是sa,所连接数据库的名字是swu

 If Err Then          '错误提示信息
  err.Clear
  Set Conn = Nothing
  Response.Write "数据库连接出错，请检查连接字串。"
  Response.End
 End If

 CommandText="SELECT * FROM UserInfo"   '表 UserInfo
 set rs=Conn.Execute (CommandText)   'rs 是利用Connection对象的Execute方法创建的一个Recordset对象,后者常用于得到数据库内数据的值

%>

'------------------- 以下为调试代码 -------------------------
<%
 do while not rs.eof
%>
姓名为:<%=rs("UserInfo")%>
<%
 rs.movenext
 loop
 rs.Close
 conn.close
 set rs=nothing
 set Conn=nothing
%>