📄 recv.asp
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%sendnmb=request.QueryString("id")
if session(sendnmb)=true then session(sendnmb)=false%>
<%'程序编写及设计:徐勇
'QQ号码: 563097256(网络侠客)
'网址：http://www.wsoas.com
'E_mail(MSN):netcst@126.com
'电话:13856921303 0551-5168961
'以上信息不影响程序运行!
'在使用过程中请保留以上信息,以便出现问题时及时与我取得联系
'注意：免费版程序不得用于商业用途，否则后果自负！！！！
function changeimg(str)
changeimg=replace(replace(replace(str,":_","<img src='image/img/14.gif' border=0>"),"[mu]","<br><center><embed src='"),"[/mu]","' height=45 width=250 loop=true autostart=false></embed></center>")
changeimg=replace(replace(replace(replace(changeimg,":D","<img src='image/img/1.gif' border=0>"),"8)","<img src='image/img/11.gif' border=0>"),":~","<img src='image/img/15.gif' border=0>"),"=^_^=","<img src='image/img/16.gif' border=0>")
changeimg=replace(replace(replace(replace(changeimg,"b)","<img src='image/img/17.gif' border=0>"),":o","<img src='image/img/18.gif' border=0>"),"?_?","<img src='image/img/19.gif' border=0>"),":0","<img src='image/img/20.gif' border=0>")
changeimg=replace(replace(replace(replace(changeimg,";)","<img src='image/img/21.gif' border=0>"),"K)","<img src='image/img/2.gif' border=0>"),"B)","<img src='image/img/3.gif' border=0>"),"^o^","<img src='image/img/4.gif' border=0>")
changeimg=replace(replace(replace(replace(changeimg,"*^_^*","<img src='image/img/5.gif' border=0>"),":*","<img src='image/img/6.gif' border=0>"),":{","<img src='image/img/7.gif' border=0>"),":)~","<img src='image/img/8.gif' border=0>")
changeimg=replace(replace(replace(replace(changeimg,":(","<img src='image/img/9.gif' border=0>"),"@_@","<img src='image/img/10.gif' border=0>"),":)","<img src='image/img/12.gif' border=0>"),":p","<img src='image/img/13.gif' border=0>")
changeimg=replace(replace(replace(replace(changeimg,"%(","<img src='image/img/22.gif' border=0>"),"*_*","<img src='image/img/23.gif' border=0>"),":8","<img src='image/img/24.gif' border=0>"),"&)","<img src='image/img/25.gif' border=0>")
changeimg=replace(replace(changeimg,":()","<img src='image/img/26.gif' border=0>"),"@_#","<img src='image/img/27.gif' border=0>")
end function
const MaxPerPage=1
Page=cint(request("page"))
set rs=WS_S.HX_SetRSD("WS_wdate,WS_message,WS_ifread","HX_WebSMS"," where ws_sendnmb="&sendnmb&" and ws_recvnmb="&loginuid&" and ws_ifread=1")
if rs.recordcount<=0 then
response.Write("<script>window.close();</script>"):response.End()
end if
WS_S.HX_OutUserInfo(sendnmb)
sendname=Outname
rs.pagesize=MaxPerPage
if page <1 or isempty(page) then
page=1
rs.absolutePage=1
elseif page>rs.pagecount then
rs.absolutePage=rs.pagecount
else
rs.absolutePage=Page
end if
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
wdate=rs("WS_wdate")
message=changeimg(rs("WS_message"))
rs("WS_ifread")=0
rs.update
next
%><head>
<title>查看信息</title>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../hxinclude/HX_websms.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function showhis(){
if(document.say.histext.value=="聊天记录(H)"){
resizeTo(404,380);
document.say.histext.value="关闭记录(H)";
}else{
resizeTo(404,250);
document.say.histext.value="聊天记录(H)";
}
}
</script>
<style type="text/css">
<!--
.select {
background-color: #D4D0C8;
height: 20px;
clip:rect(2 40 10 2);
}
.onselect{
background-color: #08246b;
color: #FFFFFF;
width: 100%;
}
font {
font-size: 12px;
}
-->
</style>
</head>
<body onkeydown='if(event.ctrlKey)return false;' onFocus="say.rebut.focus()">
<script language="JavaScript" src="../HXINCLUDE/type.js"></script>
<table width="402" border="1" cellpadding="0" cellspacing="1" bordercolor="#D4D0C8">
<form action="" method="post" name="say" id="say"> <tr>
<td width="396" height="68"> <fieldset>
<legend>来自</legend>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
<tr>
<td height="20" bordercolor="#D4D0C8">姓名：
<input name="name" type="text" onFocus="this.blur()" class="fam" id="name" value="<%=sendname%>" size="22">
</td>
</tr>
<tr>
<td height="15" bordercolor="#D4D0C8"> 时间：
<input type="text" class="fam" id="name" onClick="this.select();document.execCommand('Copy')" value="<%=wdate%>" size="22"></td>
</tr>
</table>
</fieldset>
</td>
</tr>
<tr>
<td valign="top" bordercolor="#D4D0C8"><div class="textarea" onMouseUp="document.execCommand('Copy')"><%=message%></div></td>
</tr>
<tr>
<td height="30" align="center" bordercolor="#D4D0C8"> <input name="rebut" type="button" class="button" id="rebut" accesskey="r" onClick="document.location.href='send.asp?id=<%=sendnmb%>'" value="回复信息(R)">
<input name="histext" type="button" class="button" id="histext" accesskey="h" onClick="showhis()" value="聊天记录(H)">
<input type="button" class="button1" accesskey="c" onClick="window.close()" value="关闭(C)">
<input type="submit"<%if Page>=rs.pagecount then response.write("disabled")%> class="button1" onClick="document.location.href='recv.asp?<%="id="&sendnmb&"&page="&Page+1%>'" accesskey="n" value="下一条>>"> </td>
</tr>
<tr>
<td> <div class="textarea">
<%
session(cstr(session("nmb"))&sendnmb)="<div onMouseOver=this.className='onselect' onMouseOut=this.className='' onDblClick='say.saytext.value=say.saytext.value+this.innerText'><font color=#0000ff>["&now()&"] "&sendname&"<br>"&message&"</font></div>"&session(cstr(session("nmb"))&sendnmb)
hismsglist=session(cstr(session("nmb"))&sendnmb)
response.Write(hismsglist)
WS_S.HX_RSClose rs
%>
</div></td>
</tr> </form>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -