原来的一个留言本用着很好，但是没有审核功能，渐渐的有人在上面说胡话。我想自己在原来的程序上加一个审核的功能。但是遇到了一点问题。请求大家的帮助。问题主要是在数据库的写入方面。 这是原来的留言修改部分数据上传到数据库的代码，只有修改留言一项内容： <% 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 我找不到错在哪里，可以帮我一下吗？

先检查字段名shenhe是否存在或正确
然后将审核的表单设置为单选框:
假设名字为:shenhe

if shenhe1&lt;&gt;"" then
rs("shenhe")=shenhe1
else rs("shenhe")=shenhe2
end if
上面一段改为:
shenhe=request("shenhe")
if shenhe=1 then
rs("shenhe")=1
else
rs("shenhe")=0
end if

[此贴子已经被作者于2005-3-28 17:07:34编辑过]

字段名错了

谢谢大家的帮助。在大家的提示下我找到问题出在哪里了。在这里：
sql="select guestcontent,guestdate from [guest] where guestdate='"&amp;GuestDate&amp;"'"
这里没有选出字段shenhe进行修改，所以总是出现上面的错误提示。
只要改成
sql="select guestcontent,guestdate,shenhe from [guest] where guestdate='"&amp;GuestDate&amp;"'"
这样就好用了。
谢谢大家拉。

是不是过虑文字的功能呀,?!@#

[此贴子已经被作者于2005-3-31 9:07:09编辑过]