📄 list1.asp

📁 功能齐全的oa系统

💻 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,IsNew,FromAddr,Subject,IsAttach,createTime from t_OA_Message where AccountID ="& AccountID &" and BoxID = 1 order by ID Desc"
'	Response.Write strSQL
	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 width=1%><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(4,i) Then %><img src=../../../images/oa/work/commessage/att.gif><%End If%></td>
		<td><%=ArrList(2,i)%></td>
		<td><%If (ArrList(1,i)) Then%><b><%End If%><%=ArrList(3,i)%></td>
		<td><%=FormatDate(ArrList(5,i))%></td>
	<%
		Next
	%>
</table>
<input type=button value="删除选中的邮件" class="button" onclick="parent.frmToolbar.toRubish('1')" id=button1 name=button1>
</body>
<%
  PageFooter IntPageCount,"PageNo"
End Sub
%>

<!-- #include file="templet.asp" -->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -