<html>  
  <head>  
  <title>信息反馈表</title>  
  <meta   http-equiv="Content-Type"   content="text/html;   charset=gb2312">  
  </head>  
   
  <body   bgcolor="#FFFFFF"   text="#000000">  
  <form   action="send.asp"   method="post"   name="mywebmail">  
      <p>您的姓名:    
          <input   type="text"   name="name"   size="20"   maxlength="50">  
      </p>  
      <p>电子邮箱:    
          <input   type="text"   name="email"   size="20"   maxlength="60">  
      </p>  
      <p>联系地址:    
          <input   type="text"   name="address"   size="30"   maxlength="60">  
      </p>  
      <p>邮件主题:    
          <input   type="text"   name="mailsubject"   size="30"   maxlength="100">  
      </p>  
      <p>留言内容一:   <br>  
          <textarea   rows="4"   name="text1"   cols="40"></textarea>  
      </p>  
      <p>   留言内容二:   <br>  
          <textarea   rows="4"   name="text2"   cols="40"></textarea>  
      </p>  
      <p>   留言内容三:</p>  
      <p>您的评价:    
          <input   type="radio"   name="text3"   value="好"   checked>  
          好    
          <input   type="radio"   name="text3"   value="一般">  
          一般    
          <input   type="radio"   name="text3"   value="不好">  
          不好   <br>  
          <br>  
          <input   type="submit"   value="确认递交"   name="submit">  
          <input   type="reset"   value="清除重写"   name="clear">  
      </p>  
  </form>  
   
  </body>  
  </html>  
   
   
   
  send.asp  
  <html>  
  <head>  
  <title>发送表单</title>  
  <body>  
   
  <%  
  name   =   Request.Form   ("name")  
  email=   Request.Form   ("email")  
  address=   Request.Form   ("address")  
  mailsubject=   Request.Form   ("mailsubject")  
  text1   =   Request.Form   ("text1")  
  text2   =   Request.Form   ("text2")  
  text3   =   Request.Form   ("text3")  
  %>  
   
  <%    
  '   创建jmail对象:  
  Set   JMail   =   Server.CreateObject("JMail.SMTPMail")  
   
  '   设置发送邮件服务器(SMTP):  
  JMail.ServerAddress   =   "mail.abc.com:25"  
   
  '   发件人的信箱:  
  JMail.Sender   =   email  
   
  '   邮件标题:  
  JMail.Subject   =   mailsubject  
   
  '   设置邮件的收件人信箱  
  JMail.AddRecipient   "abc@abc.com"  
   
  '   下面就是填表在内容区填写的内容，&是连接符，vbcrlf表示换行回车:  
   
  mess   =   mess   &   "---------------Webmail表单开始-------------------"   &   vbcrlf    
  mess   =   mess   &   "留言人姓名："   &   name   &   vbcrlf  
  mess   =   mess   &   "留言人邮件："   &   email   &   vbcrlf  
  mess   =   mess   &   "留言人地址："   &   address   &   vbcrlf  
  mess   =   mess   &   "留言内容一："   &   text1   &   vbcrlf  
  mess   =   mess   &   "留言内容二："   &   text2   &   vbcrlf  
  mess   =   mess   &   "留言内容三："   &   text3   &   vbcrlf  
  mess   =   mess   &   "---------------Webmail表单结束-------------------"    
  JMail.Body   =   mess  
   
  '   设置邮件的优先级(1-5，1为最高):  
  JMail.Priority   =   1   
    
  '   执行发送任务:  
  JMail.Execute  
  %>  
   
   
  您递交邮件已顺利发出，感谢您的意见和建议！    
  </body>  
  </html>