<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为正文
XML.WriteOut "<h2>发送邮件</h2>"
If Request("ToDo")="ToAdd" Then 
Receive_A=Request("Send_A") '
Receive_B=Request("Send_B")
Receive_C=XML.DelSpecialMark(Request("Send_C")) '内容
Receive_D=XML.DelSpecialMark(Request("Send_D")) '邮箱
Receive_E=XML.DelSpecialMark(Request("Send_E")) 'QQ
Receive_F=XML.DelSpecialMark(Request("Send_F")) '电话
If Receive_A="" Then
    ErrorMessage=XML.Ascii("请输入对方姓名。")
   ElseIf Receive_B="" Then
    ErrorMessage=XML.Ascii("请输入邮件主题。") '如果没有错误，则错误信息为空
   ElseIf Receive_C="" Then
    ErrorMessage=XML.Ascii("请输入邮件内容。") '如果没有错误，则错误信息为空
   ElseIf Receive_D="" Then
    ErrorMessage=XML.Ascii("请留下对方的邮箱。") '如果没有错误，则错误信息为空
   Else
    ErrorMessage="" '如果没有错误，则错误信息为空
End If 
If ErrorMessage="" Then
XML.MailContent=Request("Send_A") & ",您好：" & vbcrlf & "　　" & XML.DelSpecialMark(Request("Send_C")) & vbcrlf & "　　我们的联系方式是" & Receive_E & "电话：" & Receive_F
XML.SendOneMail XML.DelSpecialMark(Request("Send_D")),"您收到一封新邮件","此邮件来自" & XML.SiteTitle
XML.WriteRow "邮件发送成功！"
End If
End If
'以下为文件正文。
If ErrorMessage<>"" Then XML.WriteRow ErrorMessage
'XML.WriteOut "<form method='post' action='" & XML.ThisFileName & "'>"
XML.WriteOut "<form method='post' action='/wap/SendMail.asp'>"

XML.WriteOut "<h3>对方姓名:</h3>"
XML.WriteOut "<input type='text' name='Send_A' value=''/>"
XML.WriteOut "<h3>邮件主题:</h3>"
XML.WriteOut "<input type='text' name='Send_B' value=''/>"
XML.WriteOut "<h3>邮件内容:</h3>"
XML.WriteOut "<input type='text' name='Send_C' value=''/>"
XML.WriteOut "<h3>对方邮箱:</h3>"
XML.WriteOut "<input type='text' name='Send_D' value=''/>"
XML.WriteOut "<h3>你的QQ/MSN/Skype:</h3>"
XML.WriteOut "<input type='text' name='Send_E' value=''/>"
XML.WriteOut "<h3>你的联系电话:</h3>"
XML.WriteOut "<input type='text' name='Send_F' value=''/>"
XML.WriteRow "<input type='hidden' name='ToDo' value='ToAdd'/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"

'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.A("","Index.asp","返回上级")

%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
 
