هذه هي قائمة ترحيل ASP لإنشاء صفحات ثابتة والحصول على نص ASP Applet
نسخة الكود كما يلي:
<!-#includefile = "conn.asp"->
<html> <head> <title> اختبار ترقيم الصفحات </title> <InlinHref = "inc/style.css" type = text/cssrel = STYLESHEET> </head>
<٪ strhead = strhead & "<html>"
strhead = strhead و "<head>"
strhead = strhead & "<title> اختبار ترقيم الصفحات </title>"
strhead = strhead & "<LinkHref =" "inc/style.css" "type = text/cssrel = stylesheet>"
strhead = strhead & "</head>"
٪>
<٪
SQL = "SELECT*FromNews"
setRs = server.createObject ("adodb.recordset")
Rs.Opensql ، Conn ، 1،1
٪> <٪
rs.pagesize = 2
TotalPage = Rs.PageCount
Rs.close
setRs = لا شيء
forj = 1Tototalpage
SQL = "SELECT*FromNews"
setRs = server.createObject ("adodb.recordset")
Rs.Opensql ، Conn ، 1،1
أي صفحة = ي
rs.pagesize = 2
TotalPage = Rs.PageCount
rs.absolutepage = أي صفحة
Howmanyrecs = 0
٪> <٪
str0 = ""
Str0 = Str0 & "</p>"
str0 = str0 & "<tablebgcolor =#cecfcealign = centerBorder = 0width = 800CellPadding = 2CellPacing = 1>"
٪> <٪
dowhilenotrs.eofandhowmanyrecs <rs.pagesize
٪> <٪
str0 = str0 & "<trbgColor =#f7f7f7>"
str0 = str0 & "<tdbgColor =#f7f7f7align =" "center"> "& rs (0) &" </td> "
str0 = str0 & "<tdbgColor =#f7f7f7align =" "center"> "& rs (1) &" </td> "
str0 = str0 & "<tdbgcolor =#f7f7f7align =" "center" ">" & rs (2) & "</td>"
str0 = str0 & "<tdbgColor =#f7f7f7align =" "center"> "& rs (3) &" </td> "
str0 = str0 & "</tr>"
٪> <٪
Rs.Movenext
Howmanyrecs = Howmanyrecs+1
حلقة
Rs.close
setRs = لا شيء
٪> <٪ str0 = str0 & "</table>"
٪> <٪
قسم ترقيم الصفحات
المرجع = ""
المرجع = المرجع و "<br>"
Ref = Ref & "<tablebgColor =#cecfcealign = centerBorder = 0width = 800CellPadding = 0cellspacing = 1>"
Ref = Ref & "<TrbgColor =#f7f7f7>"
المرجع = المرجع و "<td>"
المرجع = المرجع و "<b> الصفحات:" & j & "/" & totalpage & "</b>"
المرجع = المرجع و "</td>"
المرجع = المرجع و "<td>"
Ref = Ref & "<ahref = list_1.html" & ">" & "<fontface = webdings> 9 </font>" & "</a>" ""
إذا كان صفحة = 1
Ref = Ref & "<Fontface = WebDings> 7 </font>"