UC知道ASP一行两列,高手帮我改下,急,谢谢!
来源：百度知道 编辑：UC知道 时间：2024/06/14 17:58:54
<%
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=2 then
response.Write(PrevSectionText & " ")
else
response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section-1 & "'>" & PrevSectionText & "</a> ")
end if
'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("<strong>[" & p & "]</strong> ")
else
response.Write("<a href='" & strPageUrl & "&page=" & p & "§ion="
'计算每一段的开始页
intStarPage=(Section-2) * intSectionSize + 1
'前一段
if Section<=2 then
response.Write(PrevSectionText & " ")
else
response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "§ion=" & Section-1 & "'>" & PrevSectionText & "</a> ")
end if
'显示页码列表
response.Write("第")
intStarPage=(Section-1) * intSectionSize + 1
for p=intStarPage to intStarPage + intSectionSize - 1
if p > intPageCount then exit for
if p=page then
response.Write("<strong>[" & p & "]</strong> ")
else
response.Write("<a href='" & strPageUrl & "&page=" & p & "§ion="
起码要写全点嘛比如：
dim Section,intSectionSize,intStarPage,strPageUrl
dim PrevSectionText,p,intPageCount,intSectionCount
dim NextSectionText
Section=
intSectionSize=
intStarPage =
intStarPage=
PrevSectionText="goodluck"
…………
要不一运行就是显示：
第页