نسخة الكود كما يلي:
rem == المقالة السابقة ==
REM ===============================================================================
REM = وصف المعلمة:
REM = PID Current ID ، Prame: يتم إسقاط العمود حاليًا (مثل جدول Web_News العام ، وعادة ما يكون الحقل wn _ ** ، والقاعدة تمثل WN)
rem = ptable (الجدول قبل الجدول. على سبيل المثال ، اسم الجدول العام هو: اسم الموقع _table (shenzhe_news) ptable: يعني shenzhe)
REM = الوصف: يمكن أن يؤدي استخدام التسمية أعلاه إلى جعل هذه العملية شائعة
REM =============================================================================
FunctionGetPre (PID ، Prame ، PTABLE)
id = prame & "_ id"
العنوان = prame و "_ العنوان"
الجدول = "المدينة _" & ptable
url = "show _" & ptable
sql = "selecttop1" & id & "،" & title & "from" & table & "where" & id & "<" & pid & "orderby" & id & "desc"
setRs = conn.execute (SQL)
ifrs.eoforrs.bofthen
pre = "المقالة السابقة: لا توجد أخبار بعد الآن"
آخر
pre = "<ahref =" & url & ". asp؟
Endif
getPre = قبل
الوظيفية
REM = المقالة التالية
REM ================
REM = معنى المعلمة هو نفسه كما كان من قبل
REM ============
FunctionGetNext (NID ، NRAME ، NTable)
id = nrame & "_ id"
العنوان = nrame و "_ العنوان"
الجدول = "المدينة _" & nable
url = "show _" & ntable
sql = "selecttop1" & id & "،" & title & "من" & table & "where" & id & ">" & nid & "orderby" & id & "" & id & ""
setRs = conn.execute (SQL)
ifrs.eoforrs.bofthen
nnext = "التالي: لا أخبار"
آخر
nnext = "<ahref =" & url & ". asp؟
Endif
getNext = nnext
الوظيفية
رمز التنفيذ:
حتى قاعدة البيانات تحتوي على جداول:
city_activecity_datecity_note
الحقول الرئيسية City_Active هي: CA_ID ، CD_TITLE
City_Date الحقول الرئيسية هي: CD_ID ، CD_TITLE
الحقول الرئيسية City_Note هي: CN_ID ، CN_TITLE
بهذه الطريقة يمكنك الاقتباس:
اقتبس المقالة السابقة المقالة التالية في show_note.asp؟ cn_id = 4
<٪ = getPre (cn_id ، "cn" ، "note") ٪> 'المقالة السابقة
<٪ = getNext (CN_ID ، "CN" ، "ملاحظة") ٪> "المقالة التالية