asp如何在html调用
<%
Path="qq360"
t = GetBody(Path) '
Response.BinaryWrite t '
Function GetBody(url) '
Set Retrieval = CreateObject("Microsoft.XMLHTTP") '
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody '函数返回获取的内容
End With
on error resume next
if Retrieval.status<>200 then
Set Retrieval = Nothing
exit function
end if
End Function
%>
这段代码怎么改成能让html 执行?用JS也行的。谢谢