|
在用fso组件，把asp文件生成html静态页面的时候，碰到一个问题，就是无论怎么更新内容，生成的页面都不变，应该随着asp页面变化而变化才对。
以下是源代码：
<%
Function GetaspPage(url)
dim Retrievalx
Set Retrievalx = CreateObject("Microsoft.XMLHTTP")
With Retrievalx
.Open "Get", url, False ', "", ""
.Send
GetaspPage = BytesToBstr(.ResponseBody)
End With
Set Retrievalx = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
on error resume next
Url="http://上海IT外包/"&"abc.asp?""
wstr = GetaspPage(Url)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
If (fs.FileExists(server.MapPath("/default.htm"))) Then
fs.DeleteFile(server.MapPath("/default.htm"))
End If
Set CrFi=fs.CreateTextFile(server.MapPath("/default.htm"))
Crfi.Writeline(wstr)
set CrFi=nothing
set fs=nothing
response.write "...<font color=red>生成网站首页完成！</font><p>"
Response.write "<a href='http://上海IT外包' >上海IT外包</a>"
%>
以上代码中，将：
Url="http://上海IT外包/"&"abc.asp""
wstr = GetaspPage(Url)
改为：
Url="http://上海IT外包/"&"abc.asp?time=&now()&""
wstr = GetaspPage(Url)
即可解决这个问题
这个是HTTP的缓存造成的
在Url="http://上海IT外包/"&"abc.asp"这个后面加一个随机参数就ok |
