รหัสอินสแตนซ์ ASP: สร้างรหัสเพจบทความยาว

-

คลาส ASPXSKY_PAGE

คลาสย่อย class_initialize

สิ้นสุดย่อย

การแจ้งเตือนฟังก์ชั่นสาธารณะ (ข้อความ, Gourl)

ข้อความ = แทนที่ (ข้อความ, ',/')

ถ้า gourl = -1 แล้ว

Response.write (<ภาษาสคริปต์ = JavaScript> Alert ('& Message &'); history.go (-1) </script>)

อื่น

Response.write (<ภาษาสคริปต์ = JavaScript> Alert ('& Message &'); location = '& gourl &' </script>)

สิ้นสุดถ้า

Response.end ()

ฟังก์ชันสิ้นสุด

public subpage (str, page, url)

ถ้าไม่ใช่ isnumeric (หน้า) แล้ว

การแจ้งเตือนพรอมต์: พารามิเตอร์ที่ไม่ถูกต้อง!,-1

สิ้นสุดถ้า

ถ้า page = หรือ page = 0 หรือ isnull (หน้า) หรือ isempty (หน้า) แล้ว

หน้า = 1

อื่น

หน้า = cint (หน้า)

สิ้นสุดถ้า

str = split (str, {nextpage})

ABSPAGE = PAGE

pcount = ubund (str) 1

ถ้าหน้า> cint (ubund (str) 1) หรือหน้า <1 จากนั้น

การแจ้งเตือนพรอมต์: พารามิเตอร์ที่ไม่ถูกต้อง!,-1

อื่น

Response.write Str (Page-1) & <br> <br> <benter> แบ่งออกเป็น & pcount & pages

สิ้นสุดถ้า

สำหรับ p = 0 ถึง ubund (str)

Response.write <a href = & url & p = & p 1 &> [& p 1 &] </a>

ต่อไป

Response.write Current & Abspage &/& Pcount & Page </enter>

สิ้นสุดย่อย

ชั้นเรียนจบ

-

p = request.QueryString (P)

str = หน้า 1: นี่คือเนื้อหาของหน้าแรก {NextPage} หน้า 2: นี่คือเนื้อหาของหน้าสอง

url = shownews.asp? id = & id &&

ตั้งค่า newPage = ใหม่ aspxsky_page

newpage.showpage str, p, url

-