📄 duanxinlist.asp

📁 网佳网络办公系统（以下简称OA）是一套基于B/S模式的无纸化办公系统。[显著特点：无须安装客户端] 主要功能模块：管理公文车辆通知档案值班人事审批仓库主界面软件下载个人办公室
💻 ASP
字号:
<%Response.Buffer=true
username=session("hxf_u_nickname")
if username=""  then  Response.Redirect "error.asp?id=440"
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "no-cache" 
Response.Expires=0
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
%>
<HTML><HEAD><TITLE>OA短消息</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/STYLE.CSS" rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY 
onkeydown="if(event.keyCode==13 &amp;&amp; event.ctrlKey)messager.submit()" 
vLink=#333333 aLink=#333333 link=#333333 bgColor=#f2f8ff background="" 
topMargin=10 oncontextmenu=self.event.returnValue=false>
<TABLE cellSpacing=0 cellPadding=0 width="457" align=center bgColor=#777777 
border=0>
  <TBODY>
  <TR>
    <TD width="457">
      <TABLE borderColor=#ffffff cellSpacing=1 cellPadding=3 width="724" 
      border=2 height="131">
        <TBODY>
        <TR>
          <TD align=middle bgColor=#3399ff height="14" width="710"><FONT face=Wingdings 
            color=#ffffff>*</FONT><FONT color=#ffffff>欢迎使用OA<span lang="zh-cn">短信</span></FONT></TD></TR>
        <TR>
          <TD vAlign=center align=middle bgColor=#f2f8ff height="42" width="710">&nbsp;&nbsp;
          <a href="duanxinlist.asp">
          <IMG 
            alt=查看信息 src="images/inboxpm.gif" border=0 width="40" height="40"></a> &nbsp;
          <a href="#" onclick="javascript:window.open('show.asp','mt','width=360,height=250')"><IMG 
            alt=发送消息 src="images/newpm.gif" border=0 width="40" height="40"></a> &nbsp;<a href="duanxinlist.asp"><IMG 
            alt=刷新消息列表 src="images/replypm.gif" border=0 width="40" height="40"></a>&nbsp;
          <IMG 
            alt=删除消息 src="images/deletepm.gif" border=0 width="40" height="40"></TD></TR>
        <tr>
          <TD vAlign=center align=middle bgColor=#e8f4ff height="4" width="443">
          <span lang="en-us"><font face="宋体" color="#FF0000">&gt;&gt;&gt;&gt;&gt;&gt;</font></span><font face="宋体" color="#FF0000">短信列表<span lang="en-us">&lt;&lt;&lt;&lt;&lt;&lt;</span></font></TD>
        </tr>
        <TR>
          <TD vAlign=top align=left bgColor=#f2f8ff height="27" width="443">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="158%" id="AutoNumber1">
  <tr>
    <td width="100%"><%
dim page
page=request.querystring("page")
PageSize = 15
    rs.open "Select * From 短信  where  jieshou='"&username&"' and del=false Order by id desc ",conn,3,3
    if rs.eof or rs.bof then
rs=close
set rs=nothing
conn.close
set conn=nothing
%>
<script language=vbscript>
MsgBox "目前您并无短信!"
location.href = "jj2.asp"
'window.close()
    </script><%
else

    rs.PageSize = PageSize
    pgnum=rs.Pagecount
    if page="" or clng(page)<1 then page=1
    if clng(page) > pgnum then page=pgnum
    if pgnum>0 then rs.AbsolutePage=page%> 
<link rel="stylesheet" href="dg/setup.CSS">
<table border="1" cellspacing="0" cellpadding="2" width="681" bordercolorlight="#000000" bordercolordark="#ffffff" align="center">
  <tr align="center"> 
    <td width="364" bgcolor="#C1D7F4"><span lang="zh-cn">短信内容</span></td>
    <td width="97" bgcolor="#C1D7F4"><span lang="zh-cn">发送人</span></td>
    <td width="38" bgcolor="#C1D7F4"><span lang="zh-cn">操作</span></td>
  </tr>
  <form>
  <%count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize%> 
    <td width="364"><%=rs("info")%>　</td>
    <td width="97"><%=rs("send")%><%=rs("sj")%>　</td>
    <td width="38">
    <p align="center"><a href="duanxindel.asp?id=<%=rs("id")%>">删除</a></td>
    </form>
  </tr>
<%
rs.movenext
count=count+1
loop
%> 
</table>
    <div align="center">
      <center>
<table border="0" cellspacing="0" cellpadding="2" width="692" bordercolorlight="#000000" bordercolordark="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
  <tr> 
    <td align=left width="256">[共<font color=#FF0000><b><%=rs.pagecount%></b></font>页]</td>
    <td align=right width="418">[<a href="duanxinlist.asp?page=<%=page-1%>"><img border="0" src="shenpi/1-prev.gif"></a>][第<%=page%>页][<a href="duanxinlist.asp?page=<%=page+1%>"><img border="0" src="shenpi/1-next.gif"></a>]</td>
  </tr>
</table>
      </center>
    </div>
<%
end if
%> 
</td>
  </tr>
</table>
          </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>

</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -