"&VbCrLf
Response.Write ""&Languagech44&""&idcount&""&Languagech45&" "&Languagech46&"："&page&"/"&pagec&" "&Languagech47&"："&pages&""&Languagech45&"" & vbCrLf
pagenmin=page-pagenc
pagenmax=page+pagenc
if(pagenmin<1) then pagenmin=1
If ISHTML = 1 Then
If ID = "" Then
if(page>1) then response.write ("9 ")
Else
if(page>1) then response.write ("9 ")
End If
Else
if(page>1) then response.write ("9 ")
End If
if page-(pagenc*2+1)<=0 then
pageprevious=1
else
pageprevious=page-(pagenc*2+1)
end If
If ISHTML = 1 Then
If ID = "" Then
if(pagenmin>1) then response.write ("3 ")
Else
if(pagenmin>1) then response.write ("3 ")
End If
Else
if(pagenmin>1) then response.write ("3 ")
End If
if(pagenmax>pagec) then pagenmax=pagec
for i = pagenmin to pagenmax
if(i=page) then
response.write (" "& i &" ")
Else
If ISHTML = 1 Then
If ID = "" Then
response.write ("["& i &"]")
Else
response.write ("["& i &"]")
End If
Else
response.write ("["& i &"]")
End If
end if
next
if page+(pagenc*2+1)>=pagec then
pagenext=pagec
else
pagenext=page+(pagenc*2+1)
end If
If ISHTML = 1 Then
If ID = "" Then
if(pagenmax: ")
if(page:")
Else
if(pagenmax: ")
if(page:")
End If
Else
if(pagenmax: ")
if(page:")
End If
Response.Write "