แนะนำ: ชุดฟังก์ชันการทำงานของไฟล์ ASP % '========================================================' รวบรวมโดย: zhang Hui 'รหัสโปรแกรมทั้งหมด: WJ008 ที่อยู่ '================================================================================================================ -
<%@ language = vbscript codepage = 936%>
-
ตัวเลือกที่ชัดเจน 'คำจำกัดความบังคับของตัวแปร
Dim idcount'total จำนวนระเบียน
Dim Page'number ของหน้า
Dim Pagec''total จำนวนหน้า
หมายเลขหน้าหรี่
Dim Pagenc 'จำนวนหมายเลขหน้าที่แสดงต่อหน้า = Pagenc*2+1
Pagenc = 2
Dim Pagenmax หมายเลขหน้าสูงสุดของหน้าเว็บที่แสดงต่อหน้า
Dim Pagenmin 'หมายเลขหน้าขั้นต่ำของหน้าเว็บที่แสดงต่อหน้า
หน้า = CLNG (คำขอ (หน้า))
เวลาเริ่มต้นของโปรแกรม Dim Start
โปรแกรมเวลาสิ้นสุดของ Dim Endt
Data Data จากชื่อ Datatatable
datafrom = ตารางที่ 1
Dim Conn, RS
Dim Datapath 'ฐานข้อมูลผ่าน
Dim Sqlid 'id ที่จำเป็นสำหรับหน้านี้
หรี่ตัวเองในหน้านี้
ตัวเอง = request.serverVariables (path_info)
คำสั่ง dim sql'sql
คำสั่งจัดเรียงของ Taxis
'แท็กซี่ = คำสั่งซื้อตามการเรียงลำดับบวก id asc'
แท็กซี่ = สั่งซื้อตาม ID desc 'sort enverted
Dim I 'จำนวนเต็มที่ใช้สำหรับลูป
เริ่ม = ตัวจับเวลา ()
dataPath = db.mdb 'ฐานข้อมูล
หน้า = 30
'การเชื่อมต่อเพื่อเปิดฐานข้อมูล
DIM DB
db = db.mdb 'กำหนดพา ธ และชื่อฐานข้อมูล
SET Conn = Server.CreateObject (ADODB.Connection)
conn.open provider = microsoft.jet.oledb.4.0; แหล่งข้อมูล = & server.mappath (db)
ถ้า err.number <> 0 แล้ว
Response.write Database Link Error!
Response.end ()
สิ้นสุดถ้า
'รับจำนวนระเบียนทั้งหมด
SQL = SELECT COUNT (ID) เป็น IDCount จาก [& DataFrom &]
ตั้งค่า rs = server.createObject (adodb.recordset)
Rs.Open SQL, Conn, 0,1
idCount = RS (idCount) 'รับจำนวนระเบียนทั้งหมด
ถ้า (idcount> 0) จากนั้นให้จำนวนระเบียนทั้งหมด = 0 มันจะไม่ถูกประมวลผล
ถ้า (idCount mod pages = 0) จากนั้นถ้าจำนวนระเบียนทั้งหมดจะถูกหารด้วยจำนวนที่เหลือของแต่ละหน้าดังนั้น = จำนวนระเบียน/จำนวนทั้งหมดของแต่ละหน้า + 1
pagec = int (idcount/pages) 'รับจำนวนหน้าทั้งหมด
อื่น
pagec = int (idcount/pages)+1-get จำนวนหน้าทั้งหมด
สิ้นสุดถ้า
'รับรหัสที่จำเป็นสำหรับหน้านี้ ============================================================================================
'อ่านค่า id ทั้งหมด' เพราะมี ID เท่านั้นดังนั้นความเร็วจึงเร็วมาก
SQL = เลือก ID จาก [& datafrom &] & taxis
ตั้งค่า rs = server.createObject (adodb.recordset)
Rs.Open SQL, Conn, 1,1
Rs.Pagesize = จำนวนระเบียนที่แสดงต่อหน้า
ถ้าหน้า <1 แล้วหน้า = 1
ถ้าหน้า> pagec แล้ว page = pagec
ถ้า pagec> 0 แล้ว rs.absolutePage = หน้า
สำหรับ i = 1 ถึง Rs.Pagesize
ถ้า RS.EOF ออกจาก
ถ้า (i = 1) แล้ว
sqlid = rs (id)
อื่น
sqlid = sqlid &, & rs (id)
สิ้นสุดถ้า
Rs.Movenext
ต่อไป
'จุดสิ้นสุดของ ID ที่จำเป็นในการรับหน้านี้ =============================================================================================================
สิ้นสุดถ้า
-
<! doctype html สาธารณะ -// w3c // dtd html 4.01 transitional // en>
<html>
<head>
<meta http-equiv = เนื้อหาประเภทเนื้อหา = text/html; charset = gb2312>
<title> Paging ด่วน </title>
<link rel = stylesheet href = page.css type = text/css>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 marginWidth = 0 marginHeight = 0>
<ความกว้างของตาราง = ความสูง 100% = 100% border = 0 cellpadding = 20 cellpacing = 0>
<tr>
<td valign = middle> <width table = ความสูง 100% = 100% border = 0 cellpadding = 0 cellpacing = 1 bgcolor =#cccccc>
<tr>
<td valign = top bgcolor =#ffffff> <br> <width ตาราง = 90% border = 0 Align = center cellpading = 0 cellpacing = 0 class = zw>
<tr>
<td> <strong> <font color =#ff6600> paging ด่วน </font> </strong> </td>
</tr>
</table>
<br>
<ความกว้างของตาราง = 90% border = 0 Align = center cellpadding = 3 cellpacing = 1 bgcolor = cccccccc class = zw>
<tr align = center bgcolor =#9fcb07>
<td width = 9%> <strong> id </strong> </td>
<td width = 37%> <strong> ธีม </strong> </td>
<td width = 33%> <strong> เนื้อหา </strong> </td>
<td width = 21%> <strong> เวลา </strong> </td>
</tr>
-
if (idcount> 0 และ sqlid <>) จากนั้นถ้าจำนวนระเบียนทั้งหมด = 0 มันจะไม่ถูกประมวลผล
'ใช้เพื่อเลือกข้อมูลในภาษาของหน้านี้และอ่านเฉพาะข้อมูลที่จำเป็นสำหรับหน้านี้เท่านั้นดังนั้นความเร็วจึงรวดเร็ว
SQL = SELECT [ID], [AAAA], [BBBB], [CCCC] จาก [& DataFrom &] โดยที่ ID ใน (& SQLID &) & แท็กซี่
ตั้งค่า rs = server.createObject (adodb.recordset)
Rs.Open SQL, Conn, 0,1
ในขณะที่ (ไม่ใช่ rs.eof) 'กรอกข้อมูลลงในตาราง
-
<tr bgcolor =#ffffff>
<td align = center> <%= rs (0)%> </td>
<td> <%= rs (1)%> </td>
<td> <%= rs (2)%> </td>
<td align = center> <%= rs (3)%> </td>
</tr>
-
Rs.Movenext
ใช้
-
</table>
<br>
<width table = 90% border = 0 Align = center cellpadding = 2 cellpacing = 0 class = zw>
<tr align = center>
<td align = ซ้าย> มี <strong> <font color =#ff6600> <%= idcount%> </font> </strong> บันทึก, <strong> <font color =#ff6600> <%= หน้า%> </font> </strong>/<%= pagec%> color =#ff6600> <%= pages%> </font> </strong> บันทึก </td>
</tr>
</table>
<width table = 90% border = 0 Align = center cellpadding = 2 cellpacing = 0 class = zw>
<tr align = center>
<td allign = ขวา>
-
'ตั้งหมายเลขหน้าเป็นเริ่ม =================================================
pagenmin = page-pagenc 'คำนวณค่าเริ่มต้นหมายเลขหน้า
pagenmax = หน้า+pagenc 'คำนวณค่าสุดท้ายของหมายเลขหน้า
ถ้า (pagenmin <1) จากนั้นถ้าค่าเริ่มต้นหมายเลขหน้าจะน้อยกว่า 1 แล้ว = 1
pagenmin = 1
สิ้นสุดถ้า
ถ้า (หน้า> 1) จากนั้นถ้าหมายเลขหน้ามากกว่า 1 จะปรากฏขึ้น (หน้าแรก)
Response.write (<a href = '& mely &? page = 1'> <font color = '#000000'> หน้า 1 </font> </a>)
สิ้นสุดถ้า
ถ้า (pagenmin> 1) จากนั้นค่าหมายเลขเริ่มต้นของหน้าจะมากกว่า 1 จะแสดง (อัปเดต)
Response.write (<a href = '& mely &? page = & page- (pagenc*2+1) &'> <font color = '#000000'> ล่วงหน้า </font> </a>)
สิ้นสุดถ้า
ถ้า (pagenmax> pagec) จากนั้นถ้าค่าสิ้นสุดของหมายเลขหน้ามากกว่าจำนวนหน้าทั้งหมดแล้ว = จำนวนหน้าทั้งหมด
pagenmax = pagec
สิ้นสุดถ้า
สำหรับ i = pagenmin ไปยังหมายเลขหน้าเอาต์พุตลูป pagenmax '
ถ้า (i = page) แล้ว
Response.write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
อื่น
Response.write ([<a href = & mely &? page = & i &> <font color = '#000000'> & i & </font> </a>])
สิ้นสุดถ้า
ต่อไป
ถ้า (pagenmax <pagec) จากนั้นถ้าค่าสิ้นสุดของหมายเลขหน้าน้อยกว่าจำนวนหน้าทั้งหมดมันจะปรากฏขึ้น (หลังจากนั้น)
Response.write (<a href = '& mely &? page = & page+(pagenc*2+1) &'> <font color = '#000000'> หลังจาก </font> </a>)
สิ้นสุดถ้า
ถ้า (หน้า <pagec) จากนั้น 'หากหมายเลขหน้าน้อยกว่าจำนวนหน้าทั้งหมดมันจะปรากฏขึ้น (หน้าสุดท้าย)
Response.write (<a href = '& mely &? page = & pagec &'> <font color = '#000000'> หน้าสุดท้าย </font> </a>)
สิ้นสุดถ้า
'ตั้งหมายเลขหน้าเป็น end ===================================================
%> <ภาษาสคริปต์ = JavaScript>
-
ฟังก์ชั่น gopage () {
window.location.href = <%= ตัวเอง%>? page =+ page.value;
-
-
</script>
ไป
<ชื่ออินพุต = page type = ค่าข้อความ = <%= page%> size = 5> หน้า
<ประเภทอินพุต = ชื่อปุ่ม = ส่งค่า = กระโดด> </td>
</tr>
</table>
-
สิ้นสุดถ้า
-
<br>
<width table = 90% border = 0 Align = center cellpadding = 2 cellpacing = 0 class = zw>
<tr>
<td align = center>
<p>
-
endt = ตัวจับเวลา ()
Rs.close
ตั้งค่า rs = ไม่มีอะไร
conn.close
ตั้งค่า conn = ไม่มีอะไร
-
<%= formatNumber ((endt-start)*1,000,3)%> ms </p>
<p> <a href = http://stone-stone.vip.sina.com/ target = _blank> พื้นที่หิน </a> </p> </td>
</tr>
</table>
<br> </td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
แบ่งปัน: เคล็ดลับการตั้งค่าของ ASP สำหรับการใช้ FCKEDitor 1. เปิดไฟล์ fckconfig.js ในภาษาเริ่มต้น (สัมพันธ์กับโฟลเดอร์ FCKEditor ด้านล่างเหมือนกัน) เปลี่ยนภาษาการตรวจจับอัตโนมัติเป็นการตรวจจับและเปลี่ยนภาษาเริ่มต้นเป็นภาษาจีนที่ง่ายขึ้น fckconfig.defaultLanguage = 'zh-cn'; 2. เปิดไฟล์ fckconfig.js ในรายการตัวอักษรในรายการตัวอักษร