readrss_utf8.asp

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

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.contentType="application/xml"
url=trim(request("feedurl"))
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",url,False
http.send
if http.status="200" then
	response.Write http.responseText
end if
%>