この種のコードは、静的を生成するデザイン機能を実装していないが、動的ページを一時的に静的ページに生成したい場合に主に使用され、動的コンテンツを直接取得して静的として保存できます。
次のようにコードをコピーします。
<!--#include file="admin_Checkuser.asp"-->
<%
ConnectionDatabase() を呼び出す
ディム str,str_new
str=""
str_new=""
sqlx="ID 説明による Fl_Products 注文から ID を選択"
set rsx=conn.execute(sqlx)
rsx.eofを実行しないでください
str=str&rsx("id")&"|"
rsx.movenext :ループ
rsx.close
sqlx="Fl_News の ID の説明から ID を選択"
set rsx=conn.execute(sqlx)
rsx.eofを実行しないでください
str_new=str_new&rsx("id")&"|"
rsx.movenext :ループ
rsx.close
place=InStrRev(str,"|")
str=左(str,場所-1)
place=InStrRev(str_new,"|")
str_new=左(str_new,place-1)
薄暗い URL、cwww、act
act=Trim(Request.QueryString("act"))
url =Request.ServerVariables("HTTP_HOST")
cwww="http://"+url
MakeHtm cwww&"/index.asp","../index.htm","ホームページが正常に書き込まれました!"
MakeHtm cwww&"/about.asp","../about.htm","会社概要が正常に書き込まれました!"
MakeHtm cwww&"/contact.asp","../contact.htm","お問い合わせは正常に送信されました!"
MakeHtm cwww&"/ry.asp","../ry.htm","資格と栄誉が正常に書き込まれました!"
MakeHtm cwww&"/liuyan.asp","../liuyan.htm","連絡して書き込みを成功させてください!"
MakeHtm cwww&"/pro.asp","../pro.htm","製品表示が正常に書き込まれました!"
MakeHtm cwww&"/news.asp","../news.htm","ワークショップ ライティングを正常に生成しました!"
MakeHtm cwww&"/xinwen.asp","../xinwen.htm","ニュース情報が正常に書き込まれました!"
MakeHtm cwww&"/alliance.asp","../alliance.htm","販売ネットワークが正常に書き込まれました!"
'製品を生成する
xstr=split(str,"|")
i=0 から ubound(xstr) の場合
MakeHtm cwww&"/uzProduct.asp?id="&xstr(i),"../uzProduct_"&xstr(i)&".htm","Product"&xstr(i)&"書き込み成功!"
次
xstr=split(str_new,"|")
i=1 から ubound(xstr)/25+1 の場合
MakeHtm cwww&"/xinwen.asp?Page="&i,"../xinwen_"&i&".htm","ニュース リスト"&i&"書き込みに成功しました!"
次
xstr=split(str_new,"|")
i=0 から ubound(xstr) の場合
MakeHtm cwww&"/uzNews.asp?id="&xstr(i),"../uzNews_"&xstr(i)&".htm","News"&xstr(i)&"書き込み成功!"
次
関数 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 = 何も設定しない
終了機能
関数 MakeHtm(curl,turl,mess)
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
' 以下のアドレスをホームページのファイルアドレスに置き換えてください。必ず先頭に絶対パスを使用してください。相対パスは記述できません。
xml.Open "GET"、curl、False
xml.送信
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,"gb2312")
xml = なしを設定します
'交換する
BodyText=RegReplace(BodyText,"uzProduct/.asp/?id=(/d*)", "uzProduct_$1.htm")
BodyText=RegReplace(BodyText,"uzNews/.asp/?id=(/d*)", "uzNews_$1.htm")
BodyText=RegReplace(BodyText,"xinwen/.asp/?Page=(/d*)", "xinwen_$1.htm")
BodyText=replace(BodyText,"index.asp","index.htm")
BodyText=replace(BodyText,"about.asp","about.htm")
BodyText=replace(BodyText,"pro.asp","pro.htm")
BodyText=replace(BodyText,"news.asp","news.htm")
BodyText=replace(BodyText,"liuyan.asp","liuyan.htm")
BodyText=replace(BodyText,"ry.asp","ry.htm")
BodyText=replace(BodyText,"xinwen.asp","xinwen.htm")
BodyText=replace(BodyText,"contact.asp","contact.htm")
ディム fso、MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.CreateTextFile(server.MapPath(turl), True)
MyFile.WriteLine(本文)
MyFile.Close
応答.書き込みの混乱
応答。「<br>」と書いてください。
終了機能
パブリック関数 RegReplace(sContent, sPatrn, sNewStr)
Dim oTempReg : oTempReg = 新しい RegExp を設定します
oTempReg を使用する場合
.IgnoreCase = True
.Global=True
.Pattern = sPatrn
RegReplace = .Replace(sContent, sNewStr)
で終わる
oTempReg = 何も設定しない
終了機能
CloseDatabase() を呼び出す
%>
<html>
<頭>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>無題のドキュメント</title>
<スタイル>
body,td{font-family:Verdana、Arial、Helvetica、サンセリフ;
フォントサイズ:10.5pt;}
</スタイル>
</head>
<本文>
</body>
</html>
アイスボーイより