edit_mail_old.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:5k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  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>
  17. <body>
  18.   <%
  19. if request("id")<>"" then
  20.   id=request("id")
  21.   sql = "select * from mail where id="&id
  22.   Set rs = Server.CreateObject("ADODB.RecordSet")
  23.   rs.Open sql,conn,1,1
  24.   name1=rs("name")
  25.   email=rs("email")
  26.   email_pop=rs("email_pop")
  27.   email_pass=rs("email_pass")
  28.   title=rs("title")
  29.   add=rs("add")
  30.   content=rs("info")
  31.   rs.close
  32.   set rs=nothing
  33. end if
  34. %>
  35. <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">
  36.   <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF">
  37.     <tr> 
  38.       <td width="14%" height="25" bgcolor="#FFFFFF"><font size="2">发件人名称:</font></td>
  39.       <td width="67%" bgcolor="#FFFFFF"> <input name="name" type="text" id="name" value="<%=name1%>"> 
  40.       </td>
  41.       <td width="19%" rowspan="6" bgcolor="#FFFFFF">邮件列表: 
  42.         <textarea name="add" rows="40" id="add"><%=add%></textarea></td>
  43.     </tr>
  44.     <tr> 
  45.       <td height="25" bgcolor="#FFFFFF"><font size="2">发件人邮箱:</font></td>
  46.       <td height="10" bgcolor="#FFFFFF"> <input name="email" type="text" id="email" value="<%=email%>"></td>
  47.     </tr>
  48.     <tr> 
  49.       <td height="25" bgcolor="#FFFFFF">发件人POP3邮箱<font size="2">:</font></td>
  50.       <td height="4" bgcolor="#FFFFFF"><input name="email_pop" type="text" id="email_pop" value="<%=email_pop%>"> 
  51.       </td>
  52.     </tr>
  53.     <tr> 
  54.       <td height="25" bgcolor="#FFFFFF"><font size="2">发件人邮箱密码:</font></td>
  55.       <td height="5" bgcolor="#FFFFFF"><input name="email_pass" type="password" id="email_pass" value="<%=email_pass%>"></td>
  56.     </tr>
  57.     <tr> 
  58.       <td height="25" bgcolor="#FFFFFF"><font size="2">发件主题:</font></td>
  59.       <td height="10" bgcolor="#FFFFFF"> <input name="title" type="text" id="title" value="<%=title%>" size="70"></td>
  60.     </tr>
  61.     <tr> 
  62.       <td height="500" colspan="2" bgcolor="#FFFFFF">
  63.   
  64.   
  65. <table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
  66. <tr>
  67. <td>
  68. <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan -->
  69.               <script Language="JavaScript" Type="text/javascript"><!--
  70. function FrontPage_Form1_Validator(theForm)
  71. {
  72.   if (theForm.title.value == "")
  73.   {
  74.     alert("请在 新闻信息标题 域中输入值。");
  75.     theForm.title.focus();
  76.     return (false);
  77.   }
  78.   if (theForm.title.value.length < 5)
  79.   {
  80.     alert("在 新闻信息标题 域中,请至少输入 5 个字符。");
  81.     theForm.title.focus();
  82.     return (false);
  83.   }
  84.   if (theForm.title.value.length > 100)
  85.   {
  86.     alert("在 新闻信息标题 域中,请最多输入 100 个字符。");
  87.     theForm.title.focus();
  88.     return (false);
  89.   }
  90.   return (true);
  91. }
  92. //--></script><!--webbot BOT="GeneratedScript" endspan -->
  93. <table border="1" width="100%" id="table2" cellspacing="0" cellpadding="5" style="border-collapse: collapse" bordercolor="#80ABF4">
  94. <tr style="DISPLAY: none">
  95.                   <td width="10%" align="center">新闻信息标题</td>
  96.                   <td width="47%"> &nbsp;
  97.                     <!--webbot bot="Validation" s-display-name="新闻信息标题" b-value-required="TRUE" i-minimum-length="5" i-maximum-length="100" -->
  98.                   </td style="DISPLAY: none">
  99. <td width="40%">填写新闻信息标题(不能超过100字)</td>
  100. </tr>
  101. <tr style="DISPLAY: none">
  102. <td width="10%" align="center">栏目选择</td>
  103. <td width="47%">&nbsp;<select size="1" name="lm">
  104. </select><textarea name="content" style="display:none" cols="1" rows="1"><%if content<>"" then response.write content%></textarea></td>
  105. <td width="40%"> </td>
  106. </tr>
  107. <tr>
  108. <td colspan="3">
  109. <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>
  110. </tr>
  111. <tr>
  112. <td width="10%"> </td>
  113. <td width="47%"> </td>
  114. <td width="40%"> </td>
  115. </tr>
  116. </table>
  117. <p align="center"><input type="submit" value=" 保 存 " name="B1">   <input type="reset" value=" 重 置 " name="B2"></p>
  118. <p> </td>
  119. </tr>
  120. </table>
  121.   
  122.    </td>
  123.     </tr>
  124.   </table>
  125. </form>
  126. </body>
  127. </html>
  128. <%
  129. conn.close
  130. set conn=nothing
  131. %>