📄 mes_view.asp
字号:
<%@ Language=VBScript %>
<% option explicit %>
<!-- #include file="conn_webqq.asp" -->
<!-- #include file="inc_session.asp" -->
<!-- #include file="inc_transtag.asp" -->
<%
dim uid
uid=GetSession
if uid="" then
Response.Redirect "mes_LOGIN.ASP"
Response.End
end if
dim sSender
sSender=request("sender")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>WebQQ - 查看信息</title>
<link rel="stylesheet" type="text/css" href="../main.css">
</head>
<body bgcolor="#D4D0C8">
<table border="0" width="100%" height="330" bgcolor="#687088">
<tr>
<td width="100%" height="300" valign="top" bgcolor="#FFFFFF" align="center">
<table border="0" width="100%">
<tr>
<td width="18%"><img border="0" src="images/logo_qq.gif" width="32" height="32"></td>
<td width="67%"><b><%=uid%></b> - 查看信息</td>
<td width="15%" align="right"><a href="mes_INDEX.ASP">返回</a></td>
</tr>
<tr>
<td width="18%" height="1"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
<td width="67%" height="1" bgcolor="#FFCC00"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
<td width="15%" height="1" bgcolor="#ECE9AC"><img border="0" src="images/dotline.gif" width="1" height="1"></td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td width="100%"> </td>
</tr>
</table>
<%
Dim Rs
set Rs=Server.CreateObject ("ADODB.Recordset")
if sSender="" then
Rs.Open "SELECT * FROM tMessage WHERE receiver='" & uid & "' ORDER BY Time",connq,1 ,1
else
Rs.Open "SELECT * FROM tMessage WHERE receiver='" & uid & "' AND sender='" & sSender & "' ORDER BY Time" ,connq,1 ,1
end if
dim iCount
dim i
if (Rs.BOF and Rs.EOF) then
iCount=0
else
rs.MoveLast
rs.MoveFirst
iCount=rs.RecordCount
end if
%>
<table border="0" width="100%" cellspacing="1">
<% if iCount=0 then %>
<tr>
<td width="100%" bgcolor="#687088" height="23"></td>
</tr>
<tr>
<td width="100%" bgcolor="#F5F5F5" height="50">
<p align="center">没有信息了。</td>
</tr>
<%
else
Do
%>
<tr>
<td width="100%" bgcolor="#687088" height="23">
<%
if rs("sendersex")=1 then
Response.Write "<img src='images/boy.gif'> "
else
Response.Write "<img src='images/girl.gif'> "
end if
Response.Write "<b>"
Response.write "<a href='../reg/viewinfo.asp?uid=" & rs("sender") & "' target='_blank'>"
Response.write "<font color='#F5F5F5'>" & rs("sender") & "</font></a>"
Response.Write "</b>"
%>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F5F5F5"> <br>
<%
dim sTmp
sTmp=rs("content")
call transtext(sTmp)
call transtag(sTmp,1)
call transtag(sTmp,4)
Response.Write sTmp
%>
<br>
</td>
</tr>
<tr>
<td width="100%" bgcolor="#F5F5F5"><p align="right">
<a href="mes_write.asp?receiver=<%=rs("sender")%>&reply=1">
<img src="images/reply.gif" alt="回复" border="0"> 回复</a>
<img src="images/post.gif" alt="发送时间" border="0"> <%=DatePart("m",rs("time")) & "-" & DatePart("d",rs("time")) & " " & FormatDateTime(rs("time"),vbShortTime) %>
</td>
</tr>
<tr>
<td width="100%" height="20"></td>
</tr>
<%
rs.MoveNext
Loop until(rs.EOF)
end if
%>
</table>
<p><a href="mes_delete.asp?sender=<%=sSender%>">删除信息</a> | <a href="mes_INDEX.ASP">返回</a></p>
<%
Rs.Close
set rs=nothing
call closeconnq()
%>
<p></P>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -