口袋西游小宇宙怎么进:ASP高手帮我看看这段分页代码哪里错了，怎么不显示呢

<%
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?sortid="&sortid&"&typeid="&typeid&">"
response.write "<p align='center'><font color='red'>"&typename&"</font>"
if CurrentPage<2 then
response.write "<table bgcolor=#ececec border=0 width=100% cellspacing=0 cellpadding=0>"
response.write "<tr height=20><td colspan=2></td></tr>"
response.write "<tr height=20>"
response.write "<td align=left valign=top>"
response.write "<font color=red><b>共"&n&"页 第"&CurrentPage&"页 "
response.write "共查询到"&totalnumber&" 种产品</b></font>"
response.write "</td>"
response.write "<td VALIGN=middle align=right >"
response.write "【最前页】【上一页】"
else
response.write "<table bgcolor=#ececec border=0 width=100% cellspacing=0 cellpadding=0>"
response.write "<tr height=20><td colspan=2></td></tr>"
response.write "<tr height=30>"
response.write "<td align=left VALIGN=top>"
response.write "<font color=red><b>共"&n&"页 第"&CurrentPage&"页 "
response.write "共查询到"&totalnumber&" 种产品</b></font>"
response.write "</td>"
response.write "<td VALIGN=center align=right >"
if (request("typeid"))<>0 then
response.write "【<a href="&filename&"?page=1&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">最前页</a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">上一页</a>】"
else
response.write "【<a href="&filename&"?page=1&sortid="&sortid&"&txtitle="&keyword&">最前页</a>】"
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&sortid="&sortid&"&txtitle="&keyword&">上一页</a>】"
end if
end if
if n-currentpage<1 then
response.write "【下一页】【最后页】"
else
if (request("typeid"))<>0 then
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">"
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&sortid="&sortid&"&typeid="&typeid&"&txtitle="&keyword&">最后页</a>】"
else
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&sortid="&sortid&"&txtitle="&keyword&">"
response.write "下一页</a>】【<a href="&filename&"?page="&n&"&sortid="&sortid&"&txtitle="&keyword&">最后页</a>】"
end if
end if
response.write "</form>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
end function
%>