查看: 88|回复: 1

请帮忙看看这个分页代码的问题

[复制链接]

水乡渔夫

电梯直达

1^#

发表于 2010-1-10 23:21:14 | 只看该作者回帖奖励

|正序浏览 |阅读模式

显示搜索结果时，如果是两个关键词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

收藏0

使用道具举报

返回列表

		自动登录	找回密码
密码			注册