<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Option Explicit
Response.Buffer = True '缓存图片
Dim objXMLHTTP, XML
Set XML = Server.CreateObject("Microsoft.XMLHTTP") '建立下载对象
XML.Open "GET","http://www.google.cn/images/nav_logo7.png",False '开始获取图片,http://xxx/png这节可以改成自己要的.其它别动
XML.Send '发送下载请求
Response.AddHeader "Content-Disposition", "attachment;filename=png.png" '设置asp输出类型,不让浏览器当成html显示,现在设置成png
Response.ContentType = "image/png" '显示成png
Response.BinaryWrite XML.responseBody '输出下载好的png内容,用二进制输出
Set XML = Nothing
%>
get_png.asp输出png
<!---图片开始//-->
<!---图片id不能变,但是可以自己加上大小=属性//-->
<img src="get_png.asp" mce_src="get_png.asp" id=png_img>
<mce:script type="text/javascript"><!--
setInterval(
function ()
{
var png_asp = "get_png.asp";//png的asp文件
png_asp += "?t=" + Math.random();//加上时间才可以每次下载新的.
document.getElementById("png_img").src = png_asp;
}
,1000*1);//1000是一秒,*60=于一分钟,可以自己改成想要的时间.
// --></mce:script>
<!---图片结束//-->
xx.htm显示图片,并定时刷新.