readrss.asp

来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 26 行

ASP
26
字号
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Function BytesToBstr(strBody,CodeBase)
       dim obj
       set obj=Server.CreateObject("Adodb.Stream")
       obj.Type=1
       obj.Mode=3
       obj.Open
       obj.Write strBody
       obj.Position=0
       obj.Type=2
       obj.Charset=CodeBase
       BytesToBstr=obj.ReadText
       obj.Close
       set obj=nothing
End Function
Response.contentType="application/xml"
url=request("feedurl")
Set xml=Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET",url,False
xml.send
if xml.status="200" then
	response.Write BytesToBstr(xml.responseBody,"GB2312")
end if
set xml=nothing
%>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?