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。 e.g。

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中显示消息框

2 个答案: