【图】asp模仿 Lotus Notes 的界面程序

<%
'仿 Lotus Notes 的界面程序
'作者：塞北的雪
'创作日期：2002年3月
'修改日期：2005年3月
'为了安全和共享的方便，将其中asp程序的标记改成中文字符，使用时可以批量替换回
%

<html
<head
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"
<style
.tHeader{font-weight:bold;background-color: #D0D0D0; color: #000000; border-left:

1 solid #FFFFFF; border-right: 1 solid #000000; border-top: 1 solid #FFFFFF;

border-bottom: 1 solid #000000}
.tHeaderPush{font-weight:bold;background-color: #D0D0D0; color: #000000; border: 1

solid #707070;}
</style
<title模仿Lotus Notes特效</title
<script language=javascript
     var yesH="√";    //选中后显示的标志
     var noH=' ';     //未选中时的某人显示
     var IfPush='no'; //移动鼠标选中的时候用于控制，'yes'表示鼠标已经按下，拖动有

效；'no'表示鼠标已经泰起来了，再移动鼠标已经没有作用了

var FI='yes'; //移动鼠标选中的时候用于控制，'yes'可以处理当前单元格，'no'

则不能处理
//默认为'yes'，当我们进入某个单元格区域，则处理他，然后改为

'no',则不再
//对该单元格处理，当离开单元格时又改为'yes',又可以处理下一

个进入的单元格

     //执行数据删除
     function delInfo(iCount)
     {
       var pKey=new String();
       if(iCount0)
       {
          for(var i=1;i<=iCount;i++)
          {
            if (document.getElementById("a" + i).innerText==yesH)
              {pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
              //此处生成关键字串，由于是字符型，故在每个关键字的两侧加了单引号，
              //然后用逗号连接，如果是数字型，则不用单引号。
          }
       }
       if(pKey!="")
       {
          pKey=pKey.substring(0,pKey.length-1);
          if(confirm("确定要删除选定的信息吗？"))
          {
              document.getElementById("delPkey").value=pKey;
              document.getElementById("delForm").submit();
          }
       }
     }

     //执行数据修改，无论选中多少，但只对第一个进行修改
     function editInfo(iCount)
     {
       var pKey=new String();
       if(iCount0)
       {
          for(var i=1;i<=iCount;i++)
          {
   &nb