-
'โปรแกรมอินเทอร์เฟซเลียนแบบ Lotus Notes
ผู้เขียน: หิมะใน Saibei
วันที่สร้าง: มีนาคม 2545
'วันที่แก้ไข: มีนาคม 2548
'เพื่อความปลอดภัยและความสะดวกในการแบ่งปัน แท็กของโปรแกรม asp จะถูกเปลี่ยนเป็นตัวอักษรจีน ซึ่งสามารถแทนที่เป็นกลุ่มๆ ในระหว่างการใช้งาน'
%>
<html>
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<สไตล์>
.tHeader{font-weight:bold;สีพื้นหลัง: #D0D0D0; color: #000000; border-left:
;
border-right: 1 solid #000000;
ด้านล่าง: 1 ทึบ #000000}
.tHeaderPush{font-weight:bold;พื้นหลัง-สี: #D0D0D0; สี: #000000; เส้นขอบ: 1
ทึบ #707070;}
</สไตล์>
<title>เลียนแบบเอฟเฟกต์พิเศษของ Lotus Notes</title>
<ภาษาสคริปต์=จาวาสคริปต์>
var yesH="√"; //เครื่องหมายที่แสดงหลังจากเลือก
var noH=' '; //แสดงบางคนเมื่อไม่ได้เลือก
var IfPush='no'; //ใช้สำหรับควบคุมเมื่อเลื่อนเมาส์เพื่อเลือก 'ใช่' หมายความว่าเมาส์ถูกกดและลาก
ได้ผล
'no' หมายความว่าเมาส์ถูกดันขึ้น และเลื่อน เมาส์อีกครั้งไม่มีผล
var FI='yes'; //ใช้สำหรับควบคุมเมื่อเลื่อนเมาส์เพื่อเลือก 'yes' สามารถประมวลผลเซลล์ปัจจุบันได้ 'no'
ไม่สามารถดำเนินการได้
//ค่าเริ่มต้นคือ 'ใช่' เมื่อเราป้อนช่วงเซลล์ที่กำหนด เราจะประมวลผล จากนั้นเปลี่ยนเป็น
'ไม่' จากนั้นจะไม่อีกต่อไป
//ประมวลผลเซลล์นี้ เปลี่ยนเป็น 'ใช่' เมื่อออกจากเซลล์ และประมวลผลเซลล์ที่ป้อน
ถัดไป
//ดำเนินการลบข้อมูล
ฟังก์ชั่นเดลอินโฟ (iCount)
-
var pKey=สตริงใหม่();
ถ้า(iCount>0)
-
สำหรับ(var i=1;i<=iCount;i++)
-
ถ้า (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//สตริงคำหลักถูกสร้างขึ้นที่นี่ เนื่องจากเป็นประเภทอักขระ เครื่องหมายคำพูดเดี่ยวจึงถูกเพิ่มทั้งสองด้านของคำหลักแต่ละคำ
//จากนั้นเชื่อมต่อด้วยเครื่องหมายจุลภาค หากเป็นประเภทตัวเลข ไม่ต้องใช้เครื่องหมายคำพูดเดี่ยวๆ
-
-
ถ้า(pKey!="")
-
pKey=pKey.substring(0,pKey.length-1);
if(confirm("คุณแน่ใจหรือไม่ว่าต้องการลบข้อมูลที่เลือก?"))
-
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").ส่ง();
-
-
-
//ทำการแก้ไขข้อมูลไม่ว่าจะเลือกจำนวนเท่าใดก็ตาม แต่แก้ไขเฉพาะอันแรกเท่านั้น
ฟังก์ชั่น editInfo (iCount)
-
var pKey=สตริงใหม่();
ถ้า(iCount>0)
-
สำหรับ(var i=1;i<=iCount;i++)
-
ถ้า (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
หยุดพัก;}
-
-
ถ้า(pKey!="")
-
window.open("editinfo.asp?unid=" + pKey,"_blank");
//ป้อนอินเทอร์เฟซขอบเขตที่นี่เพื่อแก้ไขข้อมูลที่เลือก ไม่ได้เขียนโค้ด editinto.asp
-
-
ฟังก์ชันเอ็มดี()
{IfPush='ใช่';}
ฟังก์ชั่นมู()
{IfPush='no';}
//ลากเพื่อเลือก
ฟังก์ชั่น 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;}
-
</สคริปต์>
</หัว>
-
'เชื่อมต่อกับฐานข้อมูล
ตั้งค่า db=Server.CreateObject("ADODB.Connection")
DBPath สลัว
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
สลัว อืม
mmm="driver={ไดรเวอร์ Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'ดำเนินการลบ
ถ้า request("delPkey"<>"" แล้ว
การตอบสนองเขียน "del:" & คำขอ ("delPkey")
Response.Redirect Request.ServerVariables ("Path_info")
'โค้ดที่นี่ซ้ำซ้อน แต่สามารถหลีกเลี่ยงการรีเฟรชข้อความแจ้งได้ คุณสามารถออกแบบโปรแกรมได้อย่างอิสระตามความต้องการของคุณ
สิ้นสุดถ้า
'อ่านข้อมูล
ตั้งค่า rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from note",db,3
%>
<body onmousedown="md();" onmouseup="mu();" oncontextmenu="return false"
ondragstart="return false" onselectstart="return false">
<br><br><br><div align=center>
<table border="1" กฎ=ไม่มี frame=hsides cellspacing=0 cellpadding=0 width="90%">
<tr>
<td width="4%" bgcolor="#FFFFFF" style="cursor:hand" >
<table border="0" width="100%" cellspacing="0" cellpadding="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>
<%ถ้า rs.RecordCount>0 แล้ว
BGC="#DAF0FE"
วิ=0
เจ=0
rs.MoveFirst
ทำในขณะที่ไม่ใช่ rs.EOF
เจ=เจ+1%>
<tr>
<td align=center id="a<%=j%>"
onmouseover="Wr(this);" onmouseout="javascrpt:FI='yes';"
onmousedown="WRone(นี่);" FFFFE8">
<p align="center"> </p>
</td>
<input type="hidden" id="pKey<%=j%>" value="
<%=rs("unid")%>">
<td id="b<%=j%>"
bgcolor="<%=BGC%>"><font size="2"> <%=rs("เรื่อง")%></font>< /td>
<td id="c<%=j%>" bgcolor="<%=BGC%>"
align=center><font size="2"><%=rs("disptime")%></font> </td>
-
ถ้า Whi=0 แล้ว
BGC="#faaded"
ซึ่ง=1
อื่น
ซึ่ง=0
BGC="#DAF0FE"
สิ้นสุดถ้า
-
</tr>
<%rs.MoveNext
วนซ้ำ
สิ้นสุดถ้า%>
</ตาราง>
</td>
</tr>
</ตาราง>
<br>
<%ถ้า 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")%
>">
<input type="hidden" id="delPkey" name="delPkey" value="">
</แบบฟอร์ม>
</div>
</ร่างกาย>
</html>