请帮忙看看这个分页代码的问题
显示搜索结果时，如果是两个关键词A B， 搜索结果第一页是没有问题的，地址栏是...keyword=A+B...但是翻页后，变成了keyword=A B， 所以就显示没有搜索到任何结果； 翻页代码如下：
'***********************************************
'函数名：JoinChar
'作 用：向地址中加入 ? 或 &
'参 数：strUrl ----网址
'返回值：加了 ? 或 & 的网址
'***********************************************
function JoinChar(strUrl)
if strUrl="" then
JoinChar=""
exit function
end if
if InStr(strUrl,"?") <len(strUrl) then
if InStr(strUrl,"?")>1 then
if InStr(strUrl,"&") <len(strUrl) then
JoinChar=strUrl & "&"
else
JoinChar=strUrl
end if
else
JoinChar=strUrl & "?"
end if
else
JoinChar=strUrl
end if
end function
'***********************************************
'过程名：showpage
'作 用：显示“上一页 下一页”等信息
'参 数：sfilename ----链接地址
' totalnumber ----总数量
' maxperpage ----每页数量
' ShowTotal ----是否显示总数量
' ShowAllPages ---是否用下拉列表显示所有页面以供跳转。有某些页面不能使用，否则会出现JS错误。
' strUnit ----计数单位
'***********************************************
sub showpage(sfilename,totalnumber,maxperpage,ShowTotal,ShowAllPages,strUnit)
dim n, i,strTemp,strUrl
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
strTemp= " <table align='center'> <form name='showpages' method='Post' action='" & sfilename & "'> <tr> <td>"
if ShowTotal=true then
strTemp=strTemp & "Total <b>" & totalnumber & " </b> " & strUnit & " "
end if
strUrl=JoinChar(sfilename)
if CurrentPage <2 then
strTemp=strTemp & "First Prev "
else
strTemp=strTemp & " <a href='" & strUrl & "page=1'>First </a> "
strTemp=strTemp & " <a href='" & strUrl & "page=" & (CurrentPage-1) & "'>Prev </a> "
end if
if n-currentpage <1 then
strTemp=strTemp & "Next Last"
else
strTemp=strTemp & " <a href='" & strUrl & "page=" & (CurrentPage+1) & "'>Next </a> "
strTemp=strTemp & " <a href='" & strUrl & "page=" & n & "'>Last </a>"
end if
strTemp=strTemp & " Pages: <strong> <font color=red>" & CurrentPage & " </font>/" & n & " </strong>Page "
strTemp=strTemp & " <b>" & maxperpage & " </b>" & strUnit & "/Page"
if ShowAllPages=True then
strTemp=strTemp & " Go to: <select name='page' size='1'>"
for i = 1 to n
strTemp=strTemp & " <option value='" & i & "'"
if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected "
strTemp=strTemp & ">Page" & i & " </option>"
next
strTemp=strTemp & " </select>"
end if
strTemp=strTemp & " </td> </tr> </form> </table>"
response.write strTemp
end sub
