调用两次sub有一个有用,怎么解决
index.asp中<!-- #include file="show.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 %>
代码是对的
望各位帮忙了
