logview.asp

功能齐全的oa系统

<% option explicit%>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
	Dim ObjDB,StrSQL
	Dim IntPageCount,IntPageNo,IntPageSize
	Dim C,ArrList,i,j,IntRows,IntCols
	Dim StrWhere
    Dim IntToID,IntFromID
    Dim count
	IntPageNo	= Request.QueryString("PageNo")
	IntPageSize =14
	StrSQL = "Select ID,Body,CreateTime From t_OA_Work_UserMessage Where FromID =0 And ToID = " & Session("AccountID")&"order by CreateTime desc"
	
	Set ObjDB	= Server.CreateObject("ADODB.Connection")
	OpenDB objDB

	Set C = Server.CreateObject ("CMS2003.DBhandle")
	    
	
	C.Init(ObjDB)
	
	ArrList = C.List(IntPageNo,IntPageSize,StrSQL)	'使用List()函数获得列表数组
    count=c.GetRecordCount 
    IntPageCount = C.GetPageCount()					'使用GetPageCount()函数获得总页码
	IntRows = C.GetRows()							'使用GetRows()获得总返回的行数
	IntCols = C.GetCols()	

					'使用GetCols()获得总返回的列数
	
%>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

<form name=form1 method="post" action="deletehistory.asp?infosel=2">
<table class=Ltable cellspacing=1 cellpadding=3>
	<tr bgcolor="Gray">
		<td width=1%><input type=checkbox id=0 name=ITEM value="0"></td>
		<td width=65%>日志内容</td>
	  
		<td width=20%>收到时间</td>
	</tr>

<%
   if count<>0 then
		For i = 0 To IntRows
	%>
	<tr class=Ltr name=ITEMTR id=<%=ArrList(0,i)%>>
		<td><input type = checkbox name=ITEM id=<%=ArrList(0,i)%> value="<%=ArrList(0,i)%>"></td>
        <td><%=ArrList(1,i)%></td>    
		<td><%=ArrList(2,i)%></td>
	</tr>
	<%
		Next
	%>
</table></form>
<form name=form2 action="deleteall.asp?Infosel=2">
</form>


<table>
<tr>
    <td><input type="button" value="删除" Onclick="if (confirm('您确定删除所选记录？')){form1.submit()}" id=submit1 name=submit1></td>
    <td width=5%></td>
    <td><input type="button" name="CheckAll" value="全部删除" Onclick="if (confirm('您确定清空日志？')){form2.submit() }"></td>
    <td width=80%></td>
    <%end if%>
    <td><input type="button" value="退出" Onclick="window.close()" id=button1 name=button1>
</tr>
</table>   

<%=PageFooter(IntPageCount,"PageNo")%>



<%'------------------------------------------------------------------%>
<%
   	ObjDB.Close
	Set ObjDB = Nothing

  End Sub%>
<%'==================================================================%>

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