If lngPageCur =<LinkPageCount then
Response.Write(vbCrLf& "เลขหน้า ")
Else
Response.Write(vbCrLf& "<a href=" & chr(34) & alink & (GroupLink -1)*LinkPageCount & chr(34) & ">...</a> ")
End if
if (Grouplink * LinkPageCount) <= lngPageAll then
maxLinkPage =(Grouplink * LinkPageCount)
else
maxLinkPage = lngPageAll
end if
for i = ((GroupLink -1)*LinkPageCount)+1 to maxLinkPage
If i = lngPageCur Then
Response.Write(vbCrLf& "<font color=""red""><b>"& i &"</b></font> ")
Else
Response.Write(vbCrLf& "<a href=" & alink & i & ">")
Response.Write("<b>" & i &"</b></a> ")
End If
Next
if maxLinkPage < lngPageAll then _
Response.Write(vbCrLf& "<a href=" & chr(34) & alink & (GroupLink * LinkPageCount)+1 & chr(34) & ">...</a> ")
นี่คือไฟล์ tpage.asp ของผม พอจะอ่านแล้วเดาแนวทางได้มั้ยครับ
ผมประกาศตัวแปรทั้งหมด ไว้ที่หน้าตัวแปรรวม
Dim lngRsCount
Dim lngPagePer
Dim lngPageAll
Dim lngPageCur
Dim LinkPageCount
Dim aLink
Dim maxLinkPage
Dim keyw
Dim ty
Dim srtT
Dim i
Dim Conn
Dim sql
Dim sqls
Dim rs
Dim rss
Dim meRefer
Dim meWeb
Dim meName
if isempty(request.QueryString("PPs")) or (request.QueryString("PPs")="") or (request.QueryString("PPs")=0) then
lngPageCur =1
else
lngPageCur=clng(request.QueryString("PPs"))
end if
Load balance : Server 02
