少し前に、実行が非常に遅く、訪問者が多く、頻繁に変更されない ASP ページがありました。私はそれを直接静的にするのが面倒で、変更するたびにサーバーからダウンロードする必要がありました。そのため、ASP ページを静的ページに変換する方法を見つける必要がありました。 。 。
以前にもこのような記事を見たことがありましたが、あまり気にしていませんでした。実際に使用したいと思ったときに適切なものを見つけるのは困難でした。そこで、インターネットで長い間検索し、最終的により適切なものを見つけました。コードを作成し、次のように独自の変更を追加しました。
<%
関数 GetPage(url)
'ファイルの内容を取得する
薄暗い検索
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
検索あり
.Open "Get"、URL、False '、""、""
。送信
GetPage = BytesToBstr(.ResponseBody)
で終わる
取得 = なしを設定します
関数の終了
関数 BytesToBstr(body)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
終了関数は
次に再開します
Url=" http://www.sina.com.cn"'読み取るページのアドレス
response.write "ホームページの更新を開始します..."
wstr = GetPage(Url)
'response.write(wstr)
Set fs=Server.CreateObject("Scripting.FileSystemObject")
'MyFile.FolderExists(server.MapPath("/html/")) でない場合
'MyFile.CreateFolder(server.MapPath("/html/"))'
'end if
'保存するページアドレス
dizhi=server.MapPath("index.htm")
If (fs.FileExists(dizhi)) 次に
fs.DeleteFile(dizhi)
CrFi=fs.CreateTextFile(dizhi) を設定する
と終了
Crfi.Writeline(wstr)
setCrFi=なし
fs=何も設定しない
response.write "...<font color=red>アップデートが完了しました!</font>"
%>
コードは最も単純で、URL (変換対象の ASP アドレス) と dizhi (保存対象の HTML アドレス) を設定するだけです。通常、これら 2 つのファイルは同じディレクトリにあります。そうして初めて、画像、CSS、JS が機能することを確認できます。
asp->htm を探している友達に役立つことを願っています。