请问如何修改下面的分页代码？

[xuewen]

<%
function pagelist(url,url2,pcount,curp,pnum) '(地址页面，地址参数，页面总数，当前页，显示的页面数)
if pcount > 1 then
prevpage=curp-1 '''''上一页
if prevpage<=0 then
prevpage=1
end if

nextpage=curp+1 '''''下一页
if nextpage>pcount then
nextpage=pcount
end if

pagenumber=cint(pnum) ''''''''''''设置每次显示的页数

if curp>pcount-pagenumber and pcount-pagenumber>0 then ''''''起始页
startpage =pcount -pagenumber
elseif curp>pcount-pagenumber and pcount-pagenumber<=0 then
startpage=1
else
startpage=curp
end if

if curp+pagenumber >pcount then '''''结束页
stoppage=pcount
else
stoppage=curp+pagenumber
end if


''''''显示分页信息'''''''''''''''
response.write"当前页："& curp &"/"&pcount&" "
response.write"<a href='"&url&"?page=1&"&url2&"' target='_parent' title='最前页'>|<</a> "
response.write"<a href='"&url&"?page="&prevpage&"&"&url2&"' target='_parent' title='前一页'><-</a>"
for k=startpage to stoppage
if k= cint(curpage) then
response.write" <font color=red >"&k&"</font> "
else
response.write" <a href='"&url&"?page="&k&"&"&url2&"' target='_parent' title='第"&k&"页'>"&k&"</a> "
end if
next
response.write"<a href='"&url&"?page="&nextpage&"&"&url2&"' target='_parent' title='后一页'>-></a> "
response.write"<a href='"&url&"?page="&pcount&"&"&url2&"' target='_parent' title='最后页'>>|</a>"
end if
end function

%>


<%call pagelist("1.asp","Tid="&Tid&"&key="&server.urlencode(key)&"",30,curpage,10)%>

请问如何修改。我的出现不了 不能像

http://www.helenlighting.com/lighting.asp?BigClassName=Old&SmallClassName=Pendant%20Lamps#slide_2

那样显示

[xuewen]

没有人会么？？？

[Macon8800]

paramestr获取参数
ScriptName获取页面地址
killparameter函数删除参数


paramestr=request.Form
if paramestr="" then
paramestr=request.QueryString
else
paramestr=paramestr&"&"&request.QueryString
end if
paramestr=killparameter(paramestr,"page")
paramestr=killparameter(paramestr,"Submit")
CurrentPage=cpage
MaxPages=maxpage
ScriptName = Request.Servervariables("script_name")





function killparameter(paramestr,kparamestr)
'功能：删除一个参数,参数类型 a=1&b=2&c=3....
paramestr=trimstr(paramestr,"&")
ins=instr(paramestr,kparamestr)
if ins=0 then
killparameter=paramestr
else
tempstr=mid(paramestr,ins)
ins2=instr(tempstr,"&")
if ins2=0 then
killparameter=trimstr(left(paramestr,ins-1),"&")
else
killparameter=trimstr(left(paramestr,ins-1)&mid(paramestr,ins+ins2),"&")
end if
end if
end function


function trimstr(str,tstr)
'功能：去除str两边的tstr
returnstr=""
tstrlen=len(tstr)
if left(str,tstrlen)=tstr then
returnstr=mid(str,tstrlen+1)
returnstr=trimstr(returnstr,tstr)
else
returnstr=str
end if
if right(returnstr,tstrlen)=tstr then
returnstr=left(returnstr,len(returnstr)-tstrlen)
returnstr=trimstr(returnstr,tstr)
end if
trimstr=returnstr
end function


例如:

Response.write "<a href='" & Scriptname & "?page=" &cstr(cpage-1) &"&"¶mestr&"' title='上一页'>上一页</a> "

[eafin]

Function?
Call?

<%call pagelist("1.asp","Tid="&Tid&"&key="&server.urlencode(key)&"",30,curpage,10)%>
-=>
<%=pagelist("1.asp","Tid="&Tid&"&key="&server.urlencode(key)&"",30,curpage,10)%>

[xuewen]

还是没有用。自己都用过的。

[Macon8800]

楼主 刚发给你的 可都是我一直在用的
是俺自己写的 绝对没问题的

[eafin]

报错?错误信息?
如果没有显示也不报错则把代码中的On Error Resume Next注释掉先...

[Macon8800]

楼主 刚发给你的 可都是我一直在用的
是俺自己写的 绝对没问题的

[xuewen]

Macon8800(火焰神) 你的不是我要的那种。还有 上面的代码楼上在本地运行以下就知道了

出现的情况是不能分下 10 页。和显示当前页