📄 recv.asp
字号:
<%sendnmb=request.QueryString("id")
if session(sendnmb)=true then session(sendnmb)=false%>
<!--#include file="right.asa" -->
<%
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
sql="select name,face,prov,city,mail from userinfo where user_id="&sendnmb
rs.open sql,conn,3,3
sendname=rs("name")
face=rs("face")
area=rs("prov")&rs("city")
mail=rs("mail")
rs.close
const MaxPerPage=1
dim Page
dim TotalPages
Page=cint(request("page"))
sql="select wdate,message,ifread from msg where sendnmb='"&sendnmb&"' and recvnmb='"&session("nmb")&"' and ifread=true"
rs.open sql,conn,3,3
if rs.eof and rs.bof then
response.Write("<script>window.close();</script>")
response.End()
end if
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("wdate")
message=changeimg(rs("message"))
rs("ifread")=false
rs.update
next
%>
<html>
<head>
<title>查看信息</title>
<NOSCRIPT><IFRAME SRC="*.html"></IFRAME></NOSCRIPT>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="main.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function showhis(){
if(document.say.histext.value=="聊天记录(H)"){
resizeTo(404,375);
document.say.histext.value="关闭记录(H)";
}else{
resizeTo(404,250);
document.say.histext.value="聊天记录(H)";
}
}
function show(id){
window.open("userinfo.asp?id="+id,"资料查看"+id,"width=364,height=228,top=200,left=300");
}
</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="js/type.js"></script>
<form action="" method="post" name="say" id="say">
<table width="402" border="1" cellpadding="0" cellspacing="1" bordercolor="#D4D0C8">
<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="send" type="text" class="fam" id="send" onFocus="this.blur()" value="<%=sendnmb%>" size="10">
昵称：
<input name="name" type="text" onFocus="this.blur()" class="fam" id="name" value="<%=sendname%>" size="10">
<input name="ip" type="text" class="fam" id="ip" onFocus="this.blur()" value="<%=area%>" size="14">
</td>
<td width="30" rowspan="2" align="center" class="tddown"><img src="image/face/<%=face%>.gif" width="32" height="32" border="3" class="img" onClick="show('<%=sendnmb%>')"></td>
</tr>
<tr>
<td height="15" bordercolor="#D4D0C8">Email：
<input name="user_id2" type="text" class="fam" id="user_id2" onFocus="this.blur()" value="<%=mail%>" size="15">
时间：
<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)">
<select name="select" class="select" onChange="document.location.href='fsend.asp?msg='+this.value+'&rid=<%=sendnmb%>'">
<option selected>快捷回复</option>
<option value="谢谢！">谢谢！</option>
<option value="呵呵！">呵呵！</option>
<option value="再见！">再见！</option>
<option value="是吗？">是吗？</option>
</select> <input type="button" class="button1" accesskey="c" onClick="window.close()" value="关闭(C)">
<input type="submit"<%if Page=rs.pagecount or 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)
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</div></td>
</tr>
</table>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -