📄 msg_read.cgi
字号:
$pagetitle="查看短消息";
sub msg_read {
&error("指定信息不存在！") if (!$fields{'msg'});
print qq~
<script>
function enable(btn){
btn.filters.gray.enabled=0;}
function disable(btn){
btn.filters.gray.enabled=1;}
</script>
<style>
.gray {CURSOR:hand;filter:gray}
</style>
<body bgcolor=#ffffff topmargin=10 leftmargin=10>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=#000000 align=center>
<tr><td>
<table cellpadding=3 cellspacing=1 border=0 width=100%>
<form action="$indexurl?job=msg_delete$userinfo" method=post>
<tr>
<td bgcolor=#e8f4ff align=center colspan=4><font color=#333333><b>欢迎使用您的收件箱，<font face=Verdana>$uname</font></b></td>
</tr>
~;
open(FILE, "${userhead}info/$uid.cgi");
foreach (<FILE>) {
($mid,$mgzt,$msid,$msname,$msemail,$msubject,$mcontent,$mstime,$msmode,$mtemp1,$mtemp2,$mtemp3,$end) = split(/\‖/,$_);
if ($fields{'msg'} eq $mid) {
$get_read="yes";
print qq~
<tr>
<td bgcolor=#c8e4ff align=center colspan=4><a href='$indexurl?job=msg_inbox$userinfo'><img src=images/inboxpm.gif border=0 alt="收件箱" class="gray" onmouseover="enable(this)" onmouseout="disable(this)" width=50 height=40></a> <a href='$indexurl?job=msg_send$userinfo'><img src=images/newpm.gif border=0 alt="发送消息" class="gray" onmouseover="enable(this)" onmouseout="disable(this)" width=50 height=40></a> <a href='$indexurl?job=msg_send&touser=$msid&totitle=Re:$msubject&msgid=$mid$userinfo'><img src=images/replypm.gif border=0 alt="回复消息" class="gray" onmouseover="enable(this)" onmouseout="disable(this)" width=50 height=40></a> <a href='$indexurl?job=msg_delete&msg=$fields{'msg'}$userinfo'><img src=images/deletepm.gif border=0 alt="删除消息" class="gray" onmouseover="enable(this)" onmouseout="disable(this)" width=50 height=40></a></td>
</tr>
<TR>
<TD align=middle bgColor=#e8f4ff><FONT
color=#333333>消息来自<B><img src=images/88.gif align=absmiddle><a href='$indexurl?job=msg_send&touser=$msid$userinfo' title='给[$msname]发送一条短信息！'>$msname\[$mid]</a></B>，发送时间：<font face=Verdana>$mstime</font></FONT></TD></TR>
<TR>
<TD bgColor=#c8e4ff vAlign=top><FONT color=#333333><B>消息标题：$msubject</B><P>$mcontent</P></FONT></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
~;
do "$cgihead/writeumsg.cgi";&rmsg($mid,"read");#标记为已读
last;
}
}
close(FILE);
&error("指定信息不存在！") if ($get_read ne "yes");
}⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -