表单提交成功消息显示

Question

我正在创建一个简单的表单，它需要一个取消代码和电子邮件地址，存储电子邮件地址，然后发送一封电子邮件。

表单有一些脚本，用于检查表中是否存在电子邮件地址，并且还查找另一个表以检查它们输入的引用代码是否存在于另一个表中。

在我的页面中，如果代码不存在和/或电子邮件地址存在，我会显示一条错误消息。但是，如果表单提交成功，那么我希望表单被感谢信息所取代。

这是我的页面中的代码;

<% 
sys_message = "" 

If (Request.Form("form_submit") <> "") Then 
    %><!--#include file="doreferral.asp"--><% 
End If %> 

[...] 

<% If(sys_message <> "") Then 
    Response.Write(sys_message) 
End If %> 
<form action="referral.asp#msg" name="frmRegister" id="form_referral" method="post"> 
    <input name="fldCode" type="text" class="quick-referral-input" id="fldCode" value="Enter agent code" onblur="if(this.value=='') 
    this.value='Enter agent code';" onfocus="if(this.value=='Enter agent code') this.value='';"/> 
    <input name="fldEmail" type="text" class="quick-referral-input" id="fldEmail" value="Enter email address" onblur="if(this.value=='') 
    this.value='Enter email address';" onfocus="if(this.value=='Enter email address') this.value='';"/> 
    <input type="hidden" name="form_submit" value="submitted" /> 
    <input type="image" class="quick-referral-submit" src="images/homepage/quick-referral-submit.gif" value="submit" alt="Submit button" 
    onClick="checkSignup();"> 
</form> 

该表单使用doreferral.asp页面进行插入/检查;

<% 
    fldCode   = replace(request.Form("fldCode"),"'","") 
    fldEmail  = replace(request.Form("fldEmail"),"'","") 

    '' //Check the submitted email against existing ones in the database 
    set conn = server.CreateObject("ADODB.connection") 
    conn.open(application("DATABASE")) 
    qs = "SELECT COUNT(ReferredEmail) AS 'Count' FROM TenantReferral WHERE ReferredEmail = '" & fldEmail & "'" 
    set rs = conn.Execute(qs) 

    countEmail = rs("Count") 

    set rs = nothing 
    conn.close 
    set conn = nothing 

    If(countEmail >= 1) Then 
     sys_message = sys_message & "<p class='referral-thanks'>This email address has already been referred.</p>" 
    End If 

    ''//Check the submitted code against existing ones in the database 
    set conn = server.CreateObject("ADODB.connection") 
    conn.open(application("DATABASE")) 
    qs = "SELECT COUNT(AgentReferralCode) AS 'CountCodes' FROM Customers WHERE AgentReferralCode = '" & fldCode & "'" 
    set rs = conn.Execute(qs) 

    CountCode = rs("CountCodes") 

    set rs = nothing 
    conn.close 
    set conn = nothing 

    If(CountCode < 1) Then 
     sys_message = sys_message & "<p class='referral-thanks'>The referral code does not exist.</p>" 
    End If 

    '' //Only Process the SQL if there is no sys_message 
    If(sys_message = "") Then 

     SQLfields = SQLfields & "ReferredCode, " 
     SQLvalues = SQLvalues & "'"& Trim(fldCode) &"', " 
     SQLfields = SQLfields & "ReferredEmail" 
     SQLvalues = SQLvalues & "'"& Trim(fldEmail) &"'" 

     SQL = SQL & "INSERT into TenantReferral ("& SQLfields &") VALUES ("& SQLvalues &")" 
     response.Write(SQL) 

     set conn = server.CreateObject("ADODB.connection") 
     conn.open application("DATABASE") 
     SET rs = conn.execute(SQL) 

     ''//Email code goes here 

     response.Redirect("referral.asp") 

    End If 
%> 

我想知道是否有人可以发现任何可以更改/添加以显示感谢消息但不显示表单的内容。我已经尝试了几次If语句，但没有成功。

谢谢。

Answer 1

很简单，你只需要将你的逻辑稍微调整一下。

逻辑可以去有点像这样：

• 检查任何数据要处理的所有脑干 - 如果你的表已发给任何那么它的后背部，所以你需要做一些与数据
• 如果一切正常与您的数据处理然后Response.Redirect您的谢谢页（这有利于阻止用户刷新页面，并可能运行您的代码两次）
• 如果有任何错误，然后写出来（sys_message的东西）
• 显示表格

这种方式你不需要担心天气显示或不显示表格，如果一切正常，它只会重定向，而页面的其余部分将不会处理。

理想情况下，我会将包含在代码中的代码包含到函数/子中，并且包含顶部，然后您可以在代码<％= ValidateForm（）％>或其他任何地方调用它。

当然，你应该切换到ASP的JScript和：P