<%
'Programa de interfaz que imita Lotus Notes
'Autor: Nieve en Saibei
'Fecha de creación: marzo de 2002
'Fecha de modificación: marzo de 2005
'Por motivos de seguridad y comodidad al compartir, las etiquetas del programa asp se cambian a caracteres chinos, que se pueden reemplazar en lotes durante el uso.
%>
<html>
<cabeza>
<meta http-equiv="Tipo de contenido" content="text/html; charset=gb2312">
<estilo>
.tHeader{font-weight:bold;fondo-color: #D0D0D0; color: #000000; borde izquierdo:
1 sólido #FFFFFF; 1 borde sólido #000000
; abajo: 1 sólido #000000}
.tHeaderPush{font-weight:bold;color de fondo: #D0D0D0; color: #000000; borde: 1
sólido #707070;}
</estilo>
<title>Imita los efectos especiales de Lotus Notes</title>
<lenguaje de escritura=javascript>
var yesH="√"; //La marca que se muestra después de la selección
var noH=' '; //Mostrar a alguien cuando no está seleccionado
var IfPush='no'; // Se usa para controlar cuando se mueve el mouse para seleccionarlo. 'yes' significa que se ha presionado el mouse y el arrastre
es efectivo
; 'no' significa que el mouse se ha empujado hacia arriba y se ha movido el mouse. El ratón nuevamente no tiene ningún efecto.
var FI='yes'; //Se usa para controlar cuando se mueve el mouse para seleccionar, 'sí' puede procesar la celda actual, 'no'
no.
//El valor predeterminado es "sí". Cuando ingresamos a un determinado rango de celdas, lo procesaremos y luego lo cambiaremos a
"no", y luego nada más.
// Procesa esta celda, cámbiala a 'sí' al salir de la celda y procesa
la siguiente
celda que ingresa.
//Realizar eliminación de datos
funcióndelInfo(iCount)
{
var pKey=nueva cadena();
si (iCount>0)
{
para(var i=1;i<=iCount;i++)
{
si (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
// La cadena de palabras clave se genera aquí. Dado que es un tipo de carácter, se agregan comillas simples en ambos lados de cada palabra clave.
// Luego conéctese con comas. Si es de tipo numérico, no se necesitan comillas simples.
}
}
si(pClave!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("¿Está seguro de que desea eliminar la información seleccionada?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
//Realiza modificación de datos, no importa cuántos estén seleccionados, pero solo modifica el primero
función editarInfo(iCount)
{
var pKey=nueva cadena();
si (iCount>0)
{
para(var i=1;i<=iCount;i++)
{
si (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
romper;}
}
}
si(pClave!="")
{
ventana.open("editinfo.asp?unid=" + pKey,"_blank");
// Ingrese aquí a la interfaz de límites para editar la información seleccionada. El código editinto.asp no está escrito.
}
}
función md()
{IfPush='sí';}
funciónmu()
{IfPush='no';}
//Arrastra para seleccionar
función Wr(quiénTd)
{
si (IfPush=='sí')
{
si (FI=='sí')
{FI='no';
si (quiénTd.innerText!=noH)
{quiénTd.innerText=noH;}
demás
{quiénTd.innerText=yesH;}
}
}
}
//Haga clic para seleccionar
función WRone(whoTd)
{
si (quiénTd.innerText!=noH)
{quiénTd.innerText=noH;}
demás
{quiénTd.innerText=yesH;}
}
</script>
</head>
<%
'Conectarse a la base de datos
Establecer db=Server.CreateObject("ADODB.Connection")
DBPath tenue
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
mmmm tenue
mmm="driver={Controlador de Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'Ejecutar eliminación
si solicitud("delPkey")<>"" entonces
Respuesta.Escribir "del:" y solicitud ("delPkey")
Respuesta.Solicitud de redireccionamiento.Variables del servidor("Path_info")
'El código aquí es redundante, pero puede evitar actualizar el mensaje. Puedes diseñar libremente el programa según tus necesidades.
terminar si
'Leer datos
establecer rs=Server.CreateObject("ADODB.Recordset")
rs.Abrir "seleccionar * de notas",db,3
%>
<cuerpo onmousedown="md();" onmouseup="mu();" oncontextmenu="return false"
ondragstart="return false" onselectstart="return false">
<br><br><br><div align=center>
<table border="1" reglas=ninguna frame=hsides cellpacing=0 cellpadding=0 width="90%">
<tr>
<td width="4%" bgcolor="#FFFFFF" style="cursor:mano" >
<table border="0" width="100%" cellspace="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">Título</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">Fecha</font></td>
</tr>
<%si rs.RecordCount>0 entonces
BGC="#DAF0FE"
Blanco=0
j=0
rs.MoveFirst
hacer mientras no 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>
<tipo de entrada="oculto" id="pKey<%=j%>" valor="
<%=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 entonces
BGC="#faaded"
blanco=1
demás
blanco=0
BGC="#DAF0FE"
terminar si
%>
</tr>
<%rs.MoverSiguiente
bucle
terminar si%>
</tabla>
</td>
</tr>
</tabla>
<br>
<%si rs.RecordCount>0 entonces%>
<tipo de entrada=nombre del botón="editinfo" valor="Modificar..."
onclick="editInfo('<%=rs.RecordCount%>');">
<tipo de entrada=nombre del botón="delinfo" valor="Eliminar..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%finalizar si%>
</div>
<div estilo='visibilidad:oculto;'>
<form método="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<tipo de entrada="oculto" id="delPkey" nombre="delPkey" valor="">
</formulario>
</div>
</cuerpo>
</html>