<三> 和记录显示有关的客户端代码：

在 listrecordscon.inc 中增加了更多的控制


<script language="javascript">

var pagenum = <%=theCurrentPageNum%> ;

// 单击“选择本页所有记录”复选框时触发
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' && e.name !='chkallpage')
       e.checked = form.chkall.checked;
    }
  }

// 单击“选择本类所有记录”复选框时触发
function CheckAllPage(form)
{
    for (var i=0;i<form.elements.length;i++)
    {
        var e = form.elements[i];
        if (e.name != 'chkallpage')
            e.checked = form.chkallpage.checked;
    }
}

// 检查是否选择了记录
function checkbox(form)
{
    var theLength;
    var i,j;

    theLength = form.chk.length;
    i = 0;
    j = 0;

    while(i<theLength){
        if (form.chk[i].checked)
            j ++ ;
        i ++ ;
    }

    if (j==0 && !form.chk.checked){
        alert("请先选择记录");
        return false ;
    }
    return true ;
}

// 单击“删除”按钮时触发
function del(form)
{
    var classid;

    if (!checkbox(form)){
        return false;
    }
    else
        if (confirm('您确信要删除这些记录吗？')){
        <% if theQueryClass <> "" then %>
            // classid 在 query.inc 中的 for_query 表单中
            classid    = "?classid="+document.form_query.classid.value;
        <% else %>
            classid = "";
        <% end if %>
            // theActionScript 隐含域，在调用 listrecords() 函数时生成
            form.action = form.theActionScript.value + "_delete.asp"+classid;
            form.submit() ;
        }
}

var openwin_add ;
var init = "<%=theInit%>";

// 单击“添加”按钮时触发
function add(pn)
{
<% if theQueryClass <> "" then %>
    // classid 在 query.inc 中的 for_query 表单中
    // 自动选择当前类别
    classid    = "&classid="+document.form_query.classid.value;
<% else %>
    classid = "";
<% end if %>
    window.open('<%=theActionScript%>_edit.asp?pn='+pagenum+classid+'<%=theTableC