<%
dim objconnection
dim objrecordset
set objconnection=Server.CreateObject("ADODB.Connection")
set objrecordset=Server.CreateObject("ADODB.recordset")
objconnection.Open"driver={SQL Server};server=服务器地址;uid=用户名;pwd=密码;database=数据库名字"
objrecordset.open"select ntitle from news order by nid ",objconnection
%>