<%
'Программа интерфейса, имитирующая Lotus Notes
'Автор: Снег в Сайбэе
'Дата создания: март 2002 г.
'Дата изменения: март 2005 г.
'В целях безопасности и удобства обмена теги программы asp изменены на китайские иероглифы, которые можно пакетно заменять в процессе использования.
%>
<html>
<голова>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<стиль>
.tHeader{font-weight:bold;background-color: #D0D0D0; color: #000000; левая граница:
1
сплошная #FFFFFF; правая граница: 1 сплошная #000000; граница-верхняя: 1 сплошная #FFFFFF;
внизу: 1 сплошной #000000}
.tHeaderPush{font-weight:bold;цвет фона: #D0D0D0; цвет: #000000; граница: 1
сплошной #707070;}
</стиль>
<title>Имитировать специальные эффекты Lotus Notes</title>
<язык сценария=javascript>
var yesH="√" //Отметка, отображаемая после выбора
var noH=' '; //Показать кого-то, если он не выбран
var IfPush='no'; //Используется для управления при перемещении мыши для выбора. «Да» означает, что мышь была нажата и перетаскивание
эффективно
; «Нет» означает, что мышь была нажата и перемещена. мышь снова не имеет никакого эффекта.
var FI='yes'; //Используется для управления при перемещении мыши для выбора: "да" может обрабатывать текущую ячейку, "нет"
- нет.
//По умолчанию установлено «да». Когда мы вводим определенный диапазон ячеек, мы его обрабатываем, а затем меняем на
«нет», и больше ничего.
//Обрабатываем эту ячейку, меняем ее на «да» при выходе из ячейки и обрабатываем
следующую
входящую ячейку.
//Выполняем удаление данных
функцияdelInfo(iCount)
{
вар pKey = новая строка ();
если(iCount>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//Здесь генерируется строка ключевого слова. Поскольку это символьный тип, с обеих сторон каждого ключевого слова добавляются одинарные кавычки.
//Затем соедините запятыми. Если это числовой тип, одинарные кавычки не нужны.
}
}
если(pKey!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("Вы уверены, что хотите удалить выбранную информацию?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
//Выполняем изменение данных, независимо от того, сколько их выбрано, но изменяем только первый
функция editInfo(iCount)
{
вар pKey = новая строка ();
если(iCount>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
перерыв;}
}
}
если(pKey!="")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
//Введите здесь граничный интерфейс, чтобы редактировать выбранную информацию. Код editinto.asp не записывается.
}
}
функция мд()
{IfPush='да';}
функцияму()
{IfPush='нет';}
//Перетащите, чтобы выбрать
функция Wr(whoTd)
{
если (IfPush=='да')
{
если (FI=='да')
{ ФИ = 'нет';
если (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
еще
{whoTd.innerText=yesH;}
}
}
}
//Нажмите, чтобы выбрать
функция WRone(whoTd)
{
если (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
еще
{whoTd.innerText=yesH;}
}
</script>
</head>
<%
'Подключаемся к базе данных
Set db=Server.CreateObject("ADODB.Connection")
тусклый DBPath
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
тусклый ммм
mmm="driver={Драйвер Microsoft Access (*.mdb)};dbq="& DBPath
db.Open mmm
'Выполнить удаление
если запрос("delPkey")<>"" тогда
Ответ. Напишите «del:» и запрос («delPkey»).
Response.Redirect Request.ServerVariables("Path_info")
«Здесь код избыточен, но он позволяет избежать обновления приглашения. Вы можете свободно сконструировать программу в соответствии с вашими потребностями.
end if
'Читать данные
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "выбрать * из заметок", 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 Ширина="90%">
<тр>
<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">Заголовок</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">Дата</font></td>
</tr>
<%if rs.RecordCount>0 тогда
БГК="#DAF0FE"
Уи=0
j=0
RS.MoveFirst
делай пока не rs.EOF
j=j+1%>
<тр>
<td align=center id="a<%=j%>"
onmouseover="Wr(this);" onmouseout="javascrpt:FI='yes';"
onmousedown="WRone(this);" ФФФФЕ8">
<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 id="c<%=j%>" bgcolor="<%=BGC%>"
align=center><font size="2"><%=rs("disptime")%></font> </td>
<%
если Whi=0, то
BGC="#фаадед"
где=1
еще
где=0
БГК="#DAF0FE"
конец, если
%>
</tr>
<%rs.MoveNext
петля
конец, если%>
</таблица>
</td>
</tr>
</таблица>
<br>
<%if rs.RecordCount>0, тогда%>
<input type=button name="editinfo" value="Modify..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="Delete..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%конец, если%>
</div>
<div style='visibility:hidden;'>
<form метод="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">
<input type="hidden" id="delPkey" name="delPkey" value="">
</форма>
</div>
</тело>
</html>