موصى به: تحليل موجز لنصائح ASP Ajax Search Phoys Google الملفات الرئيسية هي: وظيفة تنفيذ index.html ، مربع نص ، محتوى الإدخال وتنفيذ وظيفة Quiery Search.asp ، اترك المحتوى الذي تم إدخاله في مربع النص في قاعدة البيانات ، ثم إرجاعه إلى وظيفة اتصال Conn.asp Conn.asp ، وتنفيذ وتنفيذ وتنفيذ و
هناك العديد من أنظمة الأخبار التي تولد HTML ، لكنها جميعها تستخدم القوالب. تقوم هذه الوظيفة بحفظ رمز HTML الذي تم إنشاؤه بواسطة صفحة ASP في ملف HTML ، لذلك ليست هناك حاجة لتغيير الصفحة الأصلية ويمكن أن تكون بسهولة
أكمل نظام الأخبار الذي يولد HTML. ^_^
نظرًا لأن الرمز قصير ، فلن أعلق هنا
<٪
"عندما تحتوي الصفحة المستهدفة على الملف ، أي الصفحة #include ، هناك مشكلة في هذا البرنامج.
"ملاحظة: يجب وضع هذا الملف في نفس الدليل كما أشار الملف بواسطة اسم الملف
| ما يلي هو المحتوى المقتبس: Dim Hughchiu_rtcode وظيفة get_exe_code (اسم الملف) خافت execode DIM TMP_STR Dim re ، re1 ، content ، fso ، f ، aspstart ، aspend قاتمة MS ، م execode = set fso = createObject (scripting.filesystemObject) set f = fso.opentextFile (server.mappath (filename)) المحتوى = F.Readall F.Close تعيين f = لا شيء تعيين fso = لا شيء تعيين re = جديد regexp re.ignorecase = صحيح re.global = صحيح re.pattern = <٪@[^٪] ٪> content = re.replace (المحتوى ،) re.global = false re.pattern = <!-s*#يتضمن*ملفات*= s*([^]) s*-> يفعل تعيين MS = re.execute (المحتوى) إذا السيدة كونت <> 0 ثم تعيين M = MS (0) TMP_STR = GET_EXE_CODE (M.SubMatches (0)) content = re.replace (المحتوى ، TMP_STR) آخر الخروج تفعل إنهاء إذا حلقة تعيين M = لا شيء تعيين MS = لا شيء re.pattern =^s*= aspend = 1 aspstart = instr (aspend ، المحتوى ، <٪) 2 تعيين re1 = جديد regexp re1.ignorecase = صحيح re1.global = false re1.pattern = response.write (.) افعل أثناء AspStart> Aspend 1 execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && reply (استبدل (mid (المحتوى ، aspend ، aspstart-aspend-2) ،،) ، vbcrlf ، & vbcrlf &) && vbcrlf aspend = instr (aspstart ، content ، ٪>) 2 TMP_STR = MID (المحتوى ، ASPSTART ، ASPEND-ASPSTART-2) يفعل تعيين MS = re1.execute (TMP_STR) إذا السيدة كونت <> 0 ثم تعيين M = MS (0) tmp_str = re1.replace (tmp_str ، hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) آخر الخروج تفعل إنهاء إذا حلقة تعيين M = لا شيء تعيين MS = لا شيء execode = execode & re.replace (tmp_str ، hughchiu_rtcode = hughchiu_rtcode &) aspstart = instr (aspend ، المحتوى ، <٪) 2 حلقة تعيين re1 = لا شيء تعيين إعادة = لا شيء execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && replace (استبدال (mid (content ، aspend) ،،) ، vbcrlf ، & vbcrlf &) && vbcrlf get_exe_code = <٪ & execode & ٪> وظيفة نهاية وظيفة ASP2HTML (اسم الملف) رمز قاتمة رمز = استبدال (استبدال (استبدال (get_exe_code (اسم الملف) ، hughchiu_rtcode = hughchiu_rtcode && vbcrlf ،) ، <٪ ،) ، ٪> ،) 'Response.write (رمز) تنفيذ (رمز) 'response.write (hughchiu_rtcode) ASP2HTML = hughchiu_rtcode وظيفة نهاية ٪> |
مثال على الاستخدام:
| ما يلي هو المحتوى المقتبس: F.Writeline (ASP2HTML (youpage.asp)) F.Close تعيين f = لا شيء تعيين fso = لا شيء |
المشاركة: إدراك قوة ASP من خلال البرامج النصية بدء التشغيل مثل معظم البرامج النصية اللغوية ، فإن أفضل طريقة لتعلم ASP هي تجربة ASP بنفسك وتثبيت PWS أو IIS باستخدام نظامك الخاص. يمكنك اختبار مكونات ASP ووظائفها على الخادم الخاص بك أثناء التعلم. لتسهيل التعلم ، قمنا بتجميع بعض الملاعين