<%
dim server_v1,server_v2
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.redirect "http://www.99shik.cn/"
response.end
end if

Function GetWebData(byval strUrl)
dim curlpath
dim Retrieval
  Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
  With Retrieval
    .Open "Get", strUrl, False,"",""
    .setRequestHeader "Referer","http://photo.21cn.com/"   
    .Send
    GetWebData =.ResponseBody
  End With
  Set Retrieval = Nothing
End Function
url21=request("url")
body=GetWebData(url21) 
Response.CharSet = "UTF-8" 
Response.ContentType = "application/octet-stream"
Response.BinaryWrite body
Response.Flush	
%>



