طريقة ASP بسيطة لإنشاء ثابت (استبدال علامة القالب)

لقد نظرت اليوم إلى الكود الموجود في أداة القاموس بطريقة بسيطة لإنشاء asp. إنشاء HTML

يتم إنشاء جميع المقالات والموارد سهلة الاستخدام

الطريقة الأولى:

انسخ رمز الكود كما يلي:

"بدء وضع إنشاء HTML."

تعيين Rs=Server.Createobject(Adodb.Recordset)

Sql=حدد KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record من KQIQI_CY ترتيب حسب وصف KQIQI_ID

Rs.Open Sql، كون، 1،3

Datanum=Rs.Recordcount

لأني = 1 إلى Datanum

العنوان=استبدال(استبدال(Rs(1)،Chr(13)،)،Chr(10)،)

'ابدأ في إنشاء ملفات المصطلحات

تعيين Fso=Createobject(Scripting.FilesyStemobject)

تعيين KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.إغلاق

KQIQI_Ce=استبدال(KQIQI_Ce,{$KQIQI:Title},&Title&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)

KQIQI_Ce=استبدال(KQIQI_Ce,{$KQIQI:Explain},&Rs(3)&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Content},&Rs(4)&)

KQIQI_Ce=استبدال(KQIQI_Ce,{$KQIQI:Record},&Rs(5)&)

تعيين KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Close

تعيين Fso = لا شيء

'اكتمل الجيل

روبية موفينيكست

التالي

KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 محاذاة=حد المركز=0 class=td table> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=90></TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>تم إنشاؤه</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>تم إنشاء قاموس لغة Ke Qiqi! <نوع الإدخال=اسم الزر=زر1قيمة=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>خروج</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Quit>Quit</a>& vbCrLf

KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf

النوع الثاني يظهر من الأنظمة الأخرى.

انسخ رمز الكود كما يلي:

<%

حقوق الطبع والنشر 2007

"تأليف: وو جون

حقوق الطبع والنشر: www.sm05.com

"الإصدار: الإصدار 1.0

'الدعم الفني: البريد الإلكتروني:[email protected] س: 21275120

%>

<!--#include file=cyconn.asp-->

<%

خافت

الاب خافت

خافت

مهاجم

"بدء وضع إنشاء HTML."

تعيين rs=server.createobject(adodb.recordset)

sql=select * من ترتيب الموافقة المسبقة عن علم حسب المعرف

rs.open SQL، كون، 1،3

datanum=rs.recordcount

لأني = 1 إلى datanum

'ابدأ في إنشاء ملفات المصطلحات

تعيين fso=createobject(scripting.filesystemobject)

تعيين fr=fso.opentextfile(server.mappath(chengyu_m.htm))

wstr=fr.readall

fr. Close

خافت rstr

wstr=replace(wstr,<{{biaoti}}>,&replace(rs(biaoti),vbnewline,)&)

wstr=replace(wstr,<{{pinyin}}>,&rs(sg)&)

wstr=replace(wstr,<{{jieshi}}>,&rs(js)&)

wstr=replace(wstr,<{{from}}>,&rs(content)&)

wstr=replace(wstr,<{{example}}>,&rs(jilu)&)

تعيين fw=fso.createtextfile(server.mappath(view/chengyu&rs(id)&.htm),true)

fw.writeline wstr

fw. Close

تعيين fso=لا شيء

'اكتمل الجيل

rs.movenext

التالي

Response.write هيا، لقد تم إنشاء كافة الأعمدة الاصطلاحية للمنتدى!

%>

يتم إنشاء MakeHtml بدءًا من المعرف المحدد

انسخ رمز الكود كما يلي:

"بدء وضع إنشاء HTML."

تعيين Rs=Server.Createobject(Adodb.Recordset)

Sql=حدد KQIQI_ID,KQIQI_Title,KQIQI_Pinyin,KQIQI_Explain,KQIQI_Content,KQIQI_Record من KQIQI_CY ترتيب حسب وصف KQIQI_ID

Rs.Open Sql، كون، 1،3

لأني = id1 إلى id2

العنوان=استبدال(استبدال(Rs(1)،Chr(13)،)،Chr(10)،)

'ابدأ في إنشاء ملفات المصطلحات

تعيين Fso=Createobject(Scripting.FilesyStemobject)

تعيين KQIQI_MB=Fso.Opentextfile(server.mappath(KQIQI_CY_MB.html))

KQIQI_Ce=KQIQI_MB.readall

KQIQI_MB.إغلاق

KQIQI_Ce=استبدال(KQIQI_Ce,{$KQIQI:Title},&Title&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:SystemTitle},&SystemTitle&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Pinyin},&Rs(2)&)

KQIQI_Ce=استبدال(KQIQI_Ce,{$KQIQI:Explain},&Rs(3)&)

KQIQI_Ce=Replace(KQIQI_Ce,{$KQIQI:Content},&Rs(4)&)

KQIQI_Ce=استبدال(KQIQI_Ce,{$KQIQI:Record},&Rs(5)&)

تعيين KQIQI_We=Fso.Createtextfile(Server.Mappath(Html/KQIQICY_&Rs(0)&.html),true)

KQIQI_We.writeline KQIQI_Ce

KQIQI_We.Close

تعيين Fso = لا شيء

'اكتمل الجيل

روبية موفينيكست

التالي

KQIQICY = KQIQICY & <TABLE cellSpacing=0 cellPadding=0 width=480 محاذاة=حد المركز=0 class=td table> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><IMG src=images/logo.gif border=0 width=220 height=90></TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>تم إنشاؤه</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center>تم إنشاء قاموس لغة Ke Qiqi! <نوع الإدخال=اسم الزر=زر1قيمة=return onclick=javascript:history.back(-1);></TD></TR>& vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center class=tdbar>خروج</TD></TR> & vbCrLf

KQIQICY = KQIQICY & <TR><TD align=center><a href=KQIQI_Admin.asp?Action=Quit>Quit>Quit</a>& vbCrLf

KQIQICY = KQIQICY & </TD></TR></FORM></TABLE> & vbCrLf