主题:  EMAIL发送的问题？

清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
注册：2002/10/24 13:45:54
#12002/10/31 9:17:21

把表单所填写内容通过邮件函数发送到指定的信箱.
主要功能如下:
表单有"姓名","电话","电子邮件","地址","人个简介"这几项,这几项都不能为空,若那一项为空的话,就给出相应的提示并且"电子邮件"这一项必须带有@,然后通过mail()把以上所有内容发送到qing-studio163.com这个信箱中.
请这里的高手给我编写一个(最好在代码中有注解),我好研究一下.

蚂蚁啃骨头
职务：普通成员
等级：1
金币：0.0
发贴：18
注册：2002/10/30 10:24:20
#22002/10/31 9:59:46
以前写的代码.你参考下吧.表单验证用js另写吧.
<%
name=request("name")
contant=request("contant")
if question<>"" then
mess = mess & "---------------问题-------------------" & "
"
mess = mess & "姓名：" & name & "
"
mess = mess & "联系方式：" & contant & "
"
mess = mess & "---------------**********-------------------"

dim mymail
set mymail=Server.CreateObject("CDONTS.Newmail")
mymail.From=sender
mymail.To=accept
mymail.Subject="问题"
mymail.BodyFormat = 0
mymail.MailFormat = 0
mymail.Body=mess
mymail.Send
If Err.Number <> 0 Then
Response.Clear
Response.Redirect "error.htm"
end if
set mymail=nothing
if not error then
%>

<% else
response.Write "错误"
end if
%>