发送邮件的问题

先装一个JMAIL组件  下载地址：http://www.china-site.com/download/w3JMail43P.exe然后启动IIS//sendmail.asp
<html>
<head>
<link rel="stylesheet" href="style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>OWEN 无组件邮件系统=>发送邮件</title>
</head>
<body>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6188AF">
  <tr>
    <td height="60" align="center" bgcolor="#C0C0C0"> <p align="center"> <br>
      <h1 align="center"><font color="#FFFFFF" face="黑体">OWEN 无组件邮件发送系统</font></h1></td>
  </tr>
</table>
<br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6188AF">
  <form name="sendmail" action="sendmailto.asp" method="post">
<tr> 
            
      <td width="125" height="30" bgcolor="#C0C0C0"> 
        <div align="center">发信人地址：</div></td>
            
      <td width="469" height="30" bgcolor="#E3E3E3"> 　
<input type="text" name="frommail" class="input"> 
            </td>
          </tr>
          <tr>
            
      <td height="30" bgcolor="#C0C0C0"> 
        <div align="center">收信人地址：</div></td>
            
      <td bgcolor="#E3E3E3"> 　
<input name="tomail" type="text" class="input">
      </td>
          </tr>
          <tr> 
            
      <td height="30" bgcolor="#C0C0C0"> 
        <div align="center">信件标题：</div></td>
            
      <td bgcolor="#E3E3E3">　 
        <input name="mailsubject" type="text" class="input" size="50">
      </td>
          </tr>
          <tr> 
            <td bgcolor="#C0C0C0">
<div align="center">信件内容：</div></td>
            
      <td height="150" bgcolor="#E3E3E3">　 
        <textarea name="mailbody" cols="50" rows="8" class="input"></textarea>
      </td>
          </tr>
          <tr bgcolor="#336699"> 
            
      <td height="30" bgcolor="#C0C0C0"> 
        <div align="center"></div></td>
            <td height="22" bgcolor="#E3E3E3"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="submit" name="Submit" value="发送" class="input"> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
              <input type="reset" name="Submit" value="取消" class="input"> <input type="hidden" name="mail" value="owen"> 
            </td>
          </tr></form>
        </table>
<br>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#6188AF">
  <tr> 
    <td height="40" align="center" bgcolor="#C0C0C0"> 程序编写：<a href="http://www.8style.com/member/user_show.asp?id=19530" target="_blank">owen</a> 
      <font color="#FF0000">&copy;</font> 2003</td>
  </tr>
</table>
</body>
</html>
//sendmailto.asp
<% 
function IsValidEmail(email)
IsValidEmail = true
names = Split(email, "@")
if UBound(names) <> 1 then
   IsValidEmail = false
   exit function
end if
for each name in names
   if Len(name) <= 0 then
     IsValidEmail = false
     exit function
   end if
   for i = 1 to Len(name)
     c = Lcase(Mid(name, i, 1))
     if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
       IsValidEmail = false
       exit function
     end if
   next
   if Left(name, 1) = "." or Right(name, 1) = "." then
      IsValidEmail = false
      exit function
   end if
next
if InStr(names(1), ".") <= 0 then
   IsValidEmail = false
   exit function
end if
i = Len(names(1)) - InStrRev(names(1), ".")
if i <> 2 and i <> 3 then
   IsValidEmail = false
   exit function
end if
if InStr(email, "..") > 0 then
   IsValidEmail = false
end ifend function
 %>
<html>
<head>
<link rel="stylesheet" href="style.css" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>OWEN 无组件邮件系统=>发送邮件成功</title>
</head><body bgcolor="#666633">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"> 
      <% 
'设置发信人
if IsValidEmail(request.form("frommail"))=false then
response.write"<SCRIPT language=JavaScript>alert('发信人邮件地址格式不对！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
founderr=true
else
frommail=request.form("frommail")
end if
'判断对谁发信
if IsValidEmail(request.form("tomail"))=false then
response.write"<SCRIPT language=JavaScript>alert('收信人邮件地址格式不对！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
founderr=true
else
tomail=request.form("tomail")
end if
'设置邮件主题
mailsubject=request("mailsubject")
if mailsubject="" then
response.write"<SCRIPT language=JavaScript>alert('信件标题都不写的？');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if'设置邮件内容
mailbody=request("mailbody")
if mailbody="" then
response.write"<SCRIPT language=JavaScript>alert('信件内容都不写的？');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
end if 
'写发信信息
response.write "发信人地址: "&frommail
response.write "<br><br><br>"
response.write "收信人地址："&tomail
'发信
if request("mail")="owen" then
Set OWENmail=Server.CreateObject("JMail.SMTPMail")
OWENmail.Charset = "gb2312"
OWENmail.Sender = frommail
OWENmail.Subject = mailsubject
OWENmail.AddRecipient(""&tomail&"")
OWENmail.Body = mailbody
OWENmail.Execute
OWENmail.Close
Set OWENmail = Nothing
response.write "<br><br><br>"
response.write "恭喜！！！您的邮件发送成功！^&^"
End If
%> <a href="Sendmail.asp">返回</a>
    </td>
  </tr>
</table>
</body>
</html>启动页面是sendmail.asp
我已经测试过了，记得给分我哦，呵呵^_^