<HTML>
<HEAD>
<%
'Server对象的CreateObject方法建立Connection对象
SetConn=Server.CreateObject("ADODB.Connection")
'设置Connection对象的ConnectionString
Conn.ConnectionString="Provider=SQLNCLI.1;Password=;PersistSecurityInfo=True;UserID=sa;InitialCatalog=MySQLDB;DataSource=localhost"
'连接数据库
Conn.Open
'定义Recordset对象
Setrs=Server.CreateObject("ADODB.Recordset")
'设置rs的ActiveConnection属性,绑定到连接
Setrs.ActiveConnection=Conn
'设置游标类型
rs.CursorType=3
'打开记录集
rs.Open"SELECTEmp_name,Sex,Title,WageFROMEmployees"
%>
<H2align=center>显示表Employees的记录</H2>
<TABLEwidth="100%"border=1><TBODY><TR><TDbgColor=#c0c0c0>序号</TD><TDbgColor=#c0c0c0>姓名</TD><TDbgColor=#c0c0c0>性别</TD><TDbgColor=#c0c0c0>职务</TD><TDbgColor=#c0c0c0>工资</TD></TR><%
i=0
DoWhilers.EOF=False
'在表格中显示字段属性
Response.Write("<tr><td>"&CStr(i+1)&"</td><td>"&rs.Fields(0).Value&_
"</td><td>"&rs.Fields(1).Value&"</td><td>"&rs.Fields(2).Value&_
"</td><td>"&rs.Fields(3).Value&"</td></tr>")
ii=i+1
rs.MoveNext
Loop
Response.Write("</table>")
'断开与数据库的连接
Conn.Close
IfConn.State=0Then
EndIf
'释放Connection对象,关闭数据库
SetConn=nothing
%><PRE></PRE></TBODY></TABLE>
<HEAD>
<%
'Server对象的CreateObject方法建立Connection对象
SetConn=Server.CreateObject("ADODB.Connection")
'设置Connection对象的ConnectionString
Conn.ConnectionString="Provider=SQLNCLI.1;Password=;PersistSecurityInfo=True;UserID=sa;InitialCatalog=MySQLDB;DataSource=localhost"
'连接数据库
Conn.Open
'定义Recordset对象
Setrs=Server.CreateObject("ADODB.Recordset")
'设置rs的ActiveConnection属性,绑定到连接
Setrs.ActiveConnection=Conn
'设置游标类型
rs.CursorType=3
'打开记录集
rs.Open"SELECTEmp_name,Sex,Title,WageFROMEmployees"
%>
<H2align=center>显示表Employees的记录</H2>
<TABLEwidth="100%"border=1><TBODY><TR><TDbgColor=#c0c0c0>序号</TD><TDbgColor=#c0c0c0>姓名</TD><TDbgColor=#c0c0c0>性别</TD><TDbgColor=#c0c0c0>职务</TD><TDbgColor=#c0c0c0>工资</TD></TR><%
i=0
DoWhilers.EOF=False
'在表格中显示字段属性
Response.Write("<tr><td>"&CStr(i+1)&"</td><td>"&rs.Fields(0).Value&_
"</td><td>"&rs.Fields(1).Value&"</td><td>"&rs.Fields(2).Value&_
"</td><td>"&rs.Fields(3).Value&"</td></tr>")
ii=i+1
rs.MoveNext
Loop
Response.Write("</table>")
'断开与数据库的连接
Conn.Close
IfConn.State=0Then
EndIf
'释放Connection对象,关闭数据库
SetConn=nothing
%><PRE></PRE></TBODY></TABLE>