方法 1: FSO
Set fs = CreateObject(Scripting.FileSystemObject)
NewFile=Server.MapPath(/asp/chap06/at/newfile.html)
'新しいファイル/newfile.htmlを作成します。ファイルがすでに存在する場合は上書きします
a = fs.CreateTextFile(NewFile, True) を設定します。
応答.書き込み新しいファイルが作成されました。
a.閉じる
ファイル=サーバー.マップパス(新しいファイル.html)
Set txt=fs.OpenTextFile(File,8,True) '最後にデータを書き込めるファイルを開く
data1=この文は WriteLine メソッドを使用して書かれています。 ~~
txt.WriteLine データ1
data2=この文は Write メソッドを使用して書かれています。 ~~
txt.データの書き込み2
txt.閉じる
方法 2: XMLHTTP
<%
xml = Server.CreateObject(Microsoft.XMLHTTP) を設定します。
'次のアドレスをホームページのファイルアドレスに置き換えてください。必ず http:// で始まる絶対パスを使用してください。相対パスは記述できません。
xml.Open GET、http://www.vevb.com、False
xml.送信
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,gb2312)
xml = なしを設定します
ディム fso、MyFile
fso = CreateObject(Scripting.FileSystemObject) を設定します。
Set MyFile= fso.CreateTextFile(server.MapPath(aa.htm), True)
MyFile.WriteLine(本文)
MyFile.Close
他の：
1
次の例は、index.asp?id=1/index.asp?id=2/index.asp?id=3/ の 3 つのダイナミクスです。
ページはそれぞれ、index1.htm、index2.htm、index3.htm を生成し、ルート ディレクトリに保存します。
<%
dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp
Html_Temp=<UL>
i=1～3の場合
Html_Temp = Html_Temp&<LI>
アイテムクラスID = i
ファイル名 = インデックス&アイテムクラスID&.htm
FilePath = Server.MapPath(/)&/&FileName Html_Temp = Html_Temp&FilePath&</LI>
Do_Url = http://
Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp
Do_Url = Do_Url&?Item_Classid=&Item_Classid
strUrl = Do_Url
dim objXmlHttp
set objXmlHttp = Server.createObject(Microsoft.XMLHTTP)
objXmlHttp.open GET,strUrl,false
objXmlHttp.send()
Dim binFileData
binFileData = objXmlHttp.responseBody
薄暗いobjAdoStream
set objAdoStream = Server.createObject(ADODB.Stream)
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile ファイルパス,2
objAdoStream.Close()
次
Html_Temp = Html_Temp&<UL>
%>
<%
Response.Write (ファイルが正常に生成されました:)
応答.書き込み ( <BR> )
Response.Write Html_Temp
%>
関数 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 = 何も設定しない
終了機能
%>
2
<%@LANGUAGE=VBSCRIPT コードページ=936%>
<%
publictemplatefile、tmpdata
sub ofile()' ファイルを開き、ファイルの内容を tmpdata に入れます
エラー時は次から再開
tmpdata=
set Astream=Server.CreateObject (Adodb.Stream)
Astream.type=2'ファイルタイプテキスト
Astream.Mode = 3'読み取り/書き込み
Astream.open
Astream.CharSet = GB2312'文字セット
Astream.LoadFromFile(tempelatefile)'ファイルからロード
Assp=Astream.size
err.number<>0 の場合
xz=-18
応答。テンプレートファイルを書き込み&<br>
エラークリア
tmpdata=
それ以外
tmpdata=Astream.ReadText(Assp)
終了する場合
エンドサブ
サブ save_file()
ofile()
recfilen=サーバー.マップパス(dts)
Astream.Flush
Astream.close
Astream.type=2
Astream.Mode = 3
Astream.open
Astream.CharSet = GB2312
Astream.position=0
Astream.Writetext tmpdata,1'データをストリームに書き込みます
Astream.SaveToFile recfilen,2' ファイルに保存
エンドサブ
関数 dts()' はランダムなファイル名を生成します
if len(month(now()))>1 then
mm=月(現在())
それ以外
mm=0&month(now())
終了する場合
if len(day(now()))>1 then
d=日(今())
それ以外
d=0&day(今())
終了する場合
if len(hour(now()))>1 then
h=時(現在())
それ以外
h=0&時(現在())
終了する場合
if len(分(now()))>1 then
m=分(今())
それ以外
m=0&分(今())
終了する場合
if len(sec(now()))>1 then
s=秒(今())
それ以外
s=0&秒(now())
終了する場合
ランダム化
上限=9999
下限=1000
rds=Int((上限 - 下限 + 1) * Rnd + 下限)
dts=htm/&year(now())&mm&d&h&m&s&rds&.htm
終了関数
title=リクエスト.フォーム(タイトル)
content=リクエスト.フォーム(コンテンツ)
tmpdata=replace(tmpdata,<title></title>,title)' 送信コンテンツの置換をサポートします
tmpdata=replace(tmpdata,<content></content>,content)
templatefile=server.MapPath(tempelate/1.htm)'テンプレート ファイル
保存ファイル()
%>