开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Email服务器 > 查看源码
edit_mail.asp
资源名称：imail.rar　[点击查看]
上传用户：lwb168
上传日期：2021-10-31
资源大小：722k
文件大小：5k
源码类别：

Email服务器

开发平台：

ASP/ASPX

edit_mail.asp：源码内容
  1. <!--#include file = admin_conn.asp -->
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  5. <title>新增--群发邮件</title>
  6. <base target="_self">
  7. <STYLE type="text/css"> <!-- a:link { text-decoration: none; font-family: AdobeSm; color: #000000 }
  8. a:visited { text-decoration: none; color: #000000 }
  9. A:hover {COLOR: green; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline;}
  10. body { font-size: 9pt; font-family: 宋体, Arial;color: #000000}
  11. TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
  12. p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
  13. input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000}
  14. body { margin-top: 0; margin-bottom: 0; color: #000000 }
  15. --></STYLE>
  16. </head>
  18. <body>
  19.   <%
  20. if request("id")<>"" then
  21.   id=request("id")
  22.   sql = "select * from mail where id="&id
  23.   Set rs = Server.CreateObject("ADODB.RecordSet")
  24.   rs.Open sql,conn,1,1
  25.   name1=rs("name")
  26.   email=rs("email")
  27.   email_pop=rs("email_pop")
  28.   email_pass=rs("email_pass")
  29.   title=rs("title")
  30.   add=rs("add")
  31.   content=rs("info")
  32.   rs.close
  33.   set rs=nothing
  34. end if
  35. %>
  39. <form method="POST" action="admin_news_add_save.asp<%if request("id")<>"" then response.write "?edit=1&id="&request("id")%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
  40.   <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF">
  41.     <tr> 
  42.       <td width="14%" height="25" bgcolor="#FFFFFF"><font size="2">发件人名称:</font></td>
  43.       <td width="67%" bgcolor="#FFFFFF"> <input name="name" type="text" id="name" value="<%=name1%>"> 
  44.       </td>
  45.       <td width="19%" rowspan="6" bgcolor="#FFFFFF">邮件列表: 
  46.         <textarea name="add" rows="40" id="add"><%=add%></textarea></td>
  47.     </tr>
  48.     <tr> 
  49.       <td height="25" bgcolor="#FFFFFF"><font size="2">发件人邮箱:</font></td>
  50.       <td height="10" bgcolor="#FFFFFF"> <input name="email" type="text" id="email" value="<%=email%>"></td>
  51.     </tr>
  52.     <tr> 
  53.       <td height="25" bgcolor="#FFFFFF">发件人smtp邮箱<font size="2">:</font></td>
  54.       <td height="4" bgcolor="#FFFFFF"><input name="email_pop" type="text" id="email_pop" value="<%=email_pop%>"> 
  55.       </td>
  56.     </tr>
  57.     <tr> 
  58.       <td height="25" bgcolor="#FFFFFF"><font size="2">发件人邮箱密码:</font></td>
  59.       <td height="5" bgcolor="#FFFFFF"><input name="email_pass" type="password" id="email_pass" value="<%=email_pass%>"></td>
  60.     </tr>
  61.     <tr> 
  62.       <td height="25" bgcolor="#FFFFFF"><font size="2">发件主题:</font></td>
  63.       <td height="10" bgcolor="#FFFFFF"> <input name="title" type="text" id="title" value="<%=title%>" size="70"></td>
  64.     </tr>
  65.     <tr> 
  66.       <td height="500" colspan="2" bgcolor="#FFFFFF">
  67.   
  68.   
  70. <table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
  71. <tr>
  72. <td>
  73. <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
  74.               <script Language="JavaScript" Type="text/javascript"><!--
  75. function FrontPage_Form1_Validator(theForm)
  76. {
  78.   if (theForm.title.value == "")
  79.   {
  80.     alert("请在 新闻信息标题 域中输入值。");
  81.     theForm.title.focus();
  82.     return (false);
  83.   }
  85.   if (theForm.title.value.length < 5)
  86.   {
  87.     alert("在 新闻信息标题 域中，请至少输入 5 个字符。");
  88.     theForm.title.focus();
  89.     return (false);
  90.   }
  92.   if (theForm.title.value.length > 100)
  93.   {
  94.     alert("在 新闻信息标题 域中，请最多输入 100 个字符。");
  95.     theForm.title.focus();
  96.     return (false);
  97.   }
  98.   return (true);
  99. }
  100. //--></script><!--webbot BOT="GeneratedScript" endspan -->
  101. <table border="1" width="100%" id="table2" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#80ABF4">
  102. <tr style="DISPLAY: none">
  104.                   <td width="10%" align="center">新闻信息标题</td>
  106.                   <td width="47%"> &nbsp;
  107.                     <!--webbot bot="Validation" s-display-name="新闻信息标题" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="100" -->
  108.                   </td style="DISPLAY: none">
  109. <td width="40%">填写新闻信息标题（不能超过100字）</td>
  110. </tr>
  111. <tr style="DISPLAY: none">
  112. <td width="10%" align="center">栏目选择</td>
  113. <td width="47%">&nbsp;<select size="1" name="lm">
  114. </select><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
  115. <td width="40%">　</td>
  116. </tr>
  117. <tr>
  118. <td colspan="3">
  119. <IFRAME ID="eWebEditor1" SRC="edit/ewebeditor.asp?id=content&style=news" FRAMEBORDER="0" SCROLLING="no" WIDTH="100%" HEIGHT="400" marginwidth="1" marginheight="1" name="wfasdg"></IFRAME></td>
  120. </tr>
  121. <tr>
  122. <td width="10%">　</td>
  123. <td width="47%">　</td>
  124. <td width="40%">　</td>
  125. </tr>
  126. </table>
  127. <p align="center"><input type="submit" value="　保　存　" name="B1">　　　<input type="reset" value="　重　置　" name="B2"></p>
  129. <p>　</td>
  130. </tr>
  131. </table>
  132.   
  133.    </td>
  134.     </tr>
  135.   </table>
  136. </form>
  137. </body>
  138. </html>
  139. <%
  140. conn.close
  141. set conn=nothing
  142. %>