28,409
社区成员




function GetShowPageUrl(url,funpage)
dim HasPage,HasQueryString
HasQueryString=InStr(1,url,".asp?")
if HasQueryString <> 0 then'如果有字符串
HasPage=InStr(1,url,"&page=")
if HasPage=0 then HasPage=InStr(1,url,"?page=")
if HasPage=0 then'如果没有页数
GetShowPageUrl=url & "&page=" & funpage
else'如果已有页数
GetShowPageUrl=replace(url,"page=" & page,"page=" & funpage)
end if
else'如果没有字符串
GetShowPageUrl=url & "?page=" & funpage
end if
end function
分页的链接URL使用这样的函数就行了