ASP Paging Program Classic paging class

'==============================
' Function name: Showpagecode
' Function: Show page numbers
' Parameters: Link pageurl, current page nows, number of records Allcount, sizes per page, total pages allpage
'==============================
Public Function Showpagecode (pageurl,nows,allcount,sizes,allpage)
If nows>1 Then
Response.Write ("<a href=" "javascript:void (0);" "Onclick=" "setrcontent (' contentright ', '" &PageUrl& "1"); "" > First page </a> ")
Response.Write ("&nbsp;")
Response.Write ("<a href=" "javascript:void (0);" "Onclick=" "Setrcontent" (' Contentright ', ' "&PageUrl& ( Nows-1) & "');" " > Prev </a> ")
Else
Response.Write ("first page")
Response.Write ("&nbsp;")
Response.Write ("previous page")
End If
Response.Write ("&nbsp;")
If allpage>nows Then
Response.Write ("<a href=" "javascript:void (0);" "Onclick=" "Setrcontent" (' Contentright ', ' "&PageUrl& (Nows +1) & "" > next Page </a> ")
Response.Write ("&nbsp;")
Response.Write ("<a href=" "javascript:void (0);" "Onclick=" "Setrcontent" (' Contentright ', ' "&PageUrl& allpage& "');" " > Last </a> ")
Else
Response.Write ("next page")
Response.Write ("&nbsp;")
Response.Write ("Last")
End If
Response.Write ("&nbsp;") &Sizes& "article/page &nbsp; Total &AllPage&" page/"&AllCount&" Strip &nbsp; current Page "&Nows&" Page & nbsp; ")
Response.Write ("<select name=" "Change_page" "id=" "Change_page" "onchange=" "Setrcontent" (' Contentright ', ' "& pageurl& "' +this.options[this.selectedindex].value);" > ")
For I=1 to Allpage
If i=nows Then
Response.Write ("<option value=" "&i&" "selected=" "Selected" "> First" &i& "page </option>")
Else
Response.Write ("<option value=" "" &i& "" "> First" &i& "page </option>")
End If
Next
Response.Write ("</select>")
End Function