在 ASP 中显示消息框

Question

我想在从 MSACCESS 中删除一条记录后显示一个消息框。我在下面写了一段代码，但它只是将我重定向到上一页。我想先显示消息再重定向。

<HTML>
<BODY>
<%
Dim objConn
Dim objRS
Dim varpnr
varpnr = Request.QueryString("ID")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& _
            "D:\Project.mdb"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "Book", objConn, 2, 3

Do Until objRS.EOF
If objRS("PNR") = varpnr Then
objRS.Delete
response.write("<script language=""javascript"">alert

('Hello!');</script>")
End If
objRS.MoveNext
Loop
objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing 
response.redirect "Delete_Entry.asp"
%>
</BODY>
</HTML>

Answer 1

您的 VBScript 重定向发生在服务器端，因此发生在 JavaScript 可以执行客户端之前。

您需要在警报后 JavaScript 中进行重定向。例如

response.write("<script language=""javascript"">alert ('Hello!'); window.location='Delete_Entry.asp'</script>")

删除 response.redirect "Delete_Entry.asp"

Answer 2

你就不能做这样的事情吗？

alert "All done." 
response.redirect "Delete_Entry.asp"

在 ASP 中显示消息框

Displaying Message Box in ASP

javascript

vbscript

asp-classic