📄 list4.asp
字号:
<%option explicit%>
<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->
<!--#include virtual = "/Include/DateFunction.asp"-->
<%
Dim objDB,objRS,strSQL
Dim IntPageCount,IntPageNo,IntPageSize
Dim C,ArrList,i,j,IntRows,IntCols
Dim AccountID
IntPageNo = Request.QueryString("PageNo")
IntPageSize = 12
AccountID = Session("AccountID")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDB objDB
Set C = Server.CreateObject("CMS2003.DBHandle")
C.Init(ObjDB)
StrSQL=" Select ID,ToAddr,Subject,IsAttach,SendTime from t_OA_Message where IsValid=1 And AccountID ="& AccountID &" and BoxID = 4 order by ID desc"
ArrList = C.List(IntPageNo,IntPageSize,StrSQL)
IntPageCount = C.GetPageCount()
IntRows = C.GetRows()
IntCols = C.GetCols()
%>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<body bgcolor="#DBF4F7">
<table class=Ltable cellspacing=1 cellpadding=3>
<tr class=LHtr>
<td><input type=checkbox name=ITEM id=0></td>
<td width=1%></td>
<td width=30%>发件人</td>
<td width=54%>主题</td>
<td width=15%>日期</td>
</tr>
<%
For i = 0 To IntRows
%>
<tr class=Ltr id=<%=ArrList(0,i)%> name=ITEMTR>
<td><input type = checkbox name= ITEM id=<%=ArrList(0,i)%>></td>
<td><img src=../../../images/oa/work/commessage/type1.gif><%If ArrList(3,i) Then %><img src=../../../images/oa/work/commessage/att.gif><%End If%></td>
<td><%=ArrList(1,i)%></td>
<td><%=ArrList(2,i)%></td>
<td><%=FormatDate(ArrList(4,i))%></td>
</tr>
<%
Next
%>
</table>
<input type=button value="删除选中的邮件" class="button" onclick="parent.frmToolbar.toRubish('4')" id=button1 name=button1>
</body>
<%
PageFooter IntPageCount,"PageNo"
End Sub
%>
<!-- #include file="templet.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -