تخبر هذه المقالة عدة طرق لـ ASP لإنشاء HTML. يمكن للأصدقاء الذين يحتاجون إليها الرجوع إلى تفاصيل المحتوى أدناه.
الطريقة 1: FSO
set fs = createObject ("scripting.filesystemObject")
newFile = server.mappath ("/ASP/CHAP06/AT/NewFile.html")
"قم بإنشاء ملف جديد/newFile.html ، إذا كان الملف موجودًا بالفعل ، فقم بالكتابة فوقه
اضبط A = fs.createTextFile (NewFile ، True)
Response.write "تم إنشاء ملف جديد!"
A.Close
file = server.mappath ("newFile.html")
قم بتعيين txt = fs.opentextFile (ملف ، 8 ، صحيح) "افتح إلى ملف يمكنه كتابة البيانات في النهاية
Data1 = "هذه الجملة مكتوبة باستخدام طريقة WriteLine! ~~"
txt.writeline data1
Data2 = "هذه الجملة مكتوبة باستخدام طريقة الكتابة! ~~"
txt.write data2
txt.close
الطريقة 2: XMLHTTP
SET XML = server.createObject ("Microsoft.xmlHTTP")
استبدل العنوان التالي بعنوان ملف صفحتك الرئيسية. تأكد من استخدام المسار المطلق بدءًا من http: // ، ولا يمكنك كتابة المسار النسبي.
xml.open "get" ، "http://www.phpup.com" ، خطأ
XML.SEND
bodyText = xml.ResponseBody
bodytext = bytestobstr (bodyText ، "GB2312")
تعيين XML = لا شيء
قاتمة fso ، myfile
set fso = createObject ("scripting.filesystemObject")
set myfile = fso.createTextFile (server.mappath ("aa.htm") ، صحيح)
myfile.writeLine (bodytext)
myfile.close
آخر:
1
الأمثلة التالية هي ثلاثة ديناميات: index.asp؟ id = 1/index.asp؟ id = 2/index.asp؟ id = 3/
تولد الصفحات ndex1.htm ، index2.htm ، index3.htm على التوالي وتقع في دليل الجذر:
Dim strurl ، item_classid ، id ، filename ، filepath ، do_url ، html_temp
html_temp = "
لأني = 1 إلى 3
html_temp = html_temp & "
item_classid = i
filename = "index" & item_classid & ". htm"
FilePath = server.mappath ("/") و "/" & filename html_temp = html_temp & filepath & "
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
اضبط OBJXMLHTTP = server.createObject ("Microsoft.xmlhttp")
OBJXMLHTTP.Open "Get" ، Strurl ، false
OBJXMLHTTP.SEND ()
قاتمة binfiledata
binfiledata = objxmlhttp.responseBody
قاتمة ObjadoStream
تعيين ObjadoStream = server.createBject ("Adodb.stream")
ObjadoStream.type = 1
objadostream.open ()
objadostream.write (binfiledata)
objadostream.savetofile filepath ، 2
objadostream.close ()
التالي
html_temp = html_temp & "
٪>
Response.write ("ملف تم إنشاؤه بنجاح:")
الرد. write ("
")
استجابة. write html_temp
٪>
وظيفة bytestobstr (الجسم ، CSET)
قاتمة objstream
تعيين OBJStream = server.createBject ("Adodb.stream")
objstream.type = 1
objstream.mode = 3
objstream.Open
objstream.write الجسم
objstream.position = 0
objstream.type = 2
objstream.charset = cset
bytestobstr = objstream.readtext
objstream.close
اضبط OBJStream = لا شيء
وظيفة نهاية
٪>
2
Templatefile العامة ، TMPDATA
Sub Ofile () 'افتح الملف ووضع محتويات الملف في TMPDATA
عند استئناف الخطأ التالي
tmpdata = ""
تعيين asstream = server.createBject ("adodb.stream")
asstream.type = 2'file type text
asstream.mode = 3 'اقرأ واكتب
Asstream.Open
Asstream.charset = "GB2312" مجموعة الأحرف
asstream.loadfromfile (tempelatefile) "تحميل من الملف
ASSP = Astream.size
إذا err.number0 ثم
XZ = -18
استجابة. write templatefile & "
"
err.clear
tmpdata = ""
آخر
TMPDATA = ASTEREAM.READTEXT (ASSP)
إنهاء إذا
نهاية الفرعية
sub save_file ()
forile ()
recfilen = server.mappath (dts)
asstream.flush
Asstream.close
asstream.type = 2
Asstream.mode = 3
Asstream.Open
Asstream.charset = "GB2312"
Asstream.position = 0
ASSTREAM.WRITETEXT TMPDATA ، بيانات 1'Write للدفق
asstream.savetofile recfilen ، 2'Save to File
نهاية الفرعية
دالة DTS () 'يولد اسم ملف عشوائي
إذا len (month (now ()))> 1 ثم
مم = شهر (الآن ())
آخر
مم = "0" وشهر (الآن ())
إنهاء إذا
إذا كان لين (اليوم (الآن ()))> 1 ثم
د = اليوم (الآن ())
آخر
d = "0" واليوم (الآن ())
إنهاء إذا
إذا كان len (ساعة (الآن ()))> 1 ثم
H = ساعة (الآن ())
آخر
H = "0" والساعة (الآن ())
إنهاء إذا
إذا len (دقيقة (الآن ()))> 1 ثم
م = دقيقة (الآن ())
آخر
m = "0" ودقيقة (الآن ())
إنهاء إذا
إذا كان لين (الثاني (الآن ()))> 1 ثم
s = ثانية (الآن ())
آخر
s = "0" والثاني (الآن ())
إنهاء إذا
عشوائي
أعلى = 9999
السفلي = 1000
RDS = int ((أعلى - LowerBound + 1) * RND + LowerBound)
dts = "htm/" & year (now ()) & mm & d & h & m & s & rds & ". htm"
وظيفة نهاية
title = request.form ("title")
content = request.form ("المحتوى")
TMPDATA = استبدال (TMPDATA ، "
TMPDATA = استبدال (TMPDATA ، "
templatefile = server.mappath ("tempelate/1.htm") ملف قالب
save_file ()
٪>
ما سبق عدة طرق لتوليد HTML بواسطة ASP. أعتقد أنك تعلمت ذلك. لمزيد من المحتوى ذي الصلة ، يرجى الاستمرار في الانتباه إلى قناة Wuxin Technology.