日期:2014-05-16 浏览次数:20846 次
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="rpc" '数据库服务器名
StrUid="sa" '您的登录帐号
StrSaPwd="sasa1" '您的登录密码
StrDbName="mydata" '您的数据库名称
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
set Conn = Server.CreateObject("ADODB.Connection") ()
Conn.Open StrDSN
sql = "select * from user"
set rs= Server.CreateObject("ADODB.RecordSet")
rs.Open sql,Conn ,1,1 '错误类型:Microsoft OLE DB Provider for ODBC Drivers (0x80040E21) ODBC 驱动程序不支持所需的属性
do While not rs.eof
Response.write(rs("username")&"<br/>")
rs.MoveNext
Loop
rs.close()