📄 per_readbox.asp

📁 直接附加数据库！修改 Include/ Class_Main.asp 为自己信息后台admin admin 绍兴人才网程序
💻 ASP
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Public/Person_Cookies.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<% 
Dim Ncid,Action
Dim Rs,SQL
Dim Perid,UserName
Dim Comid,Jobid,AddDate,Title,Memo

'//获取个人用户的登陆标记
If IsArray(Session("Person")) Then
 Perid = Session("Person")(2)
 UserName = Session("Person")(0)
Else
 Session.Abandon() 
 Response.write "<script>alert('-登录后才能进行该操作！-');window.close();</script>"
 Response.End()
End if
'//获取和判断参数
Ncid     = Replace_Text(Request("param"))
If Ncid = "" Then
 Response.write "<script language=JavaScript>alert('您没有选择记录！');window.close();</script>"
 Response.End()
End if
'//查找信件
SQL = "Select * From [pH_Person_InBox] Where Perid='"&Perid&"' And Ncid="&Cstr(Ncid)
Set Rs = Conn.Execute(SQL)
If Rs.Eof Then
 Response.write "<script language=JavaScript>alert('没有找到该信件！');window.close();</script>"
 Response.End()
End if
Comid     = Rs("Comid")
Jobid     = Rs("Jobid")
AddDate   = Rs("AddDate")
Title     = Rs("Title")
Memo      = Rs("Memo") 
Rs.Close
'//将信件设置为已经阅读状态
Conn.Execute("Update [pH_Person_InBox] Set Flag=1 Where Perid='"&Perid&"' And Ncid="&Cstr(Ncid))
'//获取职位名称和企业名称
SQL = "Select C.CompanyName,J.JobName,J.Comid From pH_Company_Base As C,pH_Job_Base As J Where C.Comid=J.Comid And J.Jobid="&Cstr(Jobid)
Set Rs = Conn.Execute(SQL)
If Rs.Eof Then
 Response.write "指定的企业或者职位不存在..."
 Response.End()
End if
CompanyName  = Rs(0) '企业名称
JobName      = Rs(1) '职位名称
Rs.Close

 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Css.css" type=text/css rel=stylesheet>
<title><%= Cls_WebName %> -- 个人会员管理中心 -- 阅读信件</title>
</head>
<body>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="470" border="0" align="center" cellpadding="0" cellspacing="0">
 
    <tr> 
      <td><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="eeeeee">
          <tr>
            <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
                <tr>
                  <td height="25" bgcolor="f9f9f9"> &nbsp;<img src="../Images/icon.gif" width="11" height="11" align="absmiddle"> 
                    <strong>阅读信件</strong> </td>
                </tr>
              </table>
              <table width="100%" border="0" cellspacing="1" cellpadding="0">
                <tr>
                  <td height="2"></td>
                </tr>
              </table>
              
            <table width="100%" border="0" cellspacing="1" cellpadding="4">
              <tr> 
                  
                <td width="80" height="25" align="right" bgcolor="f9f9f9">发件企业：</td>
                  <td height="25" bgcolor="f9f9f9"><%= CompanyName %></td>
                </tr>
                <tr> 
                  
                <td width="80" height="25" align="right" bgcolor="f9f9f9">收件时间：</td>
                  <td height="25"><%= AddDate %></td>
                </tr>
                <tr> 
                  
                <td width="80" height="25" align="right" bgcolor="f9f9f9">职位名称：</td>
                  <td height="25" bgcolor="f9f9f9"><%= JobName %></td>
                </tr>
                <tr> 
                  
                <td width="80" height="25" align="right" bgcolor="f9f9f9">信件标题：</td>
                  <td height="25"><%= Title %></td>
                </tr>
                <tr> 
                  
                <td width="80" height="25" align="right" bgcolor="f9f9f9">内 容：</td>
                  <td height="25" bgcolor="f9f9f9">
				  <%= Memo %>
				  </td>
                </tr>
              </table></td>
          </tr>
        </table></td>
    </tr>
    <tr>
      <td height="40" align="center"> 
        <input type="button" name="Submit2" value="关 闭" style="height:30px;" onClick="window.close();">
      </td>
    </tr>
  
</table>
</body>
</html>
<% 

'//关闭数据库连接
CloseDB
 %>
⌨️ 快捷键说明

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