ASP实现的一个DataGrid类α版

<VBSCRIPT'%@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