扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:怡红公子 来源:豆豆技术网 2007年10月22日
关键字: SQL Server 2000 技巧 XML SQL Server
<%@ Language=VBScript %> <!-- #include file="ADOVBS.inc" --> <% Dim objConn, objCmd, i Set objConn = Server.createobject("ADODB.CONNECTION") objConn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=PBA;Data Source=(local)" Set objCmd = Server.CreateObject("ADODB.Command") objCmd.ActiveConnection = objConn objCmd.Properties("Output Stream") = Response objCmd.Properties("XML Root") = "root" objCmd.CommandText = "Select * from UserStatus for XML Auto" Response.ContentType = "text/xml" objCmd.Execute i, , adExecuteStream Set objCmd = Nothing objConn.Close Set objConn = Nothing %> |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。