[code=vb] 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.Write "非法的盗链" Response.End End If Dim url, body, myCache url = Request.QueryString("url") Set myCache = new cache myCache.name = "picindex"&url If myCache.valid Then body = myCache.value Else body = GetWebData(url) myCache.add body,dateadd("d",1,now) End If If Err.Number = 0 Then Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite body Response.Flush Else Wscript.Echo Err.Description End if [/code]