الجدة ، فئة ASP من الصعب حقًا تعلمها. يبدو الأمر بسيطًا ، ولكن عندما يكون مفيدًا حقًا ، يتم الإبلاغ عن الرموز الموجودة على الإنترنت بشكل غير صحيح! !
الاكتئاب ، استمتع! ! لقد مرت 3 أيام ، وأخيراً تصحيحها. أنا لا أجرؤ على الاستمتاع به بمفرده. سآخذها وأشاركها معك!
ينتمي هذا العمل إلى Peng Peng ، مدير الويب China www.zzcn.net. لا يُسمح لك بإزالة حقوق الطبع والنشر عند نسخه ، وإلا فإن العائلة بأكملها سوف تموت! ! ! ! هيه. . سائدا
نسخة الكود كما يلي:
<٪@language = "vbscript" codepage = "936" ٪>
<! doctypehtmlpublic "-// w3c // dtdxhtml1.0transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<htmlxmlns = "http://www.w3.org/1999/xhtml">
<٪
'Peng Peng يرجى قبول فئة الأخبار التي ينتجها [مدير المواقع الصين] http: //www.zzcn.netqq: 76526211
classNewSclass
Privatezzcn ، Conn ، Cnnstr
privatetle_p ، id_p
تهيئة الكائن
privatesubclass_initialize ()
"الاستجابة." التهيئة "<br>"
callnewsconnstart ()
ينتهي
"المدمرة ، تنفذ تلقائيًا عند إطلاق كائن باستخدام setNothing
privatesubclass_terminate ()
"Response.write" حدث الإصدار: class_terminate <br> "
callnewsconnend ()
ينتهي
دالة ارتباط قاعدة البيانات
privatesubnewsconnstart ()
setConn = server.createObject ("adodb.connection")
cnnstr = "driver = {microsoft accessDriver (*. mdb)} ؛"
cnnstr = cnstr & "dbq =" & server.mappath ("admin/watavase/٪ 29to-dream.mdb")
Conn.Opencnnstr
'response.writecnnstr & "<br>"
ينتهي
privatesubnewsconnend ()
conn.close
setConn = لا شيء
ينتهي
'=======================================================
'اسم وظيفة getRs ()
احصل على سجل سجل لعمود معين
اسم العمود لانمو
'كم عدد السجلات لكل صفحة ك
أي صفحة
'كم عدد السجلات
تاريخ RIQI1 في ترتيب عكسي حسب التاريخ 0 هو ترتيب تصاعدي
'=======================================================
publicfunctiongetrs (Byvallanmu ، Byvalk ، Byvalpage ، Byvaln ، Byvalriqi)
SQL = "SELECT*FROMARTICLASSWHERECLASSNAME = '" & lanmu & "' orderbyclassiddesc"