Asp classic 如何将成功保存的通知添加到这些代码中_Asp Classic

Asp classic 如何将成功保存的通知添加到这些代码中

asp-classic

Asp classic 如何将成功保存的通知添加到这些代码中,asp-classic,Asp Classic,我已经成功地完成了添加数据的代码，但是当它成功保存数据时，没有任何东西可以通知我是否完成了。所以，你能帮我加一行字吗，上面写着你已经成功注册，在它再次变回空白表格之前显示大约几秒钟。？多谢各位我的工作代码是 <% 'Sample file Field-SaveAs.asp 'Store extra upload info to a database ' and file contents to the disk Server.ScriptTimeout = 5000 'Create

我已经成功地完成了添加数据的代码，但是当它成功保存数据时，没有任何东西可以通知我是否完成了。所以，你能帮我加一行字吗，上面写着你已经成功注册，在它再次变回空白表格之前显示大约几秒钟。？多谢各位

我的工作代码是

<%
'Sample file Field-SaveAs.asp 
'Store extra upload info to a database
' and file contents to the disk
Server.ScriptTimeout = 5000

'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_uploadz.asp"--><% 


Server.ScriptTimeout = 1000
Form.SizeLimit = &HA00000'10MB

'was the Form successfully received?
Const fsCompletted  = 0

If Form.State = fsCompletted Then 'Completted
  'Create destination path+filename for the source file.
  Dim DestinationPath, DestinationFileName, Pdfpath, pdffilename
  DestinationPath = Server.mapPath("UploadFolder")
  DestinationFileName = DestinationPath & "\" & Form("ref_img").FileName
  Pdfpath = Server.mapPath("PdfFolder")
  PdfFileName = Pdfpath & "\" & Form("refree_img").FileName  


  'Open recordset to store uploaded data
  Dim RS: Set RS = OpenUploadRS

  'Store extra info about upload to database
  RS.AddNew

   RS("showndate") = Now()
   RS("ref_name") = Form.Texts.Item("ref_name")  
   RS("ref_surname") = Form.Texts.Item("ref_surname")  
   RS("ref_add") = Form.Texts.Item("ref_add")  
   RS("ref_tel") = Form.Texts.Item("ref_tel")  
   RS("ref_img") = Form("ref_img").Filename   
   RS("refree_name") = Form.Texts.Item("refree_name")  
   RS("refree_surname") = Form.Texts.Item("refree_surname")  
   RS("refree_add") = Form.Texts.Item("refree_add")  
   RS("refree_tel") = Form.Texts.Item("refree_tel")     
   RS("refree_img") = Form("refree_img").Filename                       

  RS.Update

  Form("ref_img").SaveAs DestinationFileName
  Form("refree_img").SaveAs PdfFileName

ElseIf Form.State > 10 then
  Const fsSizeLimit = &HD
  Select case Form.State
        case fsSizeLimit: response.write  "<br><Font Color=red>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font><br>"
        case else response.write "<br><Font Color=red>Some form error.</Font><br>"
  end Select
End If'Form.State = 0 then

Function OpenUploadRS()
  Dim RS  : Set RS = CreateObject("ADODB.Recordset")

  'Open dynamic recordset, table Upload
  RS.Open "tbl_refer", GetConnection, 2, 2

  Set OpenUploadRS = RS
end Function 

Function GetConnection()
  dim Conn: Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    Conn.open "Data Source=" & Server.MapPath("../database/magi.mdb")    
    set GetConnection = Conn
end function



%>  
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Magi Clean Wiper</TITLE>
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link rel="stylesheet" href="stylesheet.css" type="text/css">
<script language="JavaScript" src='misc.js'></script>
<script language="JavaScript" src='calendar.js'></script>
<link rel="stylesheet" href="calendar.css" type="text/css">
<!--<meta http-equiv="Content-Type" content="text/html; charset=TIS-620">-->
<meta http-equiv="Content-Type" content="text/html; charset=TIS-620">
<!--<meta http-equiv="Content-Type" content="text/html; charset=windows-874">-->
</HEAD>

<body bgcolor="#ffffff"> 


                                        <!-- Card content -->
<!--<form method=post ENCTYPE="multipart/form-data">                         -->
<form name="myform" method="POST" ENCTYPE="multipart/form-data" OnSubmit="return ProgressBar();" Action="<%=PostURL%>">             
<table cellspacing="3" cellpadding="0" border="0" width="100%">
    <tr>
        <td>
            <table cellpadding="0" cellspacing="0" border="0">

                <tr>
                    <td>name : <input name="ref_name" type="text" size="30" value=""></td>
                </tr>
                <tr>
                    <td>surname : <input name="ref_surname" type="text" size="30" value=""></td>
                </tr>
                <tr>
                    <td>address : <input name="ref_add" type="text" size="30" value=""></td>
                </tr> 
                <tr>
                    <td>tel : <input name="ref_tel" type="text" size="30" value=""></td>
                </tr>   
                <tr>
                    <td>upload : <input type="file" name="ref_img"></td>
                </tr>                                                                   
            </table>
        </td>

        <td>
            <table cellpadding="0" cellspacing="0" border="0">

                <tr>
                    <td>upload2 : <input type="file" name="refree_img"></td>
                </tr>                                                                   
            </table>        
        </td>
    </tr>
    <tr>
        <td colspan="2" align="center" style="padding-top:30px;">
          <input type="submit" Name="Action" value="registration">

          <input type="reset" value="reset" />             
        </td>
    </tr>
</table>

</form>        

</BODY>
</HTML>

尝试以下简单代码，只需将替换为要重定向的url：

<body bgcolor="#ffffff"> 
<% If Form.State = fsCompletted Then %>

   <p>Saved successfully!</p>
   <script type="text/javascript">setTimeout(function(){ location.href='#'; }, 3000);</script>
<% Else %>
   <!-- Put all your actual html form below-->
   <form>...</form>
<% End If %>
</body>

你试过什么吗？如果是，请让我们知道什么不起作用。嗯……是我。。但因为我对脚本太天真了，所以我只在这个Formrefree\u img.SaveAs PdfFileName行之后添加response.write成功保存。。。它说的是错误。事实上，我真的不知道该把这一行放在哪里，我曾经将动作代码拆分成其他形式，以便添加这样的通知。然而，由于这个表单需要2个上传文件和脚本，我一直是这样的。所以我不知道怎么做。为什么这个标签是Javascript？它似乎根本不是关于Javascript的。@jfriend00解决这个问题的方法肯定需要js。让一条消息出现几秒钟然后消失需要客户端代码，这不能单纯用asp来完成。非常感谢。。你的代码比我好。。。也短一点。！！