ÎÒÏëÎÊÏ£¬ÔÚaspÖÐÕâ¶Îº¯ÊýʲôÒâ˼

Function listPages(LinkFile)
  if not (rs.eof and rs.bof) then
gopage=currentpage
totalpage=n
blockPage=Int((gopage-1)/10)*10+1

If LCase(Request.ServerVariables("HTTPS")) = "off" Then
    strTemp = "http://"
    Else
    strTemp = "https://"
    End If
    strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
    If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
    strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
    lenstrTemp=len(strTemp)+1
if instr(left(linkfile,lenstrTemp),"?")>0 then

if blockPage = 1 Then
Response.Write " <span disabled>¡¾¡ûÇ°10Ò³ </span>&nbsp;"
Else
Response.Write(" <span disabled>¡¾ </span> <a href=" & LinkFile & "&page="&blockPage-10&">¡ûÇ°10Ò³ </a>&nbsp;")
End If
  i=1
  Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
Response.Write(" <font color=#FF0000>[ <b>"&bloc