% On error resume next Dim JMail, contentId Set JMail = Server.CreateObject( JMail.Message ) JMail.Charset = gb2312 ' 邮件字符集，默认为 US-ASCII ' JMail.ISOEncodeHeaders = False ' 是否进行ISO编码，默认为True ' 发送者信息（可用变量方式赋值） JMail.From = FormName@FormWeb.com ' 发送者地址