لقد نسيت تقريبًا كيفية كتابة مجموعة ASP للأصدقاء الذين يحتاجون إلى كتابة ASP لإنشاء صفحات ثابتة بأنفسهم.
انسخ رمز الكود كما يلي:
<!-- #include file="../conn.asp" -->
<!-- #include file="../cls_main.asp" -->
<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>إنشاء Baidu XML</title>
</الرأس>
<الجسم>
<%
خافت سيد، عيد
sid=abs(request("sid"))
إذا كان SID = 0 ثم
سيد=0
آخر
سيد=سينت(طلب("sid"))
نهاية إذا
العيد=سينت(طلب("عيد"))
إذا كان العيد = 0 ثم
العيد=500
آخر
العيد=سينت(طلب("عيد"))
نهاية إذا
خافت،ResNum
تعيين tt = جديد Cls_Main
ResNum = CLng(tt.Execute("اختر الحد الأقصى (المعرف) من الجدول")(0))
تعيين ميسكي = لا شيء
%>
<جدول تباعد الخلايا = "0" خلية الحشو = "0">
<طريقة النموذج = "POST" action = "?action=html">
<تر>
<td>معرف البدء:</td>
<td><نوع الإدخال = "نص" حجم = "20" قيمة = "<%=sid%>"></td>
<td>معرف النهاية:</td>
<td><input type="text" size="20" value="<%=eid%>">(الحد الأقصى للمعرف:<%=ResNum%>)</td>
<td><input type="submit" value="submit"></td>
</tr>
</النموذج>
<%
إذا كان الطلب ("الإجراء") = "html" إذن
Response.Write " <tr><td colspan=5>" & vbNewLine
Response.اكتب "<br><br>" وvbNewLine
Response.Write "إنشاء ملف <font color='red'><b>" & eid & ".xml</b></font>..." & vbNewLine
Response.اكتب "<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&">< /آي فريم>"
وظيفة النهاية
%>
</td></tr>
</الجدول>
</الجسم>
</html>