谁帮我看下这段代码有何问题？

来源：百度知道 编辑：UC知道 时间：2024/05/30 22:17:45
<td height="30" colspan="2" align="center"><input name="提交" type="submit" value="确认留言" /><a href="Index.asp">
<input type="reset" value="重写留言"></td>
</tr>
</form>
</table>
<%
End Sub
Sub SaveAdd()
UserName=FormatRequest(2,"UserName",1,"")
EMail=FormatRequest(2,"EMail",1,"")
Title=FormatRequest(2,"Title",1,"")
Content=FormatRequest(2,"Content",1,"")
Conn.Execute("Insert Into Book_List(UserName,Title,Content,EMail,IP) Values('"&UserName&"','"&Title&"','"&Content&"','"&Email&"','"&Get_UserIp()&"')")
Call ShowErrMsg(1,"留言成功！","Index.asp")
End Sub
Sub Login()
%>

对于第一个问题个人感觉是Call ShowErrMsg(1,"留言成功！","Index.asp")这句有问题，asp里面的call函数是直接调用的意思，整句就是输出一个对话框然后调用index.asp，注意是调用而不是跳转，问题应该就在这里。把上述语句换成js语句试试，这样保险
response.write"<script language='javascript'>alert('留言成功')</script>"
response.write("<script>window.location='index.asp'</script>")
response.end

对于第二个问题删除出错的原因是多删除了
<%Rs.Close
Set Rs=Nothing
End Sub%>这个语句，只删除两个Sub的话是没问题的。但上面那句是整段代码的结束部分，没有end当然要出错了。
“然后再撤销删除，再浏览再留言就终于提示留言成功了，而且也自动返回已经留言的界面！”跟下面那段代码没有任何关系，还是跟第一段代码有关的。而且自动返回已经留言的界面应该还是跟新前的。有问题hi我

Conn.Execute("Insert Into Book_