调用两次sub有一个有用,怎么解决 - 编程论坛

index.asp中


两句
<% Call ShowPage( rs, Page ) %>

<% Call ShowPage( rs, Page ) %>
第一个有用可是第二个没用
下面是调用的sub

Sub ShowPage( rs, iPage )
  Response.Write("<table width=738> <tr> <td align=right class=main>")

  '显示第一页，如果当前页就是第一页，则不生成链接
  if iPage>1 then
    Response.Write "<A HREF=index.asp?Page=1>第一页</A>  "
  else
    Response.Write "第一页  "
  end if
  '显示上一页，如果不存在上一页，则不生成链接
  if iPage>1 then
    Response.Write "<A HREF=index.asp?Page=" & (iPage-1) & ">上一页</A>  "
  else
    Response.Write "上一页  "
  end if
  '显示下一页，如果不存在下一页，则不生成链接
  if iPage<>rs.PageCount Then
    Response.Write "<A HREF=index.asp?Page=" & (iPage+1) & ">下一页</A>  "
  else
    Response.Write "下一页  "
  end if
  '显示最后一页，如果当前页就是最后一页，则不生成链接
  if iPage <> rs.PageCount then
    Response.Write "<A HREF=index.asp?Page=" & rs.PageCount & ">最后一页</A>  "
  else
    Response.Write "最后一页  "
  end if

%>
<%=iPage%>/<%=rs.PageCount%>
 转到<input type="text" name="vpage" id="vpage" maxlength="5" value=<%=iPage%> style="font-size: 12px;border: 1px solid #CCCCCC;width:23px;" >页
<script  language="JavaScript" >
function jsgo() {
window.location.href = "index.asp?Page=" + document.getElementById("vpage").value;
}
</script >
<a href="#" onclick="javascript: jsgo();" >
<strong >GO </strong ></a > </td></tr></table>
  <% End Sub %>

代码是对的
望各位帮忙了