让ASP与SQL数据库实现连接

<%@ language=VBs cript%> 
<% 
dim conn 
set conn=server.createobject("ADODB.connection" 
con.open "PROVIDER=SQLOLEDB;
DATA SOURCE=SQL服务器名称或IP地址;
UID=sa;
PWD=数据库密码;
DATABASE=数据库名称 
%> 
建立记录集对象： 
set rs=server.createobject("adodb.recordset" 
rs.open SQL语句,conn,3,2