الطريقة الأولى: FSO
تعيين خ = CreateObject(Scripting.FileSystemObject)
NewFile=Server.MapPath(/asp/chap06/at/newfile.html)
'قم بإنشاء ملف جديد/newfile.html، إذا كان الملف موجودًا بالفعل، فاستبدله
تعيين = fs.CreateTextFile (NewFile، True)
تم إنشاء ملف Response.Write الجديد!
أ. قريب
File=Server.MapPath(newfile.html)
اضبط txt=fs.OpenTextFile(File,8,True) 'افتح ملفًا يمكنه كتابة البيانات في النهاية
data1=هذه الجملة مكتوبة باستخدام طريقة WriteLine! ~~
txt.WriteLine data1
data2=هذه الجملة مكتوبة باستخدام طريقة الكتابة! ~~
txt.اكتب البيانات2
txt.إغلاق
الطريقة الثانية: 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)
تعيين MyFile = fso.CreateTextFile (server.MapPath (aa.htm)، True)
MyFile.WriteLine(BodyText)
ملفي.إغلاق
آخر:
1
المثال التالي هو الديناميكيات الثلاث لـ Index.asp?id=1/index.asp?id=2/index.asp?id=3/
تقوم الصفحة بإنشاء Index1.htm وindex2.htm وindex3.htm على التوالي وتخزينها في الدليل الجذر:
<%
خافت strUrl،Item_Classid،id،FileName،FilePath،Do_Url،Html_Temp
Html_Temp=<UL>
لأني = 1 إلى 3
Html_Temp = Html_Temp&<LI>
Item_Classid = i
اسم الملف = الفهرس&Item_Classid&.htm
FilePath = Server.MapPath(/)&/&FileName Html_Temp = Html_Temp&FilePath&</LI>
دو_URL = http://
Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp
Do_Url = Do_Url&?Item_Classid=&Item_Classid
strUrl = Do_Url
خافت objXmlHttp
تعيين objXmlHttp = Server.createObject(Microsoft.XMLHTTP)
objXmlHttp.open GET,strUrl,false
objXmlHttp.send()
ديم binFileData
binFileData = objXmlHttp.responseBody
خافت objAdoStream
تعيين objAdoStream = Server.createObject(ADODB.Stream)
objAdoStream.Type = 1
objAdoStream.Open()
objAdoStream.Write(binFileData)
objAdoStream.SaveToFile FilePath,2
objAdoStream.Close()
التالي
Html_Temp = Html_Temp&<UL>
%>
<%
Response.Write (تم إنشاء الملف بنجاح:)
الاستجابة.الكتابة ( <BR> )
الاستجابة.اكتب Html_Temp
%>
الدالة BytesToBstr(body,Cset)
objstream خافت
تعيين 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 CODEPAGE=936%>
<%
publictemplatefile,tmpdata
sub ofile()'افتح الملف وضع محتويات الملف في tmpdata
على خطأ استئناف المقبل
tmpdata=
تعيين 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 ثم
سز=-18
استجابة.اكتب ملف القالب&<br>
خطأ. واضح
tmpdata=
آخر
tmpdata=Astream.ReadText(Assp)
نهاية إذا
النهاية الفرعية
حفظ_ملف فرعي ()
ofile()
ريكفيلين=server.MapPath(dts)
أستريم. فلوش
أستريم.إغلاق
أستريم.نوع=2
أستريم.مود = 3
أستريم.فتح
Astream.CharSet = GB2312
Astream.position=0
Astream.Writetext tmpdata،1'اكتب البيانات إلى الدفق
Astream.SaveToFile refilen،2'Save to file
النهاية الفرعية
تقوم الدالة dts()' بإنشاء أسماء ملفات عشوائية
إذا len(month(now()))>1 إذن
مم = شهر (الآن ())
آخر
مم=0&شهر(الآن())
نهاية إذا
إذا len(day(now()))>1 إذن
د=يوم(الآن())
آخر
د=0&يوم(الآن())
نهاية إذا
إذا len(hour(now()))>1 إذن
ح = ساعة (الآن ())
آخر
ح=0&ساعة(الآن())
نهاية إذا
إذا len(دقيقة(now()))>1 إذن
م = دقيقة (الآن ())
آخر
م=0&دقيقة(الآن())
نهاية إذا
إذا لين(الثانية(الآن()))>1 ثم
الصورة = الثانية (الآن ())
آخر
ق=0&ثانية(الآن())
نهاية إذا
عشوائية
الحد الأعلى = 9999
الحد الأدنى = 1000
rds=Int((الحد العلوي - الحد السفلي + 1) * Rnd + الحد السفلي)
dts=htm/&year(now())&mm&d&h&m&s&rds&.htm
وظيفة النهاية
العنوان=طلب.نموذج(العنوان)
المحتوى=طلب.نموذج(محتوى)
tmpdata=replace(tmpdata,<title></title>,title)' لدعم استبدال محتوى الإرسال
tmpdata=replace(tmpdata,<content></content>,content)
templatefile=server.MapPath(tempelate/1.htm)'ملف القالب
save_file()
%>