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
