<%
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")
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
msg="您的意见已反馈给" & mymail
end if
Set objMail = Nothing 'then de
else
msg="请输入您的意见或建议!!"
end if
else
msg="请留下您的e-mail地址！！"
end if
end if
%>
咨询投诉
