Displaying Message Box in ASP

Displaying Message Box in ASP

本文关键字：ASP in Box Message Displaying      更新时间：2023-09-26

我想在从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>

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

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

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

移除response.redirect "Delete_Entry.asp"

你就不能这样做吗？

alert "All done." 
response.redirect "Delete_Entry.asp"
相关文章：