<%
'Program antarmuka meniru Lotus Notes
'Penulis: Salju di Saibei
'Tanggal pembuatan: Maret 2002
'Tanggal modifikasi: Maret 2005
'Demi keamanan dan kenyamanan berbagi, tag program asp diubah menjadi karakter Cina, yang dapat diganti secara bertahap saat digunakan.
%>
<html>
<kepala>
<meta http-equiv="Jenis Konten" content="teks/html; charset=gb2312">
<gaya>
.tHeader{font-weight:bold;background-color: #D0D0D0; warna: #000000; batas-kiri:
1 batas #FFFFFF; batas-kanan: 1 batas-atas: 1 batas-batas #FFFFFF
; bawah: 1 padat #000000}
.tHeaderPush{font-weight:bold;background-color: #D0D0D0; warna: #000000; batas: 1
solid #707070;}
</gaya>
<title>Meniru efek khusus Lotus Notes</title>
<bahasa skrip=javascript>
var yesH="√"; //Tanda yang ditampilkan setelah pemilihan
var noH=' '; //Tampilkan seseorang ketika tidak dipilih
var IfPush='no'; //Digunakan untuk kontrol saat menggerakkan mouse untuk memilihnya. 'yes' berarti mouse telah ditekan dan drag
efektif
'no' berarti mouse telah didorong ke atas, dan menggerakkan mouse lagi tidak berpengaruh.
var FI='yes'; //Digunakan untuk kontrol saat menggerakkan mouse untuk memilih, 'yes' dapat memproses sel saat ini, 'no'
tidak bisa.
//Defaultnya adalah 'yes'. Saat kita memasukkan cell range tertentu, kita akan memprosesnya, lalu mengubahnya menjadi
'no', lalu tidak lagi.
//Proses sel ini, ubah menjadi 'yes' saat keluar dari sel, dan proses sel masuk
berikutnya
.
//Lakukan penghapusan data
fungsidelInfo(iCount)
{
var pKey=String baru();
jika(iHitungan>0)
{
untuk(var i=1;i<=iHitungan;i++)
{
if (dokumen.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//String kata kunci dihasilkan di sini. Karena ini adalah tipe karakter, tanda kutip tunggal ditambahkan di kedua sisi setiap kata kunci.
//Kemudian hubungkan dengan koma. Jika ini adalah tipe numerik, tidak diperlukan tanda kutip tunggal.
}
}
jika(pKey!="")
{
pKey=pKey.substring(0,pKey.panjang-1);
if(confirm("Apakah Anda yakin ingin menghapus informasi yang dipilih?"))
{
dokumen.getElementById("delPkey").value=pKey;
dokumen.getElementById("delForm").submit();
}
}
}
//Melakukan modifikasi data, tidak peduli berapa banyak yang dipilih, tetapi hanya memodifikasi yang pertama
fungsi editInfo(iCount)
{
var pKey=String baru();
jika(iHitungan>0)
{
untuk(var i=1;i<=iHitungan;i++)
{
if (dokumen.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).nilai;
merusak;}
}
}
jika(pKey!="")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
//Masuk ke antarmuka batas di sini untuk mengedit informasi yang dipilih. Kode editinto.asp tidak ditulis.
}
}
fungsi md()
{IfPush='ya';}
fungsimu()
{IfPush='tidak';}
//Seret untuk memilih
fungsi Wr(siapaTd)
{
jika (JikaPush=='ya')
{
jika (FI=='ya')
{ FI='tidak';
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
kalau tidak
{whoTd.innerText=yesH;}
}
}
}
//Klik untuk memilih
fungsi SALAH(siapaTd)
{
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
kalau tidak
{whoTd.innerText=yesH;}
}
</skrip>
</kepala>
<%
'Hubungkan ke basis data
Setel db=Server.CreateObject("ADODB.Connection")
redupkan DBPath
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
redup mmm
mmm="driver={Driver Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'Jalankan penghapusan
jika permintaan("delPkey")<>"" maka
Respon.Tulis "del:" & permintaan("delPkey")
Respons.Permintaan Pengalihan.ServerVariables("Path_info")
'Kode di sini berlebihan, tetapi dapat menghindari penyegaran prompt. Anda dapat dengan bebas mendesain program sesuai kebutuhan Anda
berakhir jika
'Baca data
set rs=Server.CreateObject("ADODB.Recordset")
rs.Buka "pilih * dari catatan",db,3
%>
<tubuh onmousedown="md();" onmouseup="mu();" oncontextmenu="kembalikan salah"
ondragstart="kembalikan salah" onselectstart="kembalikan salah">
<br><br><br><div align=tengah>
<tabel border="1" aturan=tidak ada bingkai=hsides spasi sel=0 cellpadding=0 lebar="90%">
<tr>
<td width="4%" bgcolor="#FFFFFF" style="kursor:tangan" >
<tabel 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">Judul</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">Tanggal</font></td>
</tr>
<%jika rs.RecordCount>0 lalu
BGC="#DAF0FE"
Yang = 0
j=0
rs.MoveFirst
lakukan selagi tidak rs.EOF
j=j+1%>
<tr>
<td align=center id="a<%=j%>"
onmouseover="Wr(ini);" onmouseout="javascrpt:FI='yes';"
onmousedown="WRone(ini);" 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("subjek")%></font>< /td>
<td id="c<%=j%>" bgcolor="<%=BGC%>"
align=center><font size="2"><%=rs("disptime")%></font> </td>
<%
jika Whi = 0 maka
BGC="#faaded"
yang = 1
kalau tidak
yang = 0
BGC="#DAF0FE"
berakhir jika
%>
</tr>
<%rs.MoveNext
lingkaran
berakhir jika%>
</tabel>
</td>
</tr>
</tabel>
<br>
<%jika rs.RecordCount>0 maka%>
<tipe input=nama tombol="editinfo" value="Ubah..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="Hapus..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%akhir jika%>
</div>
<div style='visibilitas:tersembunyi;'>
<form method="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<input type="tersembunyi" id="delPkey" name="delPkey" value="">
</bentuk>
</div>
</tubuh>
</html>