<!--#include file = "conn.asp" --> <% '判断权限 if session("amdin")="" then response.Redirect("timeout.htm") response.End() end if d1 = request("d1") '开始日期 d2 = request("d2") '结束日期 con = trim(request("con")) '内容 if d1<>"" and d2<>"" then if cdate(d1)>cdate(d2) then response.Write("<script>alert('查询的开始日期必须小于结束日期!');history.back(-1);</script>") response.End() end if end if if d1 = "" then d1 = showToday() if d2 = "" then d2 = showToday() %> <form name="form1" method="post" action="VVVVVV.asp" id="form1"> <table border="0" align="center" cellpadding="0" cellspacing="0" > <tr> <td style="height: 24px"> 发送日期: <input type="text" style="border:1px solid #cccccc;" mce_style="border:1px solid #cccccc;" size="10" id="d1" value="<%=d1%>" name="d1"/> 至 <input type="text" style="border:1px solid #cccccc;" mce_style="border:1px solid #cccccc;" size="10" id="d2" value="<%=d2%>" name="d2" /> 短信内容: <input name="con" type="text" maxlength="10" id="con" style="width:145px;" /> <input type="submit" name="Search" value="查询" id="Search"/> </td> </tr> </table> <table border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="10%" align="center">ID</td> <td width="70%" align="center">Content</td> <td width="20%" align="center">Date</td> </tr> <% set Recordrs=server.CreateObject("adodb.recordset") if con="" then if d1 = d2 then Recordsql="select XXXXXXXXX where [date]='" & d1 & "' and [user]='" & session("admin") & "' order by id desc" else Recordsql="select XXXXXXXXX where [user]='" & session("admin") & "' and [date] between '" & d1 & "' and '" & d2 & "' order by id desc" end if else if d1 = d2 then Recordsql="select XXXXXXXXX where [user]='" & session("admin") & "' and [date]='" & d1 & "' and [con] like '%" & con & "%' order by id desc" else Recordsql="select XXXXXXXXX where [user]='" & session("admin") & "' and [con] like '%" & con & "%' and [date] between '" & d1 & "' and '" & d2 & "' order by id desc" end if end if Recordrs.open Recordsql,conn,1,3 if Recordrs.recordcount=0 then %> <tr> <td align="center" colspan="4">无记录</td> </tr> <% else Recordrs.pagesize=20 '指定每页显示20条记录 if request.querystring("page") <> empty and request.querystring("page") <> 1 then page=request.querystring("page") Recordrs.absoluteposition=(page-1)*Recordrs.pagesize else page=1 Recordrs.absoluteposition=1 '记录指针移动到第1条 end if for i=1 to recordrs.pagesize if recordrs.eof then exit for %> <tr> <td align="center"><%=Recordrs("id")%></td> <td align="center"><div id="mess_box" style="height:50px;width:96%;OVERFLOW-y:auto;"><%=Recordrs("con")%></div></td> <td align="center"><%=Recordrs("date")%></td> </tr> <% Recordrs.movenext next end if %> <tr> <td colspan="9" align="right"> <div style="float:right;" mce_style="float:right;"> <% if cint(page) <> 1 then response.write "<a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page=1" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page=1">首页</a> " response.write "<a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page-1&"" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page-1&"">上一页</a> " else response.write "首页 上一页 " end if if cint(page) <> Recordrs.pagecount then response.write " <a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page+1&"" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&page+1&"">下一页</a> " response.write " <a href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&Recordrs.pagecount&"" mce_href="?d1=" & d1 & "&d2=" & d2 & "&con=" & con & "&page="&Recordrs.pagecount&"">尾页</a>" else response.write "下一页 尾页 " end if response.write " " & page & "/" & Recordrs.pagecount %> </div> </td> </tr> </table> </form> <% function showToday() showToday = year(now) & "-" & month(now) & "-" & day(now) end function %>