nextpage.asp

来自「不是我做的一个留言板」· ASP 代码 · 共 42 行

<%
function LastNextPage(pagecount,page,resultcount)
	Dim query, a, x, temp, p_ii
       page_web="5"
       page_on="3"
        p_iii="6"
	action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

	query = Split(Request.ServerVariables("QUERY_STRING"), "&")
	For Each x In query
	    a = Split(x, "=")
	    If StrComp(a(0), "page", vbTextCompare) <> 0 Then
	        temp = temp & a(0) & "=" & a(1) & "&"
	    End If
	Next
     

        Response.Write("<A HREF=" & action & "?" & temp & "Page=1><<-</A>" & vbCrLf)	
                
		p=page - page_on
                
		for i=0 to page_web
		     c=p + i
               	if c>0 and c<(pagecount+1) then
                     
                    	if c=page then
                       		f="<font color='#ff0000'>"
                                else
                            f="<font color='#'>"                     
                         	
                  	end if
		Response.Write("<A HREF=" & action & "?" & temp & "Page=" & c & ">" & f & "<" & c & "></font></A> " & vbCrLf)
             	end if
           
                 next
	
    Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">->></A>" & vbCrLf)			

	
    Response.Write " [ "&L_CLASScuntpage & pageCount & L_CLASScuntpage2 & "]"		
  end function
%>