<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'½ûÖ¹ÍøÒ³»º´æ
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache"

Response.charSet = "gb2312" 
Response.ContentType = "text/xml" 
url="http://static.photo.qq.com/http_staload.cgi?"&request("qq")&"/"&request("aid")&""
Set http=Server.CreateObject("MSXML2.serverXMLHTTP")
http.Open "GET",url,False
http.send
Set xmldom=Server.CreateObject("Microsoft.XMLDOM")
xmldom.Async=true
xmldom.ValidateOnParse=False
xmldom.Load(http.ResponseXML)

response.write "<?xml version=""1.0"" encoding=""gb2312"" ?>"

Call getnodes(xmldom)

set nodeGather = Nothing
set http=Nothing
set xmldom=Nothing

sub getnodes(node) 
    if node.childnodes.length<>0 then 
		for i=0 to node.childnodes.length-1 
			if node.childnodes(i).nodetypeString="element" Then response.write "<" & node.childnodes(i).nodename & ">"

			if node.childnodes(i).nodetypeString="text" Then 
				response.Write node.childnodes(i).text
   			End if 

			if node.childnodes(i).nodetypeString="cdatasection" Then 
				response.Write "<![CDATA[" & node.childnodes(i).text & "]]>"
   			End if 

			getnodes(node.childnodes(i)) 

			if node.childnodes(i).nodetypeString="element" Then response.write "</" & node.childnodes(i).nodename & ">" & vbcrlf
		next 
    end if 
end sub 

%>
