ASP生成静态页面的另一种方法  ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法 |
文谷 www.wengu.com
来源：网络 作者：佚名
时间：2006-4-25 浏览人数：
|
处理 SSI 文件时出错
ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法
if SaveFile("/htm/list.htm","http://qicaispace.net/asp/list.asp") then
Response.write "ASP生成静态页面已经成功了!"
else
Response.write "对不起,失败!没有生成"
end if
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err <> 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>
ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法 |
处理 SSI 文件时出错
|
版权与免责声明：① 本网转载其他媒体稿件是为传播更多的信息，此类稿件不代表本网观点，版权归原作者所有，本网不承担此类稿件侵权行为的连带责任。
② 本站原创文章，转载时请注明出自文谷及作者姓名
③在本网 BBS上发表言论者，文责自负。
④如您因版权等问题需要与本网联络，请在30日内联系 。
ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法 ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法2006-4-25 18:06:17ASP生成静态页面的另一种方法
|
