<%
'仿 Lotus Notes 的界面程序
'作者：塞北的雪
'创作日期：2002年3月
'修改日期：2005年3月
'为了安全和共享的方便，将其中asp程序的标记改成中文字符，使用时可以批量替换回
%>
模仿Lotus Notes特效
<%
'连接数据库
Set db=Server.CreateObject("ADODB.Connection")
dim DBPath
DBPath = Server.MapPath("crc\configinfo\dispatch.mdb")
dim mmm
mmm="driver={Microsoft Access Driver (*.mdb)};dbq="& DBPath
db.Open mmm
'执行删除
if request("delPkey")<>"" then
Response.Write "del:" & request("delPkey")
Response.Redirect Request.ServerVariables("Path_info")
'此处代码属于多余，但是可以避免刷新提示。根据需要，可以自由设计程序
end if
'读取数据
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from notes",db,3
%>
ondragstart="return false" onselectstart="return false">
onmouseup="javascript:this.className='tHeader';"
onmouseout="javascript:this.className='tHeader';" class="tHeader" align="center"
>标题 |
onmouseup="javascript:this.className='tHeader';"
onmouseout="javascript:this.className='tHeader';" class="tHeader" align="center"
>日期 |
<%if rs.RecordCount>0 then
BGC="#DAF0FE"
Whi=0
j=0
rs.MoveFirst
do while not rs.EOF
j=j+1%>
onmouseover="Wr(this);" onmouseout="javascrpt:FI='yes';"
onmousedown="WRone(this);" bgcolor="#FFFFE8">
|
">
bgcolor="<%=BGC%>"> <%=rs("subject")%>
align=center><%=rs("disptime")%>
<%
if Whi=0 then
BGC="#faaded"
whi=1
else
whi=0
BGC="#DAF0FE"
end if
%>
<%rs.MoveNext
loop
end if%>
|
<%if rs.RecordCount>0 then%>
onclick="editInfo('<%=rs.RecordCount%>');">
onclick="delInfo('<%=rs.RecordCount%>');">
<%end if%>