ASP实现的一个DataGrid类α版[1]

<%@language="vbscript" %>
<%option explicit %>
<\!--#include file="../includes/library.asp"-->
<\!--#include file="../includes/runtime.asp"-->
<\!--#include file="../manager/char.asp"-->
<\%=lan_gettext(session("userlanguage"),0)%>
<script>
function selectall(obj)
{
  var top=obj;
  while(true)
  {
     var top=top.parentelement;
  if(top==null)
  {
    break;
  }
  if(top=="undefined")
  {
    top=null;
    break;
  }
  if(top.tagname=="table")
  {
   break;
  }
  }
  var i;
  var j;
  if(top!=null)
  {
    for(i=0;i<top.rows.length;i++)
 {
      for(j=0;j<top.rows[i].cells[0].children.length;j++)
   {
       var temp=top.rows[i].cells[0].children[j];
    if(temp.tagname=="input")
    {
       if(temp.type=="checkbox")
    {
        temp.checked=obj.checked;
    }
    }
   }
 }
  }
}
</script>
<%
dim nbdg, errlog
set nbdg = new newsbriefdatagrid
dim pagestringtemplate, pagestringtemplate0, pagestringtemplateprevious0, pagestringtemplatenext0, pagestringtemplateprevious1, pagestringtemplatenext1

pagestringtemplate = "<table width=""100%""><tr><td width=""80%"">{0}</td><td>{1}</td></tr></table>"
pagestringtemplate0         = "合计<font color=""red"">{rowcount}</font>条记录第<font color=""red"">{currentpage}</font>页/合计<font color=""red"">{pagecount}</font>页"
pagestringtemplateprevious0  = "上一页&nbsp;"
pagestringtemplatenext0      = "下一页&nbsp;"
pagestringtemplateprevious1  = "<a href=""?page={previous}"">上一页</a>&nbsp;"
pagestringtemplatenext1      = "<a href=""?page={next}"">下一页</a>&nbsp;"

nbdg.listnewsbriefs response, pagestringtemplate, pagestringtemplate0, pagestringtemplateprevious0, pagestringtemplatenext0, pagestringtemplateprevious1, pagestringtemplatenext1, "page", -1, session("userlanguage"), errlog
%>

<%
class newsbriefdatagrid

'@param res response
'@param newstype 新闻类型
'@param languageid
'@errlog
public function listnewsbriefs(res, pagestringtemplate, pagestringtemplate0, pagestringtemplateprevious0, pagestringtemplatenext0, pagestringtemplateprevious1, pagestringtemplatenext1, page_param_name, newstype, lang, errlog)
  dim ret
  dim currentpage '当前页码，从1开始计数
  dim pagesize '页大小
  currentpage = request.querystring(page_param_name)
  if currentpage < 1 then
    currentpage = 1
  end if
  pagesize = 10
 
  '定义新闻操作句柄
  dim objnews
  set objnews = server.createobject("sanguinerecore.clsnews")
 
  dim count
  objnews.getnewscount count, -1, "zh_cn", errlog
  ret = ret & (page(pagestringtemplate, pagestringtemplate0, pagestringtemplateprevious0, pagestringtemplatenext0, pagestringtemplateprevious1, pagestringtemplatenext1, count, pagesize, page_param_name, currentpage))
 
  '获取新闻并打印
  dim rows
  dim isok
  'isok = objnews.getnewsbriefs(cint(startrow), cint(pagesize), newstype, rows, "0",errlog)
  isok = objnews.getnewsbriefs ((currentpage - 1) * pagesize, pagesize, newstype, rows, lang, errlog)
  'res.write(isok)
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  '' 一个使用数据网格的例子
  '' 下列属性为必选属性
  '' datasource   数据源
  '' rowcount     行数
  '' columncount  列数
  '' columns      列绑定
  '' headertexts  表头文本
  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  dim dg
  '初始化数据网格
  set dg = new datagrid
  '设置网格属性