BVB Source Codes

Seven VIP jubilee dance CMS management system Show Admin_Email.asp Source code

Return Download Seven VIP jubilee dance CMS management system: download Admin_Email.asp Source code - Download Seven VIP jubilee dance CMS management system Source code - Type:.asp
  1. <!--#include file="Const.asp"-->
  2. <%Call YLMV_REFERER(1):Call YLMV_FLAG(Ylmv_Com_AdminAa)%>
  3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  4. <html xmlns="http://www.w3.org/1999/xhtml">
  5. <head>
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <title>管理中心 - 发送邮件</title>
  8. <link href="inc/admin.css" rel="stylesheet" type="text/css" />
  9. </head>
  10. <body>
  11. <%
  12. if Request.QueryString("action")="qdo" then
  13. q_title=CheckStr(request.form("q_title"))
  14. q_content=CheckStr(request.form("q_content"))
  15. if q_title="" then
  16. errornum=1
  17. errormsg=errormsg&"<li>标题不能为空</li>"
  18. end if
  19. if q_content="" then
  20. errornum=1
  21. errormsg=errormsg&"<li>内容不能为空</li>"
  22. end if
  23. if errornum=1 then
  24. call error("错误信息",errormsg)
  25. response.end
  26. end if
  27. emailtopic=q_title  
  28.    emailbody=""&vbCrlf&"亲爱的"&q_username&", 您好!"
  29.    emailbody=emailbody & ""&vbCrlf&""&vbCrlf&"这是《"&webname&"》发送给您的邮件!内容如下:"&vbCrlf&""&vbCrlf&""
  30.    emailbody=emailbody & q_content
  31.    emailbody=emailbody &""&vbCrlf&""&vbCrlf&"====================================="
  32.    emailbody=emailbody & ""&vbCrlf&""&vbCrlf&"本站地址:"&weburl
  33. sql2="select email from [Ylmv_User]"
  34. set rs2=conn.execute(sql2)
  35. if not (rs2.eof or rs2.bof) then
  36. do while not rs2.eof
  37. if IsValidEmail(rs2("email"))=true then
  38. i=0
  39. emaito=rs2("email")%>
  40. <!-- #include file="../Inc/Email_Inc.asp" -->
  41. <%if SendMail<>"OK" then exit do
  42. end if
  43. rs2.movenext
  44. i=i+1
  45. loop
  46. rs2.close
  47. set rs2=nothing
  48. end if
  49.         if SendMail="OK" then
  50.                 sendmsg="邮件发送成功,共发送"&i&"封邮件<br>"
  51.         else
  52.                 sendmsg=sendmsg&"很抱歉,由于系统错误,发送失败<br>"
  53.         end if
  54. call error("操作信息",sendmsg)
  55. response.end
  56. end if
  57. %>
  58. <% if Request.QueryString("action")="ddo" then
  59. d_title=CheckStr(request.form("d_title"))
  60. d_content=CheckStr(request.form("d_content"))
  61. emailto=CheckStr(request.form("d_email"))
  62. d_username=CheckStr(request.form("d_username"))
  63. if d_username="" then
  64. errornum=1
  65. errormsg=errormsg&"<li>接收人不能为空</li>"
  66. end if
  67. if emailto="" then
  68. errornum=1
  69. errormsg=errormsg&"<li>email不能为空</li>"
  70. end if
  71. if IsValidEmail(emailto)=false then
  72. errornum=1
  73. errormsg=errormsg&"<li>email格式不对</li>"
  74. end if
  75. if d_content="" then
  76. errornum=1
  77. errormsg=errormsg&"<li>内容不能为空</li>"
  78. end if
  79. if errornum=1 then
  80. call error("错误信息",errormsg)
  81. response.end
  82. end if
  83. emailtopic=d_title
  84.    emailbody=""&vbCrlf&"亲爱的"&d_username&", 您好!"
  85.    emailbody=emailbody & ""&vbCrlf&""&vbCrlf&"这是《"&webname&"》发送给您的邮件!内容如下:"&vbCrlf&""&vbCrlf&""
  86.    emailbody=emailbody & d_content
  87.    emailbody=emailbody &""&vbCrlf&""&vbCrlf&"====================================="
  88.    emailbody=emailbody &""&vbCrlf&"本站地址:"&weburl
  89. %>
  90. <!-- #include file="../Inc/Email_Inc.asp" -->
  91. <%
  92.         if SendMail="OK" then
  93.                 sendmsg="邮件发送成功<br>"
  94.         else
  95.                 sendmsg=sendmsg&"很抱歉,由于系统错误,发送失败<br>"
  96.         end if
  97. call error("操作信息",sendmsg)
  98. response.end
  99. end if
  100.  
  101. sub error(errortite,errormsg)
  102. response.write "<table width=100% align='center' border='1' cellspacing='0' cellpadding='4' class=Ylmv_Com_bk style='border-collapse: collapse'>"&_
  103.                 "<tr class=Ylmv_Com_ss>"&_
  104.                 "<td width=""100%""><b>"+errortite+"</b></td>"&_
  105.                 "</tr><tr class=Ylmv_Com_ds><td width=""100%"">"&_
  106.                 "<b>提示:</b><br><br>"&_
  107.                 ""&errormsg&" </td></tr><tr class=Ylmv_Com_qs align=center><td width=""100%"">"&_
  108.                 "<a href=javascript:history.go(-1)> << 返 回</a>"&_
  109.                 "</td></tr></table>"
  110. end sub
  111. %>
  112. <table align="center" width="96%" align="center" border="1" cellspacing="0" cellpadding="4" class=Ylmv_Com_bk style="border-collapse: collapse">
  113. <form name="form1" method="POST" action="?action=qdo" >
  114.    <tr class=Ylmv_Com_ss>
  115.       <td colspan="2" height=22>群发邮件</td>
  116.     </tr>
  117.     <tr class=Ylmv_Com_ds>
  118.       <td align="right" width="20%">邮件主题:</td>
  119.       <td>
  120.         <input type="text" name="q_title" size="30" >
  121.       </td>
  122.     </tr>
  123.     <tr class=Ylmv_Com_ds>
  124.       <td align="right" width="20%">邮件内容:</td>
  125.       <td>
  126.         <textarea rows="4" name="q_content" cols="50"></textarea>
  127.       </td>
  128.     </tr>
  129.     <tr class=Ylmv_Com_qs>
  130.       <td width="20%" align="right"> </td>
  131.       <td>
  132.         &nbsp;<input type="submit" name="Submit" value="提 交" class="button">
  133.         <input type="reset" name="Submit2" value="重 置" class="button">
  134.       </td>
  135.     </tr>
  136.     <tr class=Ylmv_Com_qs>
  137.       <td align="center" width="20%" colspan="2">
  138.       信息将发送到所有注册时完整填写了信箱的用户,群发邮件的使用将消耗大量的服务器资源,请慎用。
  139.       </td>
  140.     </tr>
  141.   </table>
  142.   </div>
  143.   </form>
  144. <br>
  145. <table align="center" width="96%" align="center" border="1" cellspacing="0" cellpadding="4" class=Ylmv_Com_bk style="border-collapse: collapse">
  146.  <form name="form1" method="POST" action="?action=ddo" >
  147.     <tr class=Ylmv_Com_ss>
  148.       <td colspan="2" height=22>单发邮件</td>
  149.     </tr>
  150.     <tr class=Ylmv_Com_ds>
  151.       <td align="right" width="20%">接收人:</td>
  152.       <td>
  153.         <input type="text" name="d_username" size="30" >
  154.       </td>
  155.     </tr>
  156.     <tr class=Ylmv_Com_ds>
  157.       <td align="right" width="20%">接收人email:</td>
  158.       <td class=cpb_td_bgcolor2>
  159.         <input type="text" name="d_email" size="30" >
  160.       </td>
  161.     </tr>
  162.     <tr class=Ylmv_Com_ds>
  163.       <td align="right" width="20%">邮件主题:</td>
  164.       <td>
  165.         <input type="text" name="d_title" size="30" >
  166.       </td>
  167.     </tr>
  168.     <tr class=Ylmv_Com_ds>
  169.       <td align="right" width="20%">邮件内容:</td>
  170.       <td>
  171.         <textarea rows="4" name="d_content" cols="50"></textarea>
  172.       </td>
  173.     </tr>
  174.     <tr class=Ylmv_Com_qs>
  175.       <td width="20%" align="right"> </td>
  176.       <td>
  177.         &nbsp;<input type="submit" name="Submit" value="提 交" class="button">
  178.         <input type="reset" name="Submit2" value="重 置" class="button">
  179.       </td>
  180.     </tr>
  181.     <tr class=Ylmv_Com_qs>
  182.       <td align="right" width="20%" colspan="2">
  183.       <p align="center">信息将发送到您想发送的邮箱</td></tr>
  184.   </table>
  185. <%call footer()%>
  186. </body>
  187. </HTML>
downloadAdmin_Email.asp Source code - Download Seven VIP jubilee dance CMS management system Source code
Related Source Codes/Software:
Jie Yang v0.6.3 article system - System functions: 1, the system settings A confi... 2016-09-21
Download IT mop stand (with site to download the database ACC) - Background management: http://www.xxx.com/admin/ad... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
PeterCMS3 v3.2 - PeterCMS is the original sirenCMS and a series of ... 2016-09-21
Subdomain hosting edition v1.9 s taobao, pat - The background site admin 2016-09-21
126oo CMS film station system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Copy the site source code v2.01 - It is ok to cover the folder % S 2016-09-21
ETsale simple product sales management system V3.0 formal version - ETsale3.0 is developed by PHP+MySQL+Smarty+jQuery ... 2016-09-21
Mobile - shop. Tk all source code - Admin admin.php no database. The total data Modi... 2016-09-22
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top