📄 sendlist.asp
字号:
<!--#include file="conn.asp" -->
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<TITLE>办公自动化系统</TITLE>
<link href="skins/css/main.css" rel="stylesheet" type="text/css" />
<script src="inc/ShowCalendar.js"></script>
</head>
<body>
<%
%>
<table cellPadding=0 cellSpacing=0 align=center width=100%>
<tr>
<th width="100%" style="text-align:center;">发件箱</th>
</tr>
</table>
<table width="100%" cellpadding="0" cellspacing="0">
<TR>
<TD width="*">
日期：从
<input name="startDate" type="text" id="startDate" size="10" onClick="javascript:ShowCalendar('startDate')" value="<%=request.QueryString("startDate")%>"> <img style="cursor:hand;" src="images/date1.jpg" onClick="javascript:ShowCalendar('startDate')">
到
<input name="endDate" type="text" id="endDate" size="10" onClick="javascript:ShowCalendar('endDate')" value="<%=request.QueryString("endDate")%>"> <img style="cursor:hand;" src="images/date2.jpg" onClick="javascript:ShowCalendar('endDate')">
<input name="button" type="submit" class="button" id="button" onClick="location.href='sendlist.asp?startDate='+document.all.startDate.value+'&endDate='+document.all.endDate.value" value="搜索"></TD>
</TR>
</table>
<br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" style="word-break:break-all" >
<tr align=center>
<td>标题</td>
<td>收件人</td>
<td>发送时间</td>
<td>发信人IP</td>
<td> </td>
<td>操作</td>
</tr>
<%
wherestr=" and a.sender = '"&session("loginID")&"'"
if isdate(request("startDate")) then
wherestr=wherestr&" and datediff('d',a.sendTime,'"&request("startDate")&"')<=0"
end if
if isdate(request("endDate")) then
wherestr=wherestr&" and datediff('d',a.sendTime,'"&request("endDate")&"')>=0"
end if
if request("senderID")<>"" and request("senderID")<>"0" then
wherestr=wherestr&" and a.senderID='"&request("senderID")&"'"
end if
sql="select a.id,a.title,a.sendTime,a.senderIP,a.receiver from [send] a where 1=1 "&wherestr&" order by a.id desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=15
currentPage=Request.QueryString("page")
if not isnumeric(currentPage) then
currentPage=1
end if
currentPage=cint(currentPage)
if currentPage<1 then
currentPage=1
end if
if currentPage>rs.pagecount then
currentPage=rs.pagecount
end if
PageCounts=rs.pagecount
recordCounts=Rs.RecordCount
if not rs.eof then
rs.absolutepage=currentPage
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr >
<td class="td1"><a href="sendview.asp?id=<%=rs("id")%>"><%=rs("title")%></a></td>
<td align="center" class="td1"><%=rs("receiver")%></td>
<td align="center" class="td1"><%=rs("sendTime")%></td>
<td align="center" class="td1"><%=rs("senderIP")%></td>
<td align="center" class="td1"> </td>
<td align="center" class="td1"> <a href="senddel.asp?id=<%=rs("id")%>" onClick="return confirm('您确认要删除吗')">删除</a> </td>
</tr>
<%
rs.movenext
next
end if
rs.close
conn.close
%>
</table>
<TABLE cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
<TBODY>
<TR>
<TD vAlign="center"><!--#include file="turnpage.asp" --></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -