<%
'Programme d'interface imitant Lotus Notes
'Auteur : Neige à Saibei
'Date de création : mars 2002
'Date de modification : mars 2005
« Pour des raisons de sécurité et de commodité de partage, les balises du programme asp sont remplacées par des caractères chinois, qui peuvent être remplacés par lots pendant l'utilisation.
%>
<html>
<tête>
<méta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
.tHeader{font-weight:bold;background-color: #D0D0D0; couleur: #000000; bordure-gauche:
1
solide #FFFFFF; bordure-droite: 1 solide #000000;
en bas : 1 solide #000000}
.tHeaderPush{font-weight:bold;background-color: #D0D0D0; couleur: #000000; bordure: 1
solide #707070;}
</style>
<title>Imiter les effets spéciaux de Lotus Notes</title>
<langage de script=javascript>
var yesH="√"; //La marque affichée après sélection
var noH=' '; //Afficher quelqu'un lorsqu'il n'est pas sélectionné
var IfPush='no'; //Utilisé pour le contrôle lors du déplacement de la souris pour la sélectionner. 'oui' signifie que la souris a été enfoncée et le glissement
est efficace
; 'non' signifie que la souris a été poussée vers le haut et que le déplacement est effectué. la souris n'a à nouveau aucun effet.
var FI='yes'; //Utilisé pour le contrôle lors du déplacement de la souris pour sélectionner, 'oui' peut traiter la cellule actuelle, 'non'
ne le peut pas.
// La valeur par défaut est « oui ». Lorsque nous entrons dans une certaine plage de cellules, nous la traiterons, puis la changerons en
« non », puis plus rien.
// Traitez cette cellule, changez-la en « oui » lorsque vous quittez la cellule et traitez
la cellule entrante suivante
.
//Effectuer la suppression des données
fonctiondelInfo(iCount)
{
var pKey=nouvelle chaîne();
si (iCount>0)
{
pour(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//La chaîne de mot-clé est générée ici. Puisqu'il s'agit d'un type de caractère, des guillemets simples sont ajoutés des deux côtés de chaque mot-clé.
// Ensuite, connectez-vous avec des virgules. S'il s'agit d'un type numérique, aucun guillemet simple n'est nécessaire.
}
}
si(pClé!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("Êtes-vous sûr de vouloir supprimer les informations sélectionnées ?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
//Effectuer la modification des données, quel que soit le nombre sélectionné, mais modifier uniquement la première
fonction editInfo(iCount)
{
var pKey=nouvelle chaîne();
si (iCount>0)
{
pour(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
casser;}
}
}
si(pClé!="")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
//Entrez ici l'interface de limite pour modifier les informations sélectionnées. Le code editinto.asp n’est pas écrit.
}
}
fonction md()
{IfPush='oui';}
fonctionmu()
{IfPush='non';}
//Faites glisser pour sélectionner
fonction Wr(whoTd)
{
si (IfPush=='oui')
{
si (FI=='oui')
{ FI='non';
si (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
autre
{whoTd.innerText=ouiH;}
}
}
}
//Cliquez pour sélectionner
fonction WRone(whoTd)
{
si (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
autre
{whoTd.innerText=ouiH;}
}
</script>
</head>
<%
'Se connecter à la base de données
Définir db=Server.CreateObject("ADODB.Connection")
atténué le chemin de base de données
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
faible mmm
mmm="driver={Pilote Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'Exécuter la suppression
si request("delPkey")<>"" alors
Réponse.Écrivez "del:" et request("delPkey")
Réponse.Redirect Request.ServerVariables("Path_info")
« Le code ici est redondant, mais il peut éviter d'actualiser l'invite. Vous pouvez librement concevoir le programme en fonction de vos besoins
terminer si
'Lire les données
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "sélectionner * dans les 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 cellpacing=0 cellpadding=0 width="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';"
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">Titre</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">Date</font></td>
</tr>
<%if rs.RecordCount>0 alors
BGC="#DAF0FE"
Whi=0
j=0
rs.MoveFirst
faire sans 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>
<%
si Whi=0 alors
BGC="#faadé"
qui = 1
autre
qui=0
BGC="#DAF0FE"
finir si
%>
</tr>
<%rs.MoveNext
boucle
terminer si%>
</table>
</td>
</tr>
</table>
<br>
<%if rs.RecordCount>0 alors%>
<input type=button name="editinfo" value="Modifier..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="Supprimer..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%end if%>
</div>
<div style='visibilité:caché;'>
<form method="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<input type="hidden" id="delPkey" name="delPkey" value="">
</form>
</div>
</corps>
</html>