<% dim submit,msg,comments,mail,MessageType,Subject,email,Username,UserTel dim objMail,mymail submit= request.form("B1") comments=request.form("Comments") MessageType=request.form("MessageType") Subject=request.form("Subject") email=request.form("email") Username=request.form("Username") UserTel=request.form("UserTel") ContactRequested = request.form("ContactRequested") if Subject="其他" then Subject=request.form("SubjectOther") end if if len(submit)> 0 then if len(email) > 0 then if len(Comments) > 0 then mail=subject & MessageType & "的反馈： " & chr(13) & chr(10) mail=mail & "内容：" & chr(13) & chr(10) & " " & Comments & chr(13) & chr(10) if len(Username) > 0 then mail=mail & " " & "我的姓名: " & Username & chr(13) & chr(10) end if if len(email) > 0 then mail=mail & " " & "我的e-mail: " & email & chr(13) & chr(10) end if if len(UserTel) > 0 then mail=mail & " " & "我的电话: " & UserTel & chr(13) & chr(10) end if Set objMail = Server.CreateObject("CDONTS.NewMail") '!!!!!!!!!!!!!!!!!!!!! mymail="webmaster@" & Right(domain,len(domain)-4) objMail.To = mymail 'set To address objMail.From =email 'set 'From' address objMail.Subject =subject & "的" & MessageType 'set the subject line objMail.Body =mail 'set the message content objMail.Send 'and send the message if err.number<>0 then msg= "Error:"+cstr(err.number)+err.description+chr(10)+"对不起，本服务器正在调试，无法发送" else response.write "信息发送成功" response.write cstr(now) + "下面是您提交给的内容, 已经发送给了" + mymail response.write "
" response.write "

信息类型:" + MessageType + "

" response.write "

意见涉及:" + Subject + "

" response.write "

信息内容:" + comments + "

" response.write "

你的姓名:" + Username + "

" response.write "

你的Email:" + email + "

" response.write "

你的电话:" + UserTel + "

" response.write "

回复要求:" + ContactRequested + "

" response.write "
返回" response.end 'msg="您的意见已反馈给" & mymail end if Set objMail = Nothing 'then de else msg="请输入您的意见或建议!!" end if else msg="请留下您的e-mail地址！！" end if end if %>
 
 

<%=formmail_title%><%=msg%>

欢迎访问我们的网站，请留下您宝贵的意见或建议

您想提出哪一类的意见或建议?

投诉 问题 建议 表扬

您想提出哪方面的意见或建议?

其他：

请在下面留下您的意见或建议：

请告诉我们如何与您取得联系：

您的姓名：
电子邮件：(*必须填写）
您的电话：
请看到后尽快与我联系。