从 asp页面中截取到代码,来生成静态页面

发布时间：2023-06-20 15:16:32 所属栏目：Asp教程来源：

导读：虽然以前发布过相关的代码，但一些特别的网站不是很完美，最近帮客户修改系统发现了这段代码，发现还不错，特提取出来，方便大家使用。

复制代码代码如下:

<%

webfolder="/"

host="index_cn.asp"&#3

虽然以前发布过相关的代码，但一些特别的网站不是很完美，最近帮客户修改系统发现了这段代码，发现还不错，特提取出来，方便大家使用。

复制代码代码如下:

<%

webfolder="/"

host="index_cn.asp"'前台动态地址

folder="/"'文件夹

filename="index_cn.html"'生成静态文件名

Fso_info host,folder,filename

response.write"生成网站中文首页静态HTML完成. "

'生成html

Function Fso_info(host,folder,filename)

host="http://"+Request.ServerVariables("HTTP_HOST")&webfolder&host

if SaveFile(""&folder&filename&"",""&host&"") then

response.Write ""&folder&filename&" 生成成功. "

else

Response.write ""&folder&filename&" 生成失败,可能您的文件名含有特殊字符. "

end if

End Function

'生成文件

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

%>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!