方法1
<%
'よく使う関数
'1. URL ターゲット Web ページのアドレスを入力します。戻り値 getHTTPPage はターゲット Web ページの HTML コードです。
関数 getHTTPage(url)
ディムHTTP
set Http=server.createobject("MSXML2.XMLHTTP")
http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
終了関数
終了する場合
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
http=何も設定しない
if err.number<>0 then err.Clear
end function
'2. らんまを変換します。xmlhttp を使用して、中国語の文字を含む Web ページを呼び出します。これは、adodb.stream コンポーネントを介して変換できます。
関数 BytesToBstr(body,Cset)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
終了機能
txtURL=server.MapPath("../index.asp")
sText = getHTTPPage(txtURL)
Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
ファイル名 = "../index.htm"
Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true は存在せず、自動的に作成されることを意味します
openFile.writeline(sText)
OpenFile=nothing を設定します
%>
<スクリプト>
alert("静的 Web ページの生成が完了しました");
履歴.back();
</script>
方法 2:
resourcefile=server.MapPath("../index.asp")
targetfile=server.MapPath("../index.htm")
html = Server.CreateObject("CDO.Message") を設定します。
html.CreateMHTMLBody リソースファイル、31
インデックスコード=html.HTMLBody
html = 何も設定しない
if instr(indexcode,"</BODY></HTML>")<=0 then
response.Write("ホームページの生成に失敗しました")
応答.End()
それ以外
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
outfile=oFileSys.CreateTextFile(ターゲットファイル) を設定します。
outfile.WriteLine インデックスコード
outfile.close
outfile=nothing を設定します
oFileSys=何も設定しない
response.Write("ホームページが生成されました!")
終了する場合