<%
'로터스 노츠를 모방한 인터페이스 프로그램'
작가 : 사이베이의 눈
'작성일 : 2002년 3월
'수정일자 : 2005년 3월
'보안과 공유의 편의를 위해 ASP 프로그램의 태그는 한자로 변경되어 있으며, 이는 사용 중에 일괄적으로 교체될 수 있습니다.
%>
<html>
<머리>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<스타일>
.tHeader{font-weight:bold;배경 색상: #000000; 테두리-왼쪽:
;
테두리-오른쪽: 1개의 단색 #FFFFFF;
하단: 솔리드 1개 #000000}
.tHeaderPush{font-weight:bold;배경색: #D0D0D0; 색상: #000000; 테두리: 1
단색 #707070;}
</style>
<title>Lotus Notes 특수 효과 모방</title>
<스크립트 언어=자바스크립트>
var yesH="√"; //선택 후 표시되는 마크
var noH=' '; //선택되지 않은 사람 표시
var IfPush='no'; //선택하기 위해 마우스를 움직일 때 제어하는 데 사용됩니다. 'yes'는 마우스를 눌렀다는 뜻
이고
, 'no'는 마우스를 위로 밀었다는 뜻입니다. 마우스는 다시 아무런 효과가 없습니다.
var FI='yes'; //선택을 위해 마우스를 움직일 때 제어하는데 사용됩니다. 'yes'는 현재 셀을 처리할 수 있고, 'no'는
처리할 수 없습니다.
//기본값은 'yes'입니다. 특정 셀 범위를 입력하면 처리한 다음
'no'로 변경한 다음 더 이상 처리하지 않습니다.
//이 셀을 처리하고, 셀을 나갈 때 'yes'로 변경하고,
다음에
들어오는 셀을 처리합니다 .
//데이터 삭제 수행
함수delInfo(iCount)
{
var pKey=new String();
if(i카운트>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += ("'" + document.getElementById("pKey" + i).value + "',")}
//여기서 키워드 문자열이 생성됩니다. 문자형이므로 각 키워드 양쪽에 작은따옴표를 추가합니다.
//그런 다음 쉼표로 연결합니다. 숫자 유형인 경우 작은따옴표가 필요하지 않습니다.
}
}
if(pKey!="")
{
pKey=pKey.substring(0,pKey.length-1);
if(confirm("선택한 정보를 삭제하시겠습니까?"))
{
document.getElementById("delPkey").value=pKey;
document.getElementById("delForm").submit();
}
}
}
//선택한 개수에 관계없이 데이터 수정을 수행하지만 첫 번째 항목만 수정합니다.
함수 editInfo(iCount)
{
var pKey=new String();
if(i카운트>0)
{
for(var i=1;i<=iCount;i++)
{
if (document.getElementById("a" + i).innerText==yesH)
{pKey += document.getElementById("pKey" + i).value;
부서지다;}
}
}
if(pKey!="")
{
window.open("editinfo.asp?unid=" + pKey,"_blank");
//선택한 정보를 편집하려면 여기에 경계 인터페이스를 입력하세요. editinto.asp 코드는 작성되지 않습니다.
}
}
함수 md()
{IfPush='예';}
함수mu()
{IfPush='아니요';}
//드래그하여 선택
함수 Wr(whoTd)
{
if (IfPush=='예')
{
if (FI=='예')
{ FI='아니요';
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
또 다른
{whoTd.innerText=yesH;}
}
}
}
//선택하려면 클릭하세요.
함수 WRone(whoTd)
{
if (whoTd.innerText!=noH)
{whoTd.innerText=noH;}
또 다른
{whoTd.innerText=yesH;}
}
</스크립트>
</head>
<%
'데이터베이스에 연결
db=Server.CreateObject("ADODB.Connection") 설정
희미한 DB 경로
DBPath = Server.MapPath("crcconfiginfodispatch.mdb")
희미한 음
mmm="driver={Microsoft Access 드라이버(*.mdb)};dbq="& DBPath
db.Open mmm
'삭제 실행
if request("delPkey")<>"" 그러면
Response.Write "del:" & request("delPkey")
응답.리디렉션 요청.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 정렬=가운데>
<table border="1" 규칙=없음 프레임=hsides 셀 간격=0 cellpadding=0 너비="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">제목</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이면
BGC="#DAF0FE"
휘=0
j=0
rs.MoveFirst
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>
<%
Whi=0이면
BGC="#faaded"
휘=1
또 다른
휘=0
BGC="#DAF0FE"
종료하면
%>
</tr>
<%rs.다음으로 이동
고리
다음과 같은 경우 종료%>
</table>
</td>
</tr>
</table>
<br>
<%if rs.RecordCount>0이면%>
<input type=button name="editinfo" value="수정..."
onclick="editInfo('<%=rs.RecordCount%>');">
<input type=button name="delinfo" value="삭제..."
onclick="delInfo('<%=rs.RecordCount%>');">
<%다음 경우 종료%>
</div>
<div 스타일='가시성:숨김;'>
<form method="post" id="delForm" action="<%=Request.ServerVariables("Path_Info")%
>">">
<input type="hidden" id="delPkey" name="delPkey" value="">
</form>
</div>
</body>
</html>