<%
'Programa de interface imitando o Lotus Notes
'Autor: Neve em Saibei
'Data de criação: março de 2002
'Data de modificação: março de 2005
'Por uma questão de segurança e comodidade de compartilhamento, as tags do programa asp são alteradas para caracteres chineses, que podem ser substituídos em lotes durante o uso.
%>
<html>
<cabeça>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<estilo>
.tHeader{peso da fonte:bold;cor de fundo: #D0D0D0; cor da borda:
#
000000;
inferior: 1 sólido #000000}
.tHeaderPush{peso da fonte:bold;cor de fundo: #D0D0D0; cor: #000000; borda: 1
sólido #707070;}
</estilo>
<title>Imite efeitos especiais do Lotus Notes</title>
<linguagem de script=javascript>
var yesH="√"; //A marca exibida após a seleção
var noH=' ';/Mostra alguém quando não selecionado
var IfPush='no'; //Usado para controle ao mover o mouse para selecioná-lo. 'sim' significa que o mouse foi pressionado e arrastar
é efetivo
. 'não' significa que o mouse foi empurrado para cima e mover o mouse. mouse novamente não tem efeito.
var FI='yes'; //Usado para controle ao mover o mouse para selecionar, 'yes' pode processar a célula atual, 'no'
não pode.
//O padrão é 'sim' Quando inserimos um determinado intervalo de células, iremos processá-lo e depois alterá-lo para
'não' e não mais.
//Processa esta célula, altera para 'sim' ao sair da célula e processa
a próxima
célula que entra.
//Executa a exclusão dos dados
funçãodelInfo(iCount)
{
var pKey=nova String();
if(iCont>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//A string da palavra-chave é gerada aqui Como é um tipo de caractere, aspas simples são adicionadas em ambos os lados de cada palavra-chave.
//Em seguida, conecte com vírgulas. Se for um tipo numérico, não são necessárias aspas simples.
}
}
if(pKey!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("Tem certeza de que deseja excluir as informações selecionadas?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
//Executa a modificação dos dados, não importa quantos estejam selecionados, mas modifique apenas o primeiro
função editInfo(iCount)
{
var pKey=nova String();
if(iCont>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
quebrar;}
}
}
if(pKey!="")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
//Insira aqui a interface de limite para editar as informações selecionadas. O código editinto.asp não está escrito.
}
}
função md()
{IfPush='sim';}
funçãomu()
{IfPush='não';}
//Arraste para selecionar
função Wr(queTd)
{
if (IfPush=='sim')
{
se (FI=='sim')
{FI='não';
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
outro
{whoTd.innerText=simH;}
}
}
}
//Clique para selecionar
função WRone(whoTd)
{
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
outro
{whoTd.innerText=simH;}
}
</script>
</head>
<%
'Conecta ao banco de dados
Definir db=Server.CreateObject("ADODB.Connection")
escurecer DBPath
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
escurecer mmm
mmm="driver={Driver Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'Executar exclusão
if request("delPkey")<>""então
Response.Write "del:" & request("delPkey")
Response.Redirect Request.ServerVariables("Path_info")
'O código aqui é redundante, mas pode evitar a atualização do prompt. Você pode projetar livremente o programa de acordo com suas necessidades
end if
'Ler dados
definir rs=Server.CreateObject("ADODB.Recordset")
rs.Open "selecione * nas notas",db,3
%>
<body onmousedown="md();" onmouseup="mu();" oncontextmenu="return false"
ondragstart="return false" onselectstart="return false">
<br><br><br><div alinhamento=center>
<table border="1" regras=none frame=hsides cellpacing=0 cellpadding=0 width="90%">
<tr>
<td width="4%" bgcolor="#FFFFFF" style="cursor:mão" >
<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">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">Data</font></td>
</tr>
<%if rs.RecordCount>0 então
BGC="#DAF0FE"
Qual = 0
j=0
rs.MoveFirst
faça enquanto não 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>
<%
se Whi = 0 então
BGC="#faaded"
que = 1
outro
qual = 0
BGC="#DAF0FE"
terminar se
%>
</tr>
<%rs.MoveNext
laço
terminar se%>
</tabela>
</td>
</tr>
</tabela>
<br>
<%se rs.RecordCount>0 então%>
<input type=button name="editinfo" value="Modificar..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="Excluir..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%fim se%>
</div>
<div style='visibilidade:oculto;'>
<form method="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<input type="hidden" id="delPkey" name="delPkey" value="">
</form>
</div>
</body>
</html>