📄 history.asp
字号:
<%option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/String.asp" -->
<!-- #include virtual="include/GetTrueName.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>聊天记录</title>
<base target="_self">
<style>
<!--
td { font-size: 14px }
.td0 {cursor:hand}
.td1 {cursor:hand;background-color: #D3D9E7; color: #000000; border: 1 solid #35356A}
.td2 {cursor:hand;background-color: #6174A7; color: #FFFFFF; border: 1 solid #35356A}
-->
</style>
</head>
<body bgcolor="#FFFFFF" background="../../Images/Menu/bg.gif">
<form name="Form1" method="POST" action="DeleteHistory.asp">
<table border="0" cellpadding="3" cellspacing="0" width=100%>
<%
Dim ObjDB,ObjRS,StrSQL
Dim IntToID,IntFromID
IntToID = Request("ToID")
If IntToID="" Then IntToID=Session("ToID")
Session("ToID")=IntToID
IntFromID = Session("AccountID")
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
StrSQL = "Select * From t_OA_Work_UserMessage Where (FromID = " & IntFromID & " And ToID = " & IntToID & ") Or (ToID = " & IntFromID & " And FromID = " & IntToID & ") "
Set ObjRS = ObjDB.Execute(StrSQL)
If ObjRS.Eof And ObjRs.Bof Then Response.Write("没有聊天记录")
While Not ObjRS.Eof
%>
<tr>
<td>
<p><input type="checkbox" name="ITEM" value="<%=ObjRs("ID")%>"><b><%=GetTrueName(ObjDB,ObjRS("FromID"))%></b>：<%=ObjRS("Body")%></p>
</td>
<td><%=ObjRS("CreateTime")%></td>
</tr>
<%
ObjRS.MoveNext
Wend
%>
</table>
<br><input type="checkbox" name="CheckAll" value="On" Onclick="CheckAllItems()"><b>全部选中</b>
<br>
<input type="submit" value="删除" name="Submit">
</form>
</body>
</html>
<Script Language=JavaScript>
function CheckAllItems()
{
var i,value;
if (document.Form1.CheckAll.checked)
{
value=1;
}
else
{
value=0;
}
for (i=0;i<document.Form1.ITEM.length;i++)
{ document.Form1.ITEM[i].checked=value; }
}
</Script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -