عدة طرق لتوليد HTML بواسطة ASP

تخبر هذه المقالة عدة طرق لـ 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.