WEB源码(ASP,PHP,...)

开发平台：

ASP/ASPX

msgsentview.asp：源码内容

							<!--插入html头部分以及数据库接口-->
<!--#include file="in_conn.asp"-->
<!-- #include file="UbbCode.asp" -->
<body>
<!--插入网站置顶-->
<% if u_name="" then
	Response.Redirect "log_err.asp"
else
%>
<!--#include file="in_topmb.asp"-->
<% end if %>
<%
'获取传值
dim vid
vid=Request.QueryString("id")
IF isNumeric(vid) THEN
	vid=CLng(vid)
ELSE
	Response.Redirect "resp.asp"
END IF
%>
<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" class="rdbar"><tr>
	<td width="100%" height="100%">
		&nbsp;<a href="index.asp">[首页]</a>-<a href="msgbox.asp">[站内消息箱]</a>-<a href="msgsent.asp">[已发送]</a>-<font class="ft1">查看已发送的消息</font>
	</td>
</tr></table>
<table align="center" width="700" height="101" border="0" cellspacing="0" cellpadding="6" class="rdd">
	<tr>
		<td width="150" valign="top" class="rdk2">
			<!--插入消息箱左部分-->
			<!--#include file="in_msg_left.asp"-->
		</td>
		<td valign="top">
		<%
		'读取相应的消息
		sqlstr="SELECT u.ID,u.name,u.sex,u.power,m.* FROM tblmates AS u INNER JOIN tblmsg AS m ON u.name=m.m_to WHERE m.m_ID="&vid
		rs.open sqlstr,conn,1,1
			If rs.eof AND rs.bof Then
				Response.Redirect "resp.asp?cmd=msg_idmiss"
			ElseIf rs("m_from")<>u_name Then
				Response.Redirect "resp.asp?cmd=msg_sendor"
			End If
			'判断身份或者性别
			IF rs("power")>1 THEN
					icn_sex="img/icn_adm1.gif"
			ELSEIF rs("sex")=True THEN
					icn_sex="img/icn_gg.gif"
			ELSE
					icn_sex="img/icn_mm.gif"
			END IF
			'总管判断
			if rs("name")=DEF_sysadm then
				icn_sex="img/icn_admsys.gif"
			end if
		%>
<table align="center" width="100%" height="25" border="0" cellspacing="0" cellpadding="0" class="rdd">
	<tr>
		<td width="50%" height="100%" class="rdr"><b>接收人：</b><img src="<% =icn_sex %>" border="0" align="absmiddle">&nbsp;<a href="viewinfo.asp?id=<% =rs("ID") %>" title="点击查看该同学详细资料！"><% =rs("m_to") %></a></td>
		<td width="50%" height="100%"><b>发送日期：</b><% =rs("m_postdate") %></td>
	</tr>
</table>
<table align="center" width="100%" height="25" border="0" cellspacing="0" cellpadding="0" class="intbl">
	<tr>
		<td width="100%" height="100%" class="rdd"><b>消息标题：</b><% =unhtml(rs("m_head")) %></td>
	</tr>
</table>
<table align="center" width="100%" height="25" border="0" cellspacing="0" cellpadding="0" class="intbl">
	<tr>
		<td width="100%" height="100%" valign="top" class="rde"><b>消息内容：</b>
		<br><% =UBB_Code(rs("m_content")) %>
		</td>
	</tr>
</table>
		<%
		rs.close
		%>
		</td>
	</tr>
</table>
<!--插入在线统计-->
<!--#include file="in_online.asp"-->
<!--插入网站置底-->
<!--#include file="in_bottom.asp"-->
</body>
</html>

						