dv_rssread.asp

来自「公司企业网站管理系统全站源码,用于企业内部对网站的管理」· ASP 代码 · 共 33 行

<!--#include file="Conn.asp"-->
<!-- #include file="inc/const.asp" -->
<%
GetRssXml()
Sub GetRssXml()
	Dim GetUrl
	Dim XmlHttp,XmlDom
	GetUrl = Request.QueryString("url")
	If GetUrl="" Then
		Exit Sub
	End If
	Set XmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
	XmlHttp.Open "get",GetUrl,false
	XmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	'XmlHttp.SetRequestHeader "content-type", "text/xml"
	XmlHttp.send()

	Set XmlDom = Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
	XmlDom.async = True
	If XmlDom.Load(xmlhttp.responseXML) Then
		PrintXmldb(XmlDom)
		'TransformNode(XmlDom)
	End If
	Set XmlHttp = Nothing
	Set XmlDom = Nothing
End Sub

Sub PrintXmldb(XmlDoc)
	Response.ContentType="text/xml"
	Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"
	Response.Write XmlDoc.documentElement.xml
End Sub
%>