原来的一个留言本用着很好，但是没有审核功能，渐渐的有人在上面说胡话。我想自己在原来的程序上加一个审核的功能。但是遇到了一点问题。请求大家的帮助。问题主要是在数据库的写入方面。 这是原来的留言修改部分数据上传到数据库的代码，只有修改留言一项内容： <% dim guestcontent dim guestdate
guestdate=request("time") guestcontent=request("guestcontent")
set rs=server.createobject("adodb.recordset") sql="select guestcontent,guestdate from [guest] where guestdate='"&GuestDate&"'" rs.open sql,conn,1,3
if guestcontent<>"" then rs("guestcontent")=guestcontent
rs.update rs.close set rs=nothing conn.close set conn=nothing response.redirect "manage.asp" end if %> 现在我加了两个单选：允许发表（shenhe1)和不允许发表(shenhe2)，值分别为1和0。对上面的代码做了这样的修改： <% dim guestcontent dim guestdate dim shenhe1 dim shenhe2 guestdate=request("time") guestcontent=request("guestcontent") shenhe1=request("shenhe1") shenhe2=request("shenhe2") set rs=server.createobject("adodb.recordset") sql="select guestcontent,guestdate from [guest] where guestdate='"&GuestDate&"'" rs.open sql,conn,1,3
if guestcontent<>"" then rs("guestcontent")=guestcontent if shenhe1<>"" then rs("shenhe")=shenhe1 else rs("shenhe")=shenhe2 end if rs.update rs.close set rs=nothing conn.close set conn=nothing response.redirect "manage.asp" end if %> 出现的错误提示是这样的： Microsoft VBScript 编译器错误 错误 '800a03f6' 缺少 'End' /iisHelp/common/500-100.asp，行242 ADODB.Recordset 错误 '800a0cc1' 项目在所需的名称或序数中未被发现。 /shiyan/admin_editly.asp，行19 我找不到错在哪里，可以帮我一下吗？
