在asp中运用JavaScript

来源：百度知道 编辑：UC知道 时间：2024/05/31 09:05:24
我想在数据修改后弹出一个“修改成功”的对话框，但是我这代码并没有我要的那种效果，代码应该怎么改？
<html>
<head>
<script language="vbscript">

sub a()
msgbox "修改成功"
end sub

</script>
</head>
<body>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("shujuku.mdb")
exec="select * from tiaoshi where id="&request.form("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("name")=request.form("name")
rs("age")=request.form("age")
rs("sex")=request.form("sex")
rs("qq")=request.form("qq")
rs.update

rs.close
set rs=nothing
conn.close
set conn=nothing
%>

<script type="text/vbscript"><

<%
......
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write("<script language=javascript>alert('修改成功');location.href='index.asp';</script>")
%>

<%
response.redirect "index.asp"
%>

改成

<script>
document.location.href = 'index.asp';
</script>