asp SQL server 2000 读取记录直接生成xml文档

最新推荐文章于 2018-10-26 10:58:15 发布

什么都不能

最新推荐文章于 2018-10-26 10:58:15 发布

阅读量1.8k

点赞数

分类专栏： ASP 文章标签： sql server xml asp vbscript output encoding

本文链接：https://blog.csdn.net/hanpoyangtitan/article/details/1455513

版权

ASP 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

<% @Language="VBScript" %>
<%
Dim objConn, objCmd, i
Set objConn = Server.createobject("ADODB.CONNECTION")
objConn.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=ca800;Data Source=

(local)"
Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = objConn
objCmd.Properties("Output Stream") = Response
objCmd.Properties("XML Root") = "root"
'objCmd.properties("Output Encoding")="GB2312"
objCmd.CommandText = "Select top 20 * from ca_news for XML Auto,elements"
Response.ContentType = "text/xml"
objCmd.Execute i,,1024 'adExecuteStream
Set objCmd = Nothing
objConn.Close
Set objConn = Nothing