checkmymail.asp

来自「这是ASP的OA」· ASP 代码 · 共 38 行

ASP
38 行
字号 
<!-- #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>

checkmymail.asp - 源码说明

本页面展示了「这是ASP的OA」中的 checkmymail.asp 源码文件，采用 ASP 编程语言编写，共 38 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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