我从网上下了个ASP的源程序，有如下功能：
某一页列出所有值，比如：
1、XXXX XXXX XXXX 修改
2、XXXX XXXX XXXX 修改
……

然后点“修改”，可以“修改”，进入修改界面，可以修改“XXX”，比如修改成YYY，然后提交数据库

该功能代码如下：

=====================================================================
<meta http-equiv="25175-?????-?????-????-????-????-SP"; charset=gb2312>

<%
dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("gc.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
if request("text1")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('???!');" & "history.back()" & "</script>"
Response.End
end if

sm=request("text1")
dq=request("text2")
yb=request("text3")
qh=request("text4")
id1=request("id")
sql="update 25175code set test1='"&sm&"',test2='"&dq&"',test3='"&yb&"',test4='"&qh&"' where id="+id1
response.write "<script language=JavaScript>" & chr(13) & "alert('????????!');"&"window.location.href = 'modify.asp'"&" </script>"
set rs=nothing
%>

==========================================================================

我一点“提交”，他就弹出一个alert('????????!')，而并没有提交数据，不知道原作者此举动为何意

请问大家如何修改代码可以实现提交数据库的目的，并且提交完成后自动跳转至 index.asp?
谢谢大家