<%
'واجهة برنامج تقليد لوتس نوتس
المؤلف: الثلوج في سايبي
"تاريخ الإنشاء: مارس 2002."
"تاريخ التعديل: مارس 2005."
'من أجل الأمان وسهولة المشاركة، يتم تغيير علامات برنامج asp إلى أحرف صينية، والتي يمكن استبدالها على دفعات أثناء الاستخدام.
%>
<أتش تي أم أل
>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<نمط>
.tHeader{font-weight:bold;background-color: #
D0D0D0
;
الأسفل: 1 صلب #000000}
.tHeaderPush{font-weight:bold;background-color: #D0D0D0; اللون: #000000; الحدود: 1
صلب #707070;}
</نمط>
<title>تقليد مؤثرات Lotus Notes الخاصة</title>
<لغة البرنامج النصي=جافا سكريبت>
var YesH="√"; // العلامة المعروضة بعد التحديد
var noH=' '; //إظهار شخص ما عند عدم تحديده
var IfPush='no'; // يستخدم للتحكم عند تحريك الماوس لتحديده. "نعم" يعني أنه تم الضغط على الماوس وأن السحب
فعال
؛ "لا" يعني أنه تم دفع الماوس لأعلى، وتحريك الماوس الماوس مرة أخرى ليس له أي تأثير.
var FI='yes'; // يستخدم للتحكم عند تحريك الماوس للاختيار، يمكن لـ "yes" معالجة الخلية الحالية، ولا
يمكن لـ "no".
// الافتراضي هو "نعم". عندما ندخل إلى نطاق معين من الخلايا، سنقوم بمعالجته، ثم نغيره إلى
"لا"، ثم لا أكثر.
// معالجة هذه الخلية، وتغييرها إلى "نعم" عند مغادرة الخلية، ومعالجة الخلية المدخلة
التالية
.
// إجراء حذف البيانات
وظيفةdelInfo(iCount)
{
var pKey=new String();
إذا (إيكونت>0)
{
ل(فار ط=1;أنا<=iCount;i++)
{
إذا (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
// يتم إنشاء سلسلة الكلمات الرئيسية هنا نظرًا لأنها نوع أحرف، تتم إضافة علامات الاقتباس المفردة على جانبي كل كلمة رئيسية.
// ثم اتصل بفواصل إذا كان نوعًا رقميًا، فلا حاجة إلى علامات اقتباس مفردة.
}
}
إذا (pKey! = "")
{
pKey=pKey.substring(0,pKey.length-1);
إذا (تأكيد ("هل أنت متأكد من رغبتك في حذف المعلومات المحددة؟"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
// قم بإجراء تعديل البيانات، بغض النظر عن عدد البيانات المحددة، ولكن قم بتعديل البيانات الأولى فقط
وظيفة تحرير المعلومات (iCount)
{
var pKey=new String();
إذا (إيكونت>0)
{
ل(فار ط=1;أنا<=iCount;i++)
{
إذا (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
استراحة؛}
}
}
إذا (pKey! = "")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
// أدخل هنا واجهة الحدود لتحرير المعلومات المحددة. لم يتم كتابة التعليمات البرمجية Editinto.asp.
}
}
وظيفة MD ()
{IfPush='نعم';}
وظيفةمو ()
{IfPush='لا';}
// اسحب للاختيار
الدالة Wr(whoTd)
{
إذا (IfPush=='نعم')
{
إذا (FI=='نعم')
{FI='لا';
إذا (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
آخر
{whoTd.innerText=yesH;}
}
}
}
//انقر للتحديد
الدالة WRone(whoTd)
{
إذا (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
آخر
{whoTd.innerText=yesH;}
}
</script>
</head>
<%
'الاتصال بقاعدة البيانات
تعيين db=Server.CreateObject("ADODB.Connection")
خافت DBPath
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
خافت ط ط ط
mmm="driver={برنامج تشغيل Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'تنفيذ الحذف
إذا كان الطلب ("delPkey")<>"" إذن
الاستجابة.اكتب "del:" وطلب ("delPkey")
Response.Redirect Request.ServerVariables("Path_info")
'الكود هنا زائد عن الحاجة، لكنه يمكن أن يتجنب تحديث المطالبة. يمكنك تصميم البرنامج بحرية حسب احتياجاتك
إنهاء إذا
'قراءة البيانات
مجموعة rs=Server.CreateObject("ADODB.Recordset")
rs.Open "اختر * من الملاحظات"،db,3
%>
<body onmousedown = "md ()؛" onmouseup = "mu ()؛" oncontextmenu = "return false"
ondragstart = "return false" onselectstart = "return false">
<br><br><br><div align=center>
<حدود الجدول = "1" القواعد = لا يوجد إطار = تباعد الخلايا hsides = 0 خلية الحشو = 0 العرض = "90٪">
<تر>
<td width="4%" bgcolor="#FFFFFF" style="cursor:hand" >
<حدود الجدول = "0" العرض = "100%" تباعد الخلايا = "0" خلية الحشو = "0">
<tr><td class="tHeader"
onmousedown="javascript:this.className='tHeaderPush';"
onmouseup="javascript:this.className='tHeader';"
onmouseout="javascript:this.className='tHeader' ;"> </td>
<td width="62%" onmousedown="javascript:this.className='tHeaderPush';"
onmouseup="javascript:this.className='tHeader';"
onmouseout="javascript:this.className='tHeader';" class="tHeader" align="center"
><font size="2">العنوان</font></td>
<td width="34%" onmousedown="javascript:this.className='tHeaderPush';"
onmouseup="javascript:this.className='tHeader';"
onmouseout="javascript:this.className='tHeader';" class="tHeader" align="center"
><font size="2">التاريخ</font></td>
</tr>
<%if rs.RecordCount>0 ثم
بي جي سي = "#DAF0FE"
وايت=0
ي=0
rs.MoveFirst
تفعل في حين لا rs.EOF
ي=ي+1%>
<تر>
<td align=center id="a<%=j%>"
onmouseover="Wr(this);" onmouseout="javascrpt:FI='yes';"
onmousedown="WRone(this);" FFFE8">
<p align="center"> </p>
</TD>
<input type="hidden" id="pKey<%=j%>" value="
<%=rs("unid")%>">
<td id="b<%=j%>"
bgcolor="<%=BGC%>"><font size="2"> <%=rs("subject")%></font>< / تد>
<td id="c<%=j%>" bgcolor="<%=BGC%>"
align=center><font size="2"><%=rs("disptime")%></font> </TD>
<%
إذا Whi = 0 ثم
BGC = "#faaded"
واي = 1
آخر
واي = 0
بي جي سي = "#DAF0FE"
نهاية إذا
%>
</tr>
<%rs.MoveNext
حلقة
نهاية إذا٪>
</الجدول>
</TD>
</tr>
</الجدول>
<ر>
<%if rs.RecordCount>0 ثم%>
<input type=button name="editinfo" value="Modify..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="Delete..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%نهاية إذا%>
</div>
<div style='visibility:hidden;'>
<form Method="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<نوع الإدخال = "مخفي" id = "delPkey" name = "delPkey" value = "">
</النموذج>
</div>
</الجسم>
</html>