📄 user_webmsg_view.asp

📁 在线点播系统
💻 ASP
字号:
<!--#include file="../chklogin.asp"-->
<%

call myobj.chkrq()

starttime=timer()
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from member where userid='"&request.cookies("userid")&"'",conn,1,1
if rs("u_type")=3 and request.cookies("center")="" then
	Response.Redirect ("user_login.asp?action=user_login&center=1")
end if
rs.close

set rs=server.createobject("adodb.recordset")
rs.open "select * from setup where id=1",conn,1,1
website_name=rs("website_name")
max_send=rs("max_send")
rs.close
set rs=server.createobject("adodb.recordset")
rs.open "select * from webmessage where datediff(d,msg_time,getdate())=0",conn,1,1
total_send=cint(rs.recordcount)
rs.close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户中心 - 站内短信</title>
<style type="text/css">
<!--
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 12px;
	color: #000000;
}
a:link {
	color: #000000;
}
a:visited {
	color: #000000;
}
a:hover {
	color: #FF6600;
}
-->
</style>
<link href="../images/style.css" rel="stylesheet" type="text/css">
</head>

<body leftMargin="0" topMargin="0" bgcolor="#FFFFFF">
<table width="450" height="25" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" valign="top">使用站内短信，您可以方便的快捷的与管理员通讯</td>
  </tr>
</table>
<table width="450" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="25" align="center" valign="bottom">每天最多发<%=max_send%>条，还可发送<%=cint(max_send)-cint(total_send)%>条</td>
    <td width="60" rowspan="2" align="center"><img src="../images/msg_write1.gif" width="40" height="40" border="0"></td>
    <td width="60" rowspan="2" align="center"><a href="user_msg.asp"><img src="../images/msg_inbox1.gif" width="40" height="40" border="0"></a></td>
    <td width="60" rowspan="2" align="center"><a href="user_msg.asp?sql=outbox"><img src="../images/msg_send1.gif" width="40" height="40" border="0"></a></td>
  </tr>
  <tr>
    <td height="25" align="center"><%if request.querystring("sql")="write" then%>撰写<%end if%><%if request.querystring("sql")="" then%>已接收的<%end if%><%if request.querystring("sql")="outbox" then%>已发送的<%end if%>站内短信</td>
  </tr>
</table>
<%
if request.QueryString("id")="" then
response.write "<span class='f3'>程序出错，无法获取公告ID值</span>"
response.end
end if
if myobj.ChkNum(request.querystring("id"))=false then
response.write "<span class='f3'>程序出错，公告ID值类型错误</span>"
response.end
end if
set rs=server.createobject("adodb.recordset")
rs.open "select * from webmessage where id="&request.QueryString("id")&"",conn,1,1
if rs.eof then
response.write "<span class='f3'>错误：该公告并不存在</span>"
response.end
else
msg_title=rs("msg_title")
msg_body=rs("msg_body")
msg_time=rs("msg_time")
end if
rs.close
set rs=server.createobject("adodb.recordset")
rs.open "select * from webmessage where id="&request.QueryString("id")&"",conn,1,3
if rs("to_userid")<>"@admin@" then
rs("is_read")=true
rs.update
end if
rs.close
%>
<table width="450" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#E7E7E7">
  <tr>
    <td height="25" align="left" bgcolor="#F7F7F7">短信标题：<%=msg_title%></td>
  </tr>
  <tr>
    <td height="25" align="left" bgcolor="#F7F7F7">接收时间：<%=msg_time%></td>
  </tr>
  <tr>
    <td height="25" align="left" bgcolor="#FFFFFF"><%=myobj.formatbody(msg_body)%></td>
  </tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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