Metode 1: FSO
Setel fs = CreateObject(Scripting.FileSystemObject)
File Baru=Server.MapPath(/asp/chap06/at/newfile.html)
'Buat file baru/newfile.html, jika file sudah ada, timpa
Setel a = fs.CreateTextFile(File Baru, Benar)
Response.Write file baru telah dibuat!
a.dekat
File=Server.MapPath(file baru.html)
Set txt=fs.OpenTextFile(File,8,True) 'Buka file yang dapat menulis data di akhir
data1=Kalimat ini ditulis menggunakan metode WriteLine! ~~
txt.WriteLine data1
data2=Kalimat ini ditulis dengan menggunakan metode Write! ~~
txt.Tulis data2
txt.Tutup
Metode 2: XMLHTTP
<%
Setel xml = Server.CreateObject(Microsoft.XMLHTTP)
'Ganti alamat berikut dengan alamat file beranda Anda. Pastikan untuk menggunakan jalur absolut yang dimulai dengan http://. Anda tidak dapat menulis jalur relatif.
xml.Buka GET, http://www.vevb.com,False
xml.Kirim
BodyText=xml.ResponseBody
BodyText=BytesToBstr(BodyText,gb2312)
Setel xml = Tidak Ada
Redupkan juga, File Saya
Setel fso = CreateObject(Scripting.FileSystemObject)
Setel File Saya= fso.CreateTextFile(server.MapPath(aa.htm), Benar)
File Saya.WriteLine(BodyText)
File Saya.Tutup
lainnya:
1
Contoh berikut adalah tiga dinamika index.asp?id=1/index.asp?id=2/index.asp?id=3/
Halaman, masing-masing menghasilkan indeks1.htm, indeks2.htm, indeks3.htm dan menyimpannya di direktori root:
<%
redupkan strUrl,Item_Classid,id,NamaFile,Jalur File,Do_Url,Html_Temp
Html_Temp=<UL>
Untuk i=1 Sampai 3
Html_Temp = Html_Temp&<LI>
Item_Klasik = i
Nama File = Indeks&Item_Classid&.htm
FilePath = Server.MapPath(/)&/&NamaFile Html_Temp = Html_Temp&FilePath&</LI>
Lakukan_Url = http://
Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp
Do_Url = Do_Url&?Item_Classid=&Item_Classid
strUrl = Lakukan_Url
redupkan objXmlHttp
atur objXmlHttp = Server.createObject(Microsoft.XMLHTTP)
objXmlHttp.buka GET,strUrl,false
objXmlHttp.kirim()
Redupkan binFileData
binFileData = objXmlHttp.responseBody
Redupkan objAdoStream
setel objAdoStream = Server.createObject(ADODB.Stream)
objAdoStream.Jenis = 1
objAdoStream.Buka()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Tutup()
Berikutnya
Html_Temp = Html_Temp&<UL>
%>
<%
Response.Write (File berhasil dibuat: )
Respon.Tulis ( <BR> )
Respon.Tulis Html_Temp
%>
Fungsi BytesToBstr(tubuh,Cset)
objekstream redup
setel objstream = Server.CreateObject(adodb.stream)
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
%>
2
<%@LANGUAGE=KODE VBSCRIPT=936%>
<%
file templat publik,tmpdata
sub ofile()'buka file dan masukkan konten file ke tmpdata
pada kesalahan lanjutkan berikutnya
tmpdata=
setel Astream=Server.CreateObject (Adodb.Stream)
Astream.type=2'Teks jenis file
Astream.Mode = 3'baca-tulis
Astream.terbuka
Astream.CharSet = GB2312'Kumpulan karakter
Astream.LoadFromFile(tempelatefile)'Muat dari file
Assp=Astream.ukuran
jika err.number<>0 maka
xz=-18
respon.Tulis file template&<br>
err.jelas
tmpdata=
kalau tidak
tmpdata=Astream.ReadText(Assp)
berakhir jika
sub akhir
sub simpan_file()
file()
recfilen=server.MapPath(dts)
Astream.Siram
Astream.tutup
Astream.tipe=2
Astream.Mode = 3
Astream.terbuka
Astream.CharSet = GB2312
Astream.posisi=0
Astream.Writetext tmpdata,1'Tulis data untuk streaming
Astream.SaveToFile disimpan kembali,2'Simpan ke file
sub akhir
function dts()' menghasilkan nama file acak
jika len(bulan(sekarang()))>1 maka
mm=bulan(sekarang())
kalau tidak
mm=0&bulan(sekarang())
berakhir jika
jika len(hari(sekarang()))>1 maka
hari=hari(sekarang())
kalau tidak
hari=0&hari(sekarang())
berakhir jika
jika len(jam(sekarang()))>1 maka
jam=jam(sekarang())
kalau tidak
jam=0&jam(sekarang())
berakhir jika
jika len(menit(sekarang()))>1 maka
m=menit(sekarang())
kalau tidak
m=0&menit(sekarang())
berakhir jika
jika len(kedua(sekarang()))>1 maka
s=kedua(sekarang())
kalau tidak
s=0&detik(sekarang())
berakhir jika
Acak
batas atas=9999
batas bawah=1000
rds=Int((batas atas - batas bawah + 1) * Batas + batas bawah)
dts=htm/&tahun(sekarang())&mm&d&h&m&s&rds&.htm
fungsi akhir
judul=permintaan.Formulir(judul)
konten=permintaan.Formulir(konten)
tmpdata=replace(tmpdata,<title></title>,title)' untuk mendukung penggantian konten kiriman
tmpdata=ganti(tmpdata,<content></content>,konten)
file templat=server.MapPath(templat/1.htm)'file templat
simpan_file()
%>