WEB源码(ASP,PHP,...)

开发平台：
DOS

sendmail.asp：源码内容
							<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登陆！');window.location.href='login.asp';</script>"
response.End
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="CSS.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">
<%
action=request("action")
if action="send" then
call sendmail()
else
usermail=request.ServerVariables("query_string")
%>
<form action="sendmail.asp" method=post name=usermail>
<table width="98%" border="1"  style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2" style="word-break:break-all">
<tr><td colspan=2 background="../images/admin_bg_1.gif" height=25><div align=center>向会员发送邮件</div></td></tr>
<tr><td width=20%  bgcolor='#fbf4f4' align=center>收件人</td>
<td  bgcolor='#fbf4f4'><TEXTAREA NAME="usermail" rows=4 style="width=80% ; overflow:auto;"><%=usermail%></TEXTAREA><br>填写收件人邮箱地址多个邮箱以半角逗号或分号隔开 </td></TR>
<tr><td width=20%  bgcolor='#fbf4f4' align=center>邮件主题</td><td><input type=text name=mail_subject style="width=80%;" maxlength=50>
      &nbsp; </td>
  </TR>
<tr><td width=20%  bgcolor='#fbf4f4' align=center>邮件内容<br><br><font color=red>（1000字符以内）</font></td><td  bgcolor='#fbf4f4'><TEXTAREA NAME="mail_body" ROWS="15" style="width=80% ; overflow:auto;"></TEXTAREA>
      &nbsp; </td>
  </TR>
<tr><td  bgcolor='#fbf4f4'colspan=2>
<input type=hidden name=action value="send">
<input type=submit value="立即发送" onclick="{if(confirm('请注意，不要发送垃圾邮件！nn确认要发送这些邮件吗？确认无误后单击“确定”继续~')){this.document.usermail.submit();return true;}return false;}">
&nbsp; &nbsp; &nbsp; <input type="reset" value="重新填写">
</table>
</form>
<%
end if
sub sendmail()
mail_subject=trim(request("mail_subject"))
mail_body=trim(request("mail_body"))
usermail=trim(request("usermail"))
usermail=replace(usermail," ","")
usermail=replace(usermail,"；",";")
usermail=replace(usermail,"，",";")
usermail=replace(usermail,",",";")
if usermail="" or mail_subject="" or mail_body="" then
response.write "<script language='javascript'>"
response.write "alert('出错了，收件人、邮件主题、邮件内容必须完整填写。');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
if UBound(split(usermail,";"))>20 then
response.write "<script language='javascript'>"
response.write "alert('出错了，您填写的收件人太多了~~');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
Set rs = conn.Execute("select * from webinfo") 
adm_mail=rs("webemail")			
mailserver=rs("mailaddress")		
mailname=rs("mailsend")			
mailpassword=rs("mailuserpass")
sitename=rs("webname")		
set rs=nothing
dim msg
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = mailname
msg.MailServerPassword = mailpassword
msg.From = mailname
msg.FromName = sitename
user_mail=split(usermail,";")
for N=0 to UBound(user_mail)
msg.AddRecipient user_mail(n)
next
msg.Subject = mail_subject
msg.Body = mail_body
msg.Send (mailserver)
msg.close
set msg = nothing
response.write "<script language='javascript'>"
response.write "alert('恭喜，邮件已经发出。');"
response.write "location.href='user3.asp';"
response.write "</script>"
response.end
end sub
%>

						