例6－16.asp

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· ASP 代码 · 共 13 行

<!-- #INCLUDE file="ADOVBS.inc"-->
<%
Set Conn=Server.CreateObject("ADODB.Connection") 
'创建一个命令对象
Set MyComm=Server.CreateObject("ADODB.Command")
Conn.Open "MyData" 
Set MyComm.ActiveConnection=Conn
MyComm.CommandText= "SELECT * FROM sales" 
MyComm.CommandType=adCMDText
Set RS=MyComm.Execute()
Conn.Close
%>