Microsoft VBScript 运行时错误 (0x800A000D)类型不匹配: 'rsup'

<% id=trim(request("id"))
set rsup=server.createobject("adodb.recordset")
rsup.open "select * from web where id="&id,conn,3,3
%>

<%if request("action")="up" then
flag=1
upnum=FormatNumber(request("upnum"),0)
sqlup="update web set num="&upnum&" where id ="&id
conn.execute sqlup
end if

if flag=1 then
%>

<script language="javascript">
alert("修改成功！");
window.navigate("search.asp")
</script>
<% rsup.close
set rsup=nothing
end if%>

<form name="formup" method="post" action="?action=up" onSubmit="return checkup()">
<input name=id type="hidden" value=<%=request("id")%>>
<table width="40%" border="1" align=

microsoft Microsoft MICROSOFT Microsoft是什么意思 Microsoft代理 microsoft update Microsoft Office Microsoft FrontPage microsoft安装 microsoft office