国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

從一個(gè)網(wǎng)站扒下的asp生成靜態(tài)頁面的代碼

2024-05-04 11:08:14
字體:
供稿:網(wǎng)友
雖然武林網(wǎng)www.survivalescaperooms.com以前發(fā)布過相關(guān)的代碼,但一些特別的網(wǎng)站不是很完美,最近幫客戶修改系統(tǒng)發(fā)現(xiàn)了這段代碼,發(fā)現(xiàn)還不錯(cuò),特提取出來,方便大家使用。
 
 
 
復(fù)制代碼代碼如下:

<% 
webfolder="/" 
host="index_cn.asp"'前臺動態(tài)地址 
folder="/"'文件夾 
filename="index_cn.html"'生成靜態(tài)文件名 
Fso_info host,folder,filename 
response.write"生成網(wǎng)站中文首頁靜態(tài)HTML完成.<br />" 
'生成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&" 生成成功. <br />" 
else 
Response.write ""&folder&filename&" 生成<font color='#FF0000'>失敗</font>,可能您的文件名含有特殊字符.<br />" 
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 
%> 

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 宝坻区| 平陆县| 犍为县| 五大连池市| 石棉县| 思南县| 桃江县| 丰城市| 盐池县| 三江| 且末县| 璧山县| 华亭县| 枞阳县| 临桂县| 营山县| 岗巴县| 绥芬河市| 芜湖县| 汾西县| 乌海市| 巍山| 平昌县| 密云县| 凯里市| 江油市| 靖江市| 涿州市| 正阳县| 和硕县| 玉屏| 横峰县| 金塔县| 岐山县| 板桥市| 久治县| 屏东县| 徐汇区| 元阳县| 富裕县| 平塘县|