📄 duanxinlist.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="../daiban/ljl.CSS" rel=stylesheet>
<META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD>
<BODY
onkeydown="if(event.keyCode==13 && 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="533"
border=2 height="131">
<TBODY>
<TR>
<TD align=middle bgColor=#3399ff height="14" width="535"><FONT face=Wingdings
color=#ffffff>*</FONT><FONT
color=#ffffff><span lang="en-us">OA</span>办公系统<span lang="en-us">---</span>文件审批 </FONT></TD></TR>
<tr>
<TD vAlign=center align=middle bgColor=#e8f4ff height="4" width="268">
<a href="show.asp">
<IMG
alt=点我可以发送新的上报审批文件 src="../images/newpm.gif" border=0 width="40" height="40"></a><span lang="en-us"><font face="宋体" color="#FF0000">>>>>>></font></span><font face="宋体" color="#FF0000">文件待审批列表<span lang="en-us"><<<<<<</span></font><a href="duanxinlist.asp"><IMG
alt=刷新看看有没有新的审批文件 src="../images/replypm.gif" border=0></a></TD>
</tr>
<TR>
<TD vAlign=top align=left bgColor=#f2f8ff height="27" width="268">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="128%" 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 ",conn,3,3
if rs.eof or rs.bof then
rs=close
set rs=nothing
conn.close
set conn=nothing
response.write"目前您并无任何审批文件!"
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="510" bordercolorlight="#000000" bordercolordark="#ffffff" align="center">
<tr align="center">
<td width="246" bgcolor="#C1D7F4"><span lang="zh-cn">文件内容</span></td>
<td width="82" bgcolor="#C1D7F4"><span lang="zh-cn">发送人</span></td>
<td width="50" bgcolor="#C1D7F4" colspan="2"><span lang="zh-cn">操作</span></td>
</tr>
<form>
<%count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize%>
<td width="246"><a href="list.asp?id=<%=rs("id")%>"><%=rs("zhuti")%></a> </td>
<td width="82"><%=rs("send")%><%=rs("sj")%> </td>
<td width="42"><%if rs("dufou")=false then%>待审批<%else%>已审批<%end if%> </td>
<td width="1">
<p align="center"><a href="duanxindel.asp?id=<%=rs("id")%>">
<img border="0" src="a_delete.gif"></a></td>
</form>
</tr>
<%
rs.movenext
count=count+1
loop
%>
</table>
<div align="center">
<center>
<table border="0" cellspacing="0" cellpadding="2" width="520" 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="246">[<a href="duanxinlist.asp?page=<%=page-1%>"><img border="0" src="1-prev.gif"></a>][第<%=page%>页][<a href="duanxinlist.asp?page=<%=page+1%>"><img border="0" src="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 + -