(是hsearch.asp和research.asp两文件的压缩文件)
这是一个查询页面（hsearch.asp）的结果显示页面（research.asp）的一段代码，应该正常显示“ 首页 上一页 下一页 尾页 ”，可是却显示“首页 上一页 &sz=1 >下一页 &sz=1 >尾页”（1为我所付的值），当点击连接时就出错。请各位大师帮忙，谢谢！


//取得hsearch.asp页面的值
<%
dim luoji,xm1,ys1,sz,xm2,ys2,sz2
xm2=request("xm2")
ys2=request("ys2")
sz2=request("sz2")
luoji=request("luoji")
xm1=request("xm1")
ys1=request("ys1")
sz=request("sz")
%>

//一段查询语句
已证明无问题，略。

//分页程序
          <%  
  
                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&"?xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&">"  
                Response.Write "<p align='center' class='contents'> "  
                If CurrentPage<2 Then  
                    Response.Write "<font class='contents'>首页 上一页</font> "  
                Else  
                    Response.Write "<a href="&filename&"?page=1&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&">首页</a> "  
                    Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&" >上一页</a> "  
                End If
                
                If n-currentpage<1 Then  
                    Response.Write "<font class='contents'>下一页 尾页</font>"  
                Else  
                    Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&" >"  
                    Response.Write "下一页</a> <a href="&filename&"?page="&n&"&xm2="&xm2&"&ys2="&ys2&"&sz2="&sz2&"&luoji="&luoji&"&xm1="&xm1&"&ys1="&ys1&"&sz="&sz&" >尾页</a>"  
                End If  
                    Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "  
                    Response.Write "<font class='contents' color='#0000FF'> 共查询到"&totalnumber&"条记录。</font> "
                    Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">"  
                    Response.Write "&nbsp;<input type='submit'  class='contents' value='GO' name='cndok'></form>"  
                End Function  
            %>
请看下面两张截图：
第一张为查询界面，


第二张为查询结果


[[it] 本帖最后由 sftc168 于 2008-11-19 00:29 编辑 [/it]]