📄 allhistory.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/GetTrueName.asp" -->
<html>
<head>
<title></title>
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<%
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 =22
StrSQL = "Select ID,FromID,ToID,Body,CreateTime From t_OA_Work_UserMessage 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()获得总返回的列数
%>
</head>
<body>
<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>
<form name=form1 method="post" action="deletehistory.asp?infosel=3">
<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=10%>发送人</td>
<td width=10%>接收人</td>
<td width=65%>聊天内容</td>
<td width=15%>发送时间</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>
<%if ArrList(1,i)=0 then%>
<td><b>系统消息</b></td>
<%else%>
<td>[<%=GetTrueName(ObjDB,ArrList(1,i))%>]</td>
<%end if%>
<td>[<%=GetTrueName(ObjDB,ArrList(2,i))%>]</td>
<td><%=ArrList(3,i)%></td>
<td><%=ArrList(4,i)%></td>
</tr>
<%
Next
%>
</table>
</form>
<form name=form2 method="post" action="deleteall.asp?Infosel=3">
<table>
<tr>
<td><input type="button" value="删除" name="Submit"onclick=if(confirm('确定删除所选记录吗？')){form1.submit()}></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></td>
</tr>
</body>
</html>
<%=PageFooter(IntPageCount,"PageNo")%>
<%'------------------------------------------------------------------%>
<%
ObjDB.Close
Set ObjDB = Nothing
End Sub%>
<%'==================================================================%>
<!-- #include file="Templet.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -