⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 email_add.asp

📁 企业信息化管理系统:针对的是一个计算机配件生产公司为背景实现的。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>发送邮件</title>
<script language="vbscript">
sub Mycheck()
if form1.shouren.value="" then
 window.alert("请输入收件人姓名!")
 form1.shouren.focus()
else if form1.zhuti.value="" then
       window.alert("请输入邮件主题!")
       form1.zhuti.focus()
     else if form1.neirong.value="" then
            window.alert("请输入邮件内容!")
            form1.neirong.focus()
           else
            form1.submit()
			end if
	end if
end if
end sub
</script>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
}
.style10 {color: #669999}
.style12 {color: #C60001}
-->
</style>
</head>

<body>
<!--#include file="auto.asp" -->
<%
   set RS = server.CreateObject("ADODB.Recordset")  
   Sname = "select Message.Name,Message.ID from Message where Message.ID = '"&Session("Rname")&"'"
   RS.open Sname, CN   
   
%>
<table width="600" height="259" border="0" cellpadding="-2" cellspacing="1" bgcolor="#336699">
  <tr>
    <td height="222" valign="top" colspan="2" bgcolor="#FFFFFF">
	<form name="form1" method="post" action="email_add_OK.asp?faren=<%=Session("Rname")%>">
      <table width="99%" height="216" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#336699">
        <tr>
		<strong><td width="15%" height="24" align="right" valign="middle" bgcolor="#FFFFFF"> 
	<img src="../picture/icon_email.GIF" width="15" height="15">&nbsp;</td>
    <td width="67%" height="24" align="center" bgcolor="#FFFFFF"><div align="left"><span class="style10">&nbsp;<%=RS("Name")%>	&nbsp;<img src="../picture/icon_smile.GIF" width="15" height="15">您好!&nbsp;&nbsp;</span></div></td></strong>
		</tr>
		<tr>
          <td width="19%" height="30" valign="top" bgcolor="#FFFFFF">
		  <div align="right">收件人:</div></td>
          <td width="81%" valign="top" bgcolor="#FFFFFF">
		  <input name="shouren" type="text" id="shouren">
		  <span class="style10">
		  <select name="part">
		    <option value="caiwu">财务部</option>
		    <option value="renshi">人事部</option>
		    <option value="chejian">车间</option>
		  </select>
		  (请输入用户名)</span></td>
          </tr>
        <tr>
          <td width="19%" height="32" valign="top" bgcolor="#FFFFFF"><div align="right">		  主 题:</div></td>
          <td valign="top" bgcolor="#FFFFFF">
		  <input name="zhuti" type="text" id="zhuti" size="34"></td>
        </tr>
        <tr>
          <td height="116" valign="top" bgcolor="#FFFFFF"><div align="right">内 容:</div></td>
          <td valign="top" bgcolor="#FFFFFF">
		  <textarea name="neirong" cols="53" rows="15" id="neirong"></textarea></td>
          </tr>
        <tr valign="middle">
          <td height="38" colspan="2" bgcolor="#FFFFFF"><div align="center">
              <input name="fasong" type="button"  value="确定发送" onClick="Mycheck()">
              <input name="reset" type="reset"  value="重置">
              <input name="Myclose" type="button" id="Myclose" value="关闭窗口" onClick="JavaScript:window.close()">
				</div></td>
          </tr>
      </table>
      </form></td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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