大家帮看下是什么原因

提示错误为
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/xitongguanli/addbm_submit.asp, line 32
end try代码为
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head><body>
<%
    set conn=server.CreateObject("Adodb.connection")
    conn.open "DSN=sfxt;uid=sfxt_login;pwd=sql;database=zhsgsj"
    set rs=server.CreateObject("adodb.recordset")
    str="select top 1 * from trans where biaoshi='"+request.Form("bm")+"'"
    rs.open str,conn,2,2,1
    if rs.eof then
        rs.addnew
    end if
    rs("biaoshi")=request.Form("bm")
    rs("suoming")=request.Form("sm")
    rs("id")=request.Form("showid")
    try
        rs.update()
        rs.close()
        session("bm")=""
        response.Clear()
        Response.Write("<script language='javascript'>alert('部门信息修改成功！');window.window.location.href='addbmlist.asp'</script>")
    catch
        rs.close()
        session("bm")=""
        response.Clear()
        Response.Write("<script language='javascript'>alert('部门信息修改出错！');window.window.location.href='addbmlist.asp'</script>")
    end try
%>
</body>
</html>

解决方案 »

  1.   

    你用的是VBSCRIPT
    里面不能用try如果你ASP选择的是VBSCRIPT语法的化，你可以这样： 
    1、On Error Goto eee 
    eee指的是发生错误时你将程序转到的地方。eee可以用其他非保留字代替。 
    比如： 
    Sub Test() 
    On Error Goto eee 
    <语句1> 
    exit sub 
    eee: 
    <语句2> 
    End Sub 
    如果要是执行<语句1>出错的话就执行<语句2>，否则只执行语句1 2、On Error Resume Next 
    这是如果出现错误就忽略，执行下一步