publics.asp

飞天论坛FTBBS PHP版 v4.1.ASP源代码

<SCRIPT LANGUAGE=JScript RUNAT=Server>
//功能		MultiPage	对RS进行分页
//输入		vrs			Recordset对象
//			Sql		
//			PagerNo		页数
//			PageSize	记录数量
//			Page		列表页面
//			cdt			查询条件
//			q			是否显示查询按钮（0否，1是）
//			d			是否显示删除按钮（0否，1是）
//返回		分页字符串
function MultiPage(vrs,Sql,PageNo,PageSize,page,cdt,addstring,q,t,d,p,c,k){
	var nStart=0;nEnd=0;
	try{
		vrs.open(Sql,dsnstr,3,1);
	}
	catch(e){
	response.write (sql);
	     Response.Write(e.description )
		 
		//Response.Redirect(Application("path") + "error/error.asp?id=11");
		//Response.Write(Application("path") + "err/error.asp?id=11")
		Response.End;
	}
	vrs.PageSize	=PageSize;
	var nPage		=parseInt(vrs.PageCount,10);
	var nCount		=parseInt(vrs.RecordCount,10);
	if(PageNo<1)
		PageNo=1;
	else if(PageNo>nPage)
		PageNo=nPage;
	if (!vrs.EOF){
		vrs.AbsolutePage=PageNo;
		nStart		=(PageNo-1)*PageSize+1;
		if (PageNo==nPage)
			nEnd	=nCount;
		else
			nEnd	=nStart+PageSize-1;
	}
	//分页联接
	var	str=""
	if(nPage>1){
		if(PageNo>1)
			str+="　<a href='' onclick=\"mPage(1);return false\">首页</a>　<a href='' onclick=\"mPage("+(PageNo-1)+");return false\">上页</a>　";
		else
			str+="";
		if(PageNo<nPage)
			str+="　<a href='' onclick=\"mPage("+(PageNo+1)+");return false\">下页</a>　<a href='' onclick=\"mPage("+nPage+");return false\">尾页</a>　";
		else
			str+="";
	}else{
		str+="";
	}
	str+="(共"+nCount+"条：当前显示"+nStart+"-"+nEnd+"条)";
	str+="(共"+nPage+"页：当前显示第"+PageNo+"页)";
	//end
	//工具栏表格
	var vTable=
	"<form method=post action=\""+page+"\">\n"+
	"<INPUT type=hidden name=cdt value=\""+cdt+"\">\n"+
	"<table border=1 width=600 height=18 cellspacing=0 cellpadding=2 bordercolor=#000000 bordercolordark=#ffffff>\n"+
	"<tr height=\"10\">\n"+
	"<td noWrap width=75% align=middle>"+str+
	"</td>\n"+
	"<td noWrap width=25% align=right>\n"+
	"\n<INPUT NAME=PageNo size=2 class=ibar>页\n"+
	"<INPUT TYPE=button value=\"转到\" class=tbar onclick=\"gPage()\">\n"+
	(q?"<INPUT type=button value=\"查询\" name=button1 class=tbar onclick=\"showbox()\">\n":"")+
	(t?"<INPUT type=button value=\"全选\" class=tbar name=button2 onclick=\"check("+rs.eof+")\">\n":"")+
	(d?"<INPUT type=button value=\"删除\" class=tbar name=button2 onclick=\"Del("+rs(0)+")\">\n":"")+
	(p?"<input type=button value=\"打印\" class=tbar name=button2 onclick=\"window.print()\">\n":"")+
	(c?"<input type=button value=\"返回\" class=tbar name=button2 onclick=\"window.history.back()\">\n":"")+
	(k?"<a href=\""+addstring+"\"><img src=\"../images/add.gif\" border=0></a>\n":"")+
	"&nbsp;</td>\n"+
	"</tr>\n"+
	"</table>\n"+
	"</form>";
	return vTable;
}
</SCRIPT>