📄 checkmymail.asp
字号:
<!-- #include file="const.asp" -->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--<meta http-equiv="refresh" content="180;url=checkmymail.asp">-->
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#ECE9D9" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class="v7">
<%
dim tmpsql,tmprs,n
n=0
call opendb()
if cint(userlevel())<1 then
response.Write("<img src='images/btn_face.gif' width='10' height='7'><a href='message.asp' target='_top'>我的信箱</a>")
else
tmpsql="select count(id) from m3_message where to1='"&request.Cookies("matrix3")("matrix3_name")&"' and owner='"&request.Cookies("matrix3")("matrix3_name")&"' and valid=1 and isnew=1"
set tmprs=conn.execute(tmpsql)
n=tmprs(0)
set tmprs=nothing
if isnull(n) then n=0
if cint(n)>cint(0) then
response.Write("<bgsound src='images/mail.wav' border=0>")
response.Write("<img src='images/btn_face.gif' width='10' height='7'><a href='message.asp' target='_top'>新邮件(<font color=red><b>"&n&"</b></font>)</a>")
else
response.Write("<img src='images/btn_face.gif' width='10' height='7'><a href='message.asp' target='_top'>我的信箱</a>")
end if
end if
call closedb()
%>
</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -