📄 mes_save.asp

📁 在线考试系统
💻 ASP
字号:
<%@ Language=VBScript %>

<% option explicit %>

<!-- #include file="conn_member.asp" -->
<!-- #include file="conn_webqq.asp" -->
<!-- #include file="inc_session.asp" -->

<%

	dim sSender
	sSender=GetSession()
	
	dim bReply
	bReply=Request("reply")
	
	dim sReceiver
	dim sContent
	sReceiver=Request("receiver")
	sContent=Request("content")

	if sSender="" then
		Response.Write "网络超时！请重新登录。"
		Response.End
	end if

	if sReceiver="" or sContent="" then
		%>
		<script language="VBScript">
			history.back
		</script>
		<%
		Response.End
	end if

	sContent=left(sContent,250)

	Dim Rs
	set Rs=Server.CreateObject ("ADODB.Recordset")

	'//get the sender info
	dim wsex
	Rs.Open "SELECT UID,Sex FROM tmember WHERE uid='" & sSender & "'",connm,1,1
	if not(rs.BOF and rs.EOF) then
		wsex=rs("sex")
	else
		Rs.Close
		Response.End
	end if

	Rs.Close

	dim sRet

	'//search the receiver
	Rs.Open "SELECT uid FROM tmember WHERE uid='" & sReceiver & "'",connm,3 ,3
	if Rs.BOF and Rs.EOF then
		sRet= "找不到接收方：(" & sReceiver & ")，信息发送失败!"
	else

		Rs.Close

		'//save
		Rs.Open "tMessage",connq,3,3
		Rs.AddNew
		Rs("Receiver")=sReceiver
		Rs("sender")=sSender
		Rs("sendersex")=wsex
		Rs("Time")=Now()
		Rs("Content")=sContent
		Rs.Update
		Rs.Close
		sRet="信息发送成功!"

		'//search online
		rs.Open "SELECT * FROM tOnline WHERE uid='" & sReceiver & "'",connq,3,3
		if not(rs.BOF and rs.EOF) then
			Rs("messageCount")=clng(Rs("messageCount"))+1
			Rs.Update
		end if

	End if

	Rs.Close
	set rs=nothing
	call closeconnm
	call closeconnq

if sRet<>"" then
%>


<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" align="center" bgcolor="#FFFFFF">
      <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><%=sSender%></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>
<!-- CONTENT START -->

      <div align="center">
        <center>
        <table border="0" width="100%" height="100%">
          <tr>
            <td width="100%" align="center"><%=sRet%>
            <p>
            <a href="mes_INDEX.ASP">返 回</a> 
            <% if bReply=1 then %>
				| <a href="mes_delete.asp?sender=<%=sReceiver%>">删除已阅信息</a>
			<% end if %>
            </p>
            </td>
          </tr>
        </table>
        </center>
      </div>

<!-- CONTENT END -->
	</td>
  </tr>
</table>

</body>

</html>


<%
end if
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -