一个关于复选框的
程序样本：<%
dim okid,okid1,okid2
set rs=conn.execute("Select * from Product where ProductID="&request.querystring("id") )
ClassID=rs("ClassID")
ProductName=rs("ProductName")
SmallPic=rs("SmallPic")
Content=rs("Content")
phflag=rs("phflag")
ggflag=rs("ggflag")
xyflag=rs("xyflag")
jyflag=rs("jyflag")
RsClose()
%>
<%
if request.querystring("action")="modify" then
if request2.form("ProductName")="" then
response.write "<script>alert('信息标题不能为空!');window.location.href='AddNews.asp';</script>"
response.end
end if
url="action="&action&"&keyword="&Request.QueryString("keyword")&"&class="&Request.QueryString("class")&"&page="&Request.QueryString("page")
set rs=server.createobject("adodb.recordset")
sql="select * from Product where ProductID="&request.querystring("id")
rs.open sql,conn,3,3
okid=trim(request2.form("seleClassID"))
if okid<>empty then
if instr(okid,"*")>0 then
okid1=left(okid,instr(okid,"*")-1)
okid2=right(okid,len(okid)-instr(okid,"*"))
else
okid1=okid
okid2=okid
end if
else
okid1=okid
okid2=okid
end if
rs("ClassID")=okid1
rs("anClassID")=okid2
rs("ProductName")=request2.form("ProductName")
rs("ChangeDate")=date()
if request2.form("phflag")<>empty then rs("phflag")=request2.form("phflag")
if request2.form("ggflag")<>empty then rs("ggflag")=request2.form("ggflag")
if request2.form("xyflag")<>empty then rs("xyflag")=request2.form("xyflag")
if request2.form("jyflag")<>empty then rs("jyflag")=request2.form("jyflag")
if Request2.form("SmallPic")<>"" then
DelFile(SmallPic)
rs("SmallPic")=request2.form("SmallPic")
end if
rs("Content")=request2.form("Content")
if session("AdminName")=empty then
rs("user")="管理员"
else
rs("user")=session("AdminName")
end if
rs.update
RsClose()
response.write "<script>alert('提交成功!');window.location.href='ManageNews.asp?"&url&"';</script>"
end if
%>
……
……
……
<td height="22" align="right" class="forumRowHighlight" style="width: 11%">
文章带图像：</td>
<td width="4%" class="forumRow">
<input type="checkbox" name="phflag" value="1" <%if phflag=1 then%>checked><%end if%></td>
<td width="12%" class="forumRow" style="background-color: #EAEAF3">
<p align="right">加入公告栏目：</td>
<td width="4%" class="forumRow">
<input type="checkbox" name="ggflag" value="1" <%if ggflag=1 then%>checked><%end if%></td>
<td width="12%" class="forumRow" style="background-color: #EAEAF3">
<p align="right">加入校园动态：</td>
<td width="3%" class="forumRow">
<input type="checkbox" name="xyflag" value="1" <%if xyflag=1 then%>checked><%end if%></td>
<td width="18%" class="forumRow">
<p align="right">加入底部滚动图像区：</td>
<td width="24%" class="forumRow">
<input type="checkbox" name="jyflag" value="1" <%if jyflag=1 then%>checked><%end if%></td>
<td width="88%" class="forumRow" colspan="8">
<INPUT type="hidden" name="Content" value="<%=server.HTMLEncode(Content)%>">
在IE8环境下工作时，如图的四个复选框，如果以前没有选定的话，点选以后可以正常赋值，一旦选定以后想要去除选定的话总是失败，中间省略号的部分是表格定义，应该与程序无关。另外，重置按纽按下无效。
小弟新手，实在找不出原因，麻烦各位大侠出手，请版主不要删我贴子。
另，刚注册的号，实在是没分，不好意思了。
[ 本帖最后由 fslifei 于 2010-9-18 21:45 编辑 ]
