")
else
Response.Write ("[首页] [上一页]")
End If
If Page <> DPS_Rs.PageCount then
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=" & Page + 1 & """ title=""前进到" & Cstr(Page + 1) & "页"">下一页</a>] ")
Response.Write ("[" & "<a href=""" & URLs & "&" & InPutName & "=" & DPS_Rs.PageCount & """ title=""前进到最后一页"">尾页</a>] ")
else
Response.Write ("[下一页] [尾页]")
End If
Response.Write("&nbsp;&nbsp;<input name=" & InPutName & " type=text style=""text-align: center;"" id=" & InPutName & " value=" & Page & " size=6 maxlength=10 title=""请输入您想跳转到的页数"">&nbsp;<input name=topPage type=Submit value=跳页 title=""点击将跳转到您输入的页数"">")
Response.Write("</td></form></tr></table>")
End Function
%>
<script language="javascript1.2">
//#########################################################################################
//检测表单中的数据并只允许输入数字
function numericCheck(myform,myinput){
//设定要检查的表单对象名称
var nr1=eval("document."+myform+"."+myinput+".value;");
var flg=0;
var str="";
var spc=""
var arw="";
for (var i=0;i<nr1.length;i++){
var cmp="0123456789"
var tst=nr1.substring(i,i+1)
if (cmp.indexOf(tst)<0){
flg++;
tst=tst.replace(" ","[空格]")
str+="\n第"+(i+1)+"位的："+tst;
spc+=tst;
arw+="^";
}
else{
arw+="_";
}
}
if (flg!=0){
if (spc.indexOf("[空格]")>-1) {
str+="\n────────────────────────\n注意：空格被禁用！";
}
alert("这里只接受数字，发现 " + flg + " 个不可接受的字符，分别是:\n━━━━━━━━━━━━━━━━━━━━━━━━"+str);
return false;
}
}
//检测表单中的数据并只允许输入数字结束

//#########################################################################################
</script>

上一页  [1] [2] [3] 

在google里搜索更多一个超强通用的分页显示函数

	Web www.51ec.org

上一篇信息学院： 生成指定长度的随机字符串

下一篇信息学院： ASP函数集