asp模仿 Lotus Notes 的介面程式
來源：互聯網
上載者：User
《%
'仿 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(iCount>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//此處產生關鍵字串，由於是字元型，故在每個關鍵字的兩側加了單引號，
//然後用逗號串連，如果是數字型，則不用單引號。
}
}
if(pKey!="")
{
