لقد نسيت تقريبًا كيفية كتابة مجموعة ASP للأصدقاء الذين يحتاجون إلى كتابة ASP لإنشاء صفحات ثابتة بأنفسهم. انسخ رمز الكود كما يلي:
<!-- #include file=../conn.asp -->
<!-- #include file=../cls_main.asp -->
<أتش تي أم أل>
<الرأس>
<meta http-equiv=محتوى لغة المحتوى=zh-cn>
<meta http-equiv=Content-Type content=text/html;
<title>إنشاء Baidu XML</title>
</الرأس>
<الجسم>
<%
خافت سيد، عيد
سيد=أبس(طلب(سيد))
إذا كان SID = 0 ثم
سيد=0
آخر
سيد = سينت (طلب (سيد))
نهاية إذا
العيد=سينت(طلب(عيد))
إذا كان العيد = 0 ثم
العيد=500
آخر
العيد=سينت(طلب(عيد))
نهاية إذا
خافت،ResNum
تعيين tt = جديد Cls_Main
ResNum = CLng(tt.Execute(اختر الحد الأقصى(المعرف) من الجدول)(0))
تعيين ميسكي = لا شيء
%>
<حدود الجدول = 0 العرض = 100٪ معرف = تباعد الخلايا في الجدول 1 = 0 خلية الحشو = 0>
<طريقة النموذج=إجراء POST=?action=html>
<تر>
<td width=9%>معرف البدء:</td>
<عرض td=35%><نوع الإدخال=اسم النص=حجم sid=20 قيمة=<%=sid%>></td>
<td width=8%>معرف النهاية:</td>
<td width=23%><نوع الإدخال=اسم النص=حجم العيد=20 قيمة=<%=eid%>>(الحد الأقصى للمعرف:<%=ResNum%>)</td>
<عرض td=23%><نوع الإدخال=قيمة الإرسال=اسم الإرسال=B1></td>
</tr>
</النموذج>
<%
إذا كان الطلب (الإجراء) = html إذن
Response.Write <tr><td colspan=5> & vbNewLine
Response.Write <br><br> & vbNewLine
يقوم Response.Write بإنشاء ملفات <font color='red'><b> & eid & .xml</b></font>... & vbNewLine
Response.Write <br><br> & vbNewLine
Response.Write </td></tr><tr><td colspan=5> & vbNewLine
الاستجابة. فلوش
إذا (eid-500) > ResNum ثم
الرد.أكتب تهانينا على عمليتك الناجحة!
الاستجابة. فلوش
آخر
إنشاء (سيد)
سيد=sid+500
العيد=العيد+500
Response.Write <meta http-equiv=refresh content=10;url=?action=html&sid=&sid&&eid=&eid&>
نهاية إذا
نهاية إذا
إنشاء الوظيفة (المعرف)
Response.Write <IFRame name=ttframeborder=0 width=100% height=30scrolling=no src=http://www.xx.com/cls_create.asp?startid=&sid&&endid=&eid&></IFrame>
وظيفة النهاية
%>
</td></tr>
</الجدول>
</الجسم>
</html>