คลาส ASP ของคุณยายนั้นยากที่จะเรียนรู้ มันดูเรียบง่าย แต่เมื่อมีประโยชน์จริงๆรหัสบนอินเทอร์เน็ตจะถูกรายงานอย่างไม่ถูกต้อง! -
ซึมเศร้าสนุก! - เป็นเวลา 3 วันและในที่สุดก็ทำการดีบัก ฉันไม่กล้าที่จะสนุกกับมันคนเดียว ฉันจะนำมันออกมาและแบ่งปันกับคุณ!
งานนี้เป็นของ Peng Peng, Webmaster 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 โปรดยอมรับหมวดหมู่ข่าวที่ผลิตโดยเขา [Webmaster China] http: //www.zzcn.netqq: 76526211
ชั้นเรียน
Privatezzcn, Conn, CNNSTR
privatetItle_p, id_p
'การเริ่มต้นวัตถุ
Privatesubclass_initialize ()
'response.write "การเริ่มต้น <br>"
callnewsconnstart ()
enddub
'destructor ดำเนินการโดยอัตโนมัติเมื่อปล่อยวัตถุโดยใช้ setNothing
Privatesubclass_terminate ()
'Response.write "เหตุการณ์ที่ปล่อย: class_terminate <br>"
CallNewSconnend ()
enddub
'ฟังก์ชั่นลิงค์ฐานข้อมูล
PrivatesubNewSconnstart ()
setConn = server.createObject ("adodb.connection"))
cnnstr = "driver = {microsoft accessiver (*. mdb)};"
cnnstr = cnstr & "dbq =" & server.mappath ("admin/watavase/%29to-dream.mdb")
conn.opencnnstr
'response.writecnnstr & "<br>"
enddub
PrivatesubNewSconnend ()
conn.close
setConn = ไม่มีอะไร
enddub
-
'ชื่อฟังก์ชั่น getrs ()
'รับชุดระเบียนสำหรับคอลัมน์ที่แน่นอน
'ชื่อคอลัมน์ lanmu
'มีกี่บันทึกต่อหน้า k
'หน้าไหน
'มีกี่บันทึก
'วันที่ riqi1 อยู่ในลำดับย้อนกลับภายในวันที่ 0 คือคำสั่งซื้อจากน้อยไปหามากขึ้น
-
PublicFunctionGetRs (byvallanmu, byvalk, byvalpage, byvaln, byvalriqi)
sql = "select*fromarticleclasswhereclassname = '" & lanmu & "' orderbyclassiddesc"