<%
'Schnittstellenprogramm, das Lotus Notes imitiert
'Autor: Schnee in Saibei
'Erstellungsdatum: März 2002
„Änderungsdatum: März 2005
„Aus Gründen der Sicherheit und des Komforts beim Teilen werden die Tags des ASP-Programms in chinesische Zeichen geändert, die während der Verwendung stapelweise ersetzt werden können.“
%>
<html>
<Kopf>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Stil>
.tHeader{font-weight:bold;background-color: #000000; border-left:
1
solid #FFFFFF; border-top: 1 solid #FFFFFF;
unten: 1 durchgehend #000000}
.tHeaderPush{font-weight:bold;background-color: #D0D0D0; border: 1
solid #707070;}
</style>
<title>Lotus Notes-Spezialeffekte imitieren</title>
<Skriptsprache=Javascript>
var yesH="√"; //Die nach der Auswahl angezeigte Markierung
var noH=''; //Jemanden anzeigen, wenn nicht ausgewählt
var IfPush='no'; //Wird zur Steuerung beim Bewegen der Maus verwendet, um sie auszuwählen. „Ja“ bedeutet, dass die Maus gedrückt wurde und das Ziehen
wirksam ist
Auch hier hat die Maus keine Auswirkung.
var FI='yes'; //Wird zur Steuerung beim Bewegen der Maus zum Auswählen verwendet. 'Ja' kann die aktuelle Zelle verarbeiten, 'Nein'
nicht.
//Der Standardwert ist „Ja“. Wenn wir einen bestimmten Zellbereich eingeben, verarbeiten wir ihn und ändern ihn dann in
„Nein“, dann nicht mehr.
//Diese Zelle verarbeiten, beim Verlassen der Zelle auf „Ja“ ändern und
die nächste
betretende Zelle verarbeiten .
//Datenlöschung durchführen
functiondelInfo(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 + "',")}
//Die Schlüsselwortzeichenfolge wird hier generiert. Da es sich um einen Zeichentyp handelt, werden auf beiden Seiten jedes Schlüsselworts einfache Anführungszeichen hinzugefügt.
//Dann mit Kommas verbinden. Wenn es sich um einen numerischen Typ handelt, sind keine einfachen Anführungszeichen erforderlich.
}
}
if(pKey!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("Sind Sie sicher, dass Sie die ausgewählten Informationen löschen möchten?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
// Führen Sie eine Datenänderung durch, egal wie viele ausgewählt sind, aber ändern Sie nur die erste
Funktion editInfo(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;
brechen;}
}
}
if(pKey!="")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
//Geben Sie hier die Grenzschnittstelle ein, um die ausgewählten Informationen zu bearbeiten. Der editinto.asp-Code wurde nicht geschrieben.
}
}
Funktion md()
{IfPush='yes';}
Funktionmu()
{IfPush='no';}
//Zum Auswählen ziehen
Funktion Wr(whoTd)
{
if (IfPush=='yes')
{
if (FI=='ja')
{ FI='nein';
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
anders
{whoTd.innerText=yesH;}
}
}
}
//Zum Auswählen anklicken
Funktion WRone(whoTd)
{
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
anders
{whoTd.innerText=yesH;}
}
</script>
</head>
<%
'Mit Datenbank verbinden
Setze db=Server.CreateObject("ADODB.Connection")
DBPath dimmen
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
schwach mmm
mmm="driver={Microsoft Access Driver (*.mdb)};dbq="& DBPath
db.Open mmm
'Löschen ausführen
if request("delPkey")<>"" then
Response.Write „del:“ & request(“delPkey“)
Response.Redirect Request.ServerVariables("Path_info")
„Der Code hier ist überflüssig, aber er kann die Aktualisierung der Eingabeaufforderung vermeiden.“ Sie können das Programm frei nach Ihren Bedürfnissen gestalten
end if
'Daten lesen
set rs=Server.CreateObject("ADODB.Recordset")
rs.Öffnen Sie „select * from NOTES“,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" Rules=none Frame=hsides Cellspacing=0 Cellpadding=0 Breite="90%">
<tr>
<td width="4%" bgcolor="#FFFFFF" style="cursor:hand" >
<table border="0" width="100%" cellpacing="0" cellpadding="0">
<tr><td class="tHeader"
onmousedown="javascript:this.className='tHeaderPush';"
onmouseup="javascript
:this.className='tHeader';" ;" > </td>
<td width="62%" onmousedown="javascript:this.className='tHeader';"
onmouseup
="javascript:this.className='tHeader';" class="tHeader" align="center"
><font size="2">Titel</font></td>
<td width="34%" onmousedown="javascript:this.className='tHeader';"
onmouseup
="javascript:this.className='tHeader';" class="tHeader" align="center"
><font size="2">Datum</font></td>
</tr>
<%if rs.RecordCount>0 dann
BGC="#DAF0FE"
Whi=0
j=0
rs.MoveFirst
tun, während nicht rs.EOF
j=j+1%>
<tr>
<td align=center id="a<%=j%>"
onmouseover="Wr(this);" onmouseout="javascrpt:FI='yes';"
onmousedown="WRone(this);" 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("subject")%></font>< /td>
<td id="c<%=j%>" bgcolor="<%=BGC%>"
align=center><font size="2"><%=rs("disptime")%></font> </td>
<%
wenn Whi=0 dann
BGC="#faaded"
whi=1
anders
whi=0
BGC="#DAF0FE"
Ende wenn
%>
</tr>
<%rs.MoveNext
Schleife
Ende, wenn%>
</table>
</td>
</tr>
</table>
<br>
<%if rs.RecordCount>0 then%>
<input type=button name="editinfo" value="Modify..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="Delete..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%end if%>
</div>
<div style='visibility:hidden;'>
<form method="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<input type="hidden" id="delPkey" name="delPkey" value="">
</form>
</div>
</body>
</html>