open_1.asp

ASP入门与提高实用教程 源文件(上传网站)

<%
Dim rs,cn
Set cn=Server.CreateObject (“ADODB.Connection”)
cn.Open “Dsn=test”                                 ‘数据源名称
Set rs=cn.Execute (“Select * From user”)
%>