超酷的通用分页显示控制 （五） 添加、删除、修改记录、类别设置（下）

【网学提醒】：本文主要为网上学习者提供超酷的通用分页显示控制 （五） 添加、删除、修改记录、类别设置（下），希望对需要超酷的通用分页显示控制 （五） 添加、删除、修改记录、类别设置（下）网友有所帮助，学习一下吧!

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

在 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+'<％=theTableClassStr％>'+init, '', 'width=<％=theWinW％>,height=<％=theWinH％>,resizable=0,scrollbars=yes');

}

var openwin_edit;
function edit(id,pn)
{
    window.open('<％=theActionScript％>_edit.asp?id='+id+"&pn="+pagenum+'<％=theTableClassStr％>', '', 'width=<％=theWinW％>,height=<％=theWinH％>,resizable=0,scrollbars=yes');
}

var openwin_view;
function view(id,pn)
{
    window.open('<％=theActionScript％>_view.asp?id='+id+"&pn="+pagenum+'<％=theTableClassStr％>', '', 'width=<％=theWinW％>,height=<％=theWinH+12％>,resizable=0,scrollbars=yes');
}

// 如果有类别，则提供类别设置

<％ if theQueryClass <> "" then ％>

var openwin_cls;
function set_class(pn)
{
window.open('../asp/setclass.asp?parentwinpn='+pagenum+'&tableclass=<％=theQueryClass％>', '', 'width=<％=theWinW_cls％>,height=<％=theWinH_cls％>,resizable=0,scrollbars=no');
}

<％ end if ％>

</script>

<％
' 显示全选项和“删除”按钮
if theRsCount > 0 then
    if theQueryClass <> "" then uClass = "本类" else uClass = ""
    ％>
    <input type="checkbox" id="id_chkall" name="chkall" value="1" ><label for="id_chkall">选择本页所有记录</label>　
    <％
    ' 如果不想显示“类别设置”按钮，则可以通过设置 theListClass = 0 来屏蔽
    if theListClass = 0 then
    else ％>
    <input type="checkbox" id="id_chkallpage" name="chkallpage" value="1" ><label for="id_chkallpage">选择<％=uClass％>所有记录</label>　
    <％ end if ％>
    <input type="button" name="delrec" value="删除记录" class="form_button">
    <％