📄 email_add_ok.asp

📁 企业信息化管理系统：针对的是一个计算机配件生产公司为背景实现的。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/auto.asp" -->
<%
	set RS = server.CreateObject("ADODB.Recordset")  
	sqlcount="select id from email order by id desc"
	rs.open sqlcount,CN
	if rs.eof then
	   EmailId=1
	else
	   EmailId=rs("id")+1
	end if 
%>
<%
   set RS = server.CreateObject("ADODB.Recordset")   
   Sname = "select Message.ID from Message, Login where Message.Name='"&Request.form("shouren")&"' and Message.ID = Login.ID and Login.Part ='"&Request.form("Part")&"'"
   RS.open Sname,CN,1,3  
   
%>
<%
'查询用户输入的员工姓名是否存在
if RS.eof then
	RS.close
	CN.close
	response.Redirect("email_add_fail.asp")'将网页重向到发送失败页面
end if
%>
<%
'保存邮件信息
 shouren = RS("ID")
 faren = request.QueryString("faren")
 biaoti = request.form("zhuti")
 neirong = request.form("neirong")
Ins_email="INSERT INTO email (id,faren,shouren,biaoti,neirong,liulan,fbshj) VALUES(" & EmailID
Ins_email=Ins_email & ",'" & faren&"','"&shouren&"','"&biaoti&"','"&neirong&"',0,'"&Date()&"')"
'response.write Ins_email
'response.end 
CN.Execute(Ins_email)
'RS.open Ins_email,CN
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>发送Email成功！</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
.style1 {color: #C60001}
.style3 {
	color: #C60001;
	font-size: 12pt;
	font-weight: bold;
}
-->
</style></head>

<body>
<table width="600" height="401" border="0" cellpadding="-2" cellspacing="-2" background="picture/chuangkou.jpg">
  <tr>
    <td width="600" height="349" valign="top"><table width="100%" height="115"  border="0" cellpadding="-2" cellspacing="-2">
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table>      
      <form name="form1" method="post" action="">
        <table width="80%" height="147"  border="0" align="center" cellpadding="-2" cellspacing="-2">
          <tr>
            <td height="83"><div align="center" class="style1"></div>              
            <div align="center"><span class="style3">发送Email成功！</span></div></td>
          </tr>
          <tr>
            <td height="25" valign="top"><div align="center" class="style1"></div></td>
          </tr>
          <tr>
            <td><div align="center">
                <input name="Button" type="button"  value="继续" onClick="Javascript:window.location='email_add.asp'">
                <input name="myclose" type="button"  id="myclose" value="关闭" onClick="javascrip:window.close()">
            </div></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

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