Question

我一如既往地设计了一个使用flash和dreamweaver的网站，我总是使用相同的编码查询表格，现在它拒绝工作，我被卡住，因为我不知道很多编码，只有我曾经由朋友教导。

我遇到的问题是，当我填写查询表格是一个swf文件并提交它时，它会给我一条消息，说明你的电子邮件已被发送但它永远不会回复给我，因为我已经设置了它所有表格都将通过我的电子邮件发送。我将上传我的asp编码和我的动作脚本。如果你知道什么是错的，请告诉我，特别是如果我遗漏了什么，你的合作非常感谢。谢谢

以下是我的动作脚本编码：

on (release) {
    if (txtName.text = "") {
        btnSubmit.enabled = false;
    }else{
        var names:String = this._parent.txtName.text.toString();
    }
        if (txtEmail.text = "") {
        btnSubmit.enabled = false;
    }else{
        var email:String = this._parent.txtEmail.text.toString();
    }
    if (txtContact.text = "") {
        btnSubmit.enabled = false;
    }else{
        var contact:String = this._parent.txtContact.text.toString();
    }
    if (txtCompany.text = "") {
        btnSubmit.enabled = false;
    }else{
        var company:String = this._parent.txtCompany.text.toString();
    }
    if (txtComment.text = "") {
        btnSubmit.enabled = false;
    }else{
        var comment:String = this._parent.txtComment.text.toString();
    }
    getURL("http://www.example.co.za/enquiry.asp", "_blank", "GET");
}

下面是我的asp编码：

<title>enquiry_form</title>
<% @language="VBSCRIPT" %>
<%
strName = Request.QueryString("names")
strEmail = Request.QueryString("email")
strContact = Request.QueryString("contact")
strCompany = Request.QueryString("company")
strComment = Request.QueryString("comment")


strBody = "Enquiry Form" & "<br>"
strBody = strBody & "Name: " & strName & "<br>"
strBody = strBody & "Email: " & strEmail & "<br>"
strBody = strBody & "Contact No.: " & strContact & "<br>"
strBody = strBody & "Company: " & strCompany & "<br>"
strBody = strBody & "Comments/Enquiries: " & strComment & "<br>"

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
    Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25 
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    objCDOSYSCon.Fields.Update 
    Set objCDOSYSMail.Configuration = objCDOSYSCon
    objCDOSYSMail.From = strEmail
    objCDOSYSMail.To = "example@example.co.za"


    objCDOSYSMail.Subject = "Enquiry Form"
    objCDOSYSMail.HTMLBody = strBody
    objCDOSYSMail.Send 
    Set objCDOSYSMail = Nothing
    Set objCDOSYSCon = Nothing

%>




<SCRIPT Language=JavaScript>
alert("your email has been sent")

window.onload = function() {
  history.back()
};

</SCRIPT>

使用asp和flash的查询表单

0 个答案: