我是初学，我想请朋友们给一段执行审核的代码 然后前台显示审核的代码 我想仔细看看怎么来实现 我写不出来 希望大家提供一下 给个借鉴。非常感谢。

真的非常感谢各位的指点 请帮我看看 我这样做后 数据wy_sh字段不能更新为1
显示记录wy_yq_sh.asp代码：

set rs=server.CreateObject("adodb.recordset")
sql="select * from wy_yq where wy_sh=0 order by wy_yqid desc"
rs.open sql,conn,1,1
记录正常被显示出来

表单动作我是在这样写的action="wy_yq_shok.asp?action=edit"

然后wy_yq_shok.asp 代码如下：

<%
if request.form("wy_yqid").count=0 then
response.write("<script language='javascript'>"&chr(13)& "alert('请选择要审核 的信息！');history.go(-1);</script>")
response.end
end if
dim action,wy_yqid
wy_yqid=request.QueryString("wy_yqid")
action=request.QueryString("action")
if request.form("submit")="edit" then
set rs=server.CreateObject("adodb.recordset")
sql="update wy_yq set wy_sh=1 where wy_yqid="&wy_yqid&" "
rs.open sql,conn,1,3
rs.close
set rs=nothing
end if
response.Write("<script language='javascript'>"&chr(13)&"alert('修改成功！');window.location.href='wy_yq_sh.asp';"&"</script>")
%>

恳请指点谜团 谢谢！

非常感谢你 我试了 还是不能字段更新为1

wy_sh字段的数据类型是int

我又改成了bit也不行啊

<%
if request.form("wy_yqid").count=0 then
response.write("<script language='javascript'>"&chr(13)& "alert('请选择要审核 的信息！');history.go(-1);</script>")
response.end
end if
dim action,wy_yqid
wy_yqid=request.QueryString("wy_yqid")
action=request.QueryString("action")
if request.form("action")="edit" then
set rs=server.CreateObject("adodb.recordset")
sql="update wy_yq set wy_sh=1 where wy_yqid="&wy_yqid&""
rs.open sql,conn,1,3
re("wy_sh")=trim(request.form("wy_sh"))
rs.close
set rs=nothing
end if
response.Write("<script language='javascript'>"&chr(13)&"alert('修改成功！');window.location.href='wy_yq_sh.asp';"&"</script>")
%>