<%

mailbody = request（＂表单项1名＂）

mailbody = mailbody + request（＂表单项2名＂）

'mailbody这个变量就是邮件正文，你把它按页面的html排出来，用request把所有表单项都接过来就可以了

set jmail = server.CreateObject (＂jmail.message＂)

jmail.Silent = true

jmail.Charset = ＂gb2312＂

jmail.ContentType = ＂text/html＂

jmail.From = ＂发信邮箱地址＂

jmail.FromName = ＂发信人＂

jmail.Subject = ＂邮件标题＂

jmail.AddRecipient ＂收件人＂

jmail.Body = mailbody

jmail.MailServerUserName = ＂发信邮箱登录用户名＂

jmail.MailServerPassWord = ＂密码＂

jmail.Send(＂SMTP服务器地址＂)

jmail.Close

set jmail = nothing

%>

绝对可用，这是我以前自己的网站上用于提交留言的程序。给你多少做了下修改而已

服务器要求支持JMail