vbscript生成静态页面
来源:互联网 发布:淘宝差评删除是真的吗 编辑:程序博客网 时间:2024/05/10 17:30
if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") then
Response.write "已生成"
else
Response.write "没有生成"
end if
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
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
Response.write "已生成"
else
Response.write "没有生成"
end if
function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
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
- vbscript生成静态页面
- PHP生成静态页面
- 静态页面的生成
- 生成静态页面
- Jsp生成静态页面
- 生成静态页面
- jsp生成静态页面
- 静态页面生成
- Jsp生成静态页面
- net 生成 静态页面
- .net 生成 静态页面
- .net 生成 静态页面
- net 生成 静态页面
- net 生成 静态页面
- jsp生成静态页面
- 静态页面生成方法
- 网站生成静态页面
- ASP生成静态页面
- javascript上下滚动文本
- 做回朋友啦
- asdf1234
- 消除路由环路的技术
- thinking in C++ 读书日志(四)
- vbscript生成静态页面
- JavaScript实现本地图片预览
- jBPM学习(一)----环境搭建
- javascript常用日期验证
- 蚊子传奇
- 新的開始
- javaScript动态添加删除表格
- 串口调试程序软件GraphdCommDebugger V1.0 与使用手册
- sqlserver&asp防注入代码下载