高分求答案(判断数组跟另一张表中的某字段列的相同数据)
程序代码:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.> <html xmlns="http://www.> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>无标题文档</title> <SCRIPT language=javascript> function doCheck(chk) { var names = chk.id; var chks = document.getElementsByName(names); for (var i = 0; i < chks.length; i++) { if (chks[i].type == "checkbox") { chks[i].checked = chk.checked; } } } </SCRIPT> </head> <!--#include file="Conn.asp"--> <% dim sql,rsBigClass,rsSmallClass,ErrMsg set rsBigClass=server.CreateObject("adodb.recordset") rsBigClass.open "Select * From BigClass",conn,1,3 %> <%dim i,j,id id=replace(trim(Request("id")),"'","") set rs1=Server.CreateObject("Adodb.recordset") rs1.open"select * from Q_X where user_id='"&id&"'",conn,1,1 %> <form name="del" method="Post" action="Admin_QianXianSave.asp" onSubmit="return form_onsubmit()"> <table border="0" cellpadding="0" cellspacing="0"> <tr> <td> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"> <br> <br> <strong>合 同 类 别 权 限 设 置</strong> <br> <br> <br> <table align="left" width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" class="border"> <% do while not rsBigClass.eof Bname=cstr(rsBigClass("BigClassName")) 'Bname="需方简称" 'Bname1="合同生效日期" %> <tr bgcolor="ECF5FF" class="tdbg"> <td width="100%" height="22" align="left"> <% sPic = rs1("BigClass_id") sPic = split(sPic, ",") for i=0 to ubound(sPic) %> <%if sPic(i)=Bname then%> <input type="checkbox" checked="checked" id="<%=Bname%>" name="checkbox" value="<%=Bname%>" onClick="javascript:doCheck(this)"><%=Bname%> <%else%> <input type="checkbox" id="<%=Bname%>" name="checkbox" value="<%=Bname%>" onClick="javascript:doCheck(this)"><%=Bname%> <% end if exit for next %> </td> </tr> <% set rsSmallClass=server.CreateObject("adodb.recordset") rsSmallClass.open "Select * From SmallClass Where BigClassName='" & rsBigClass("BigClassName") & "'",conn,1,3 Sname=rsBigClass("BigClassName") if not(rsSmallClass.bof and rsSmallClass.eof) then do while not rsSmallClass.eof SName=cstr(rsBigClass("BigClassName")) %> <tr bgcolor="#E3E3E3" class="tdbg" align="left"> <td width="160" height="22"> <% sPic = rs1("BigClassX_id") sPic = split(sPic, ",") for j=0 to ubound(sPic) %> <%if sPic(j)=SName then%> <input name='checkbox1' checked="checked" type='checkbox' onClick="unselectall()" id="<%=SName%>" value='<%=SName%>'><%=SName%> <%else%> <input name='checkbox1' type='checkbox' onClick="unselectall()" id="<%=SName%>" value='<%=SName%>'><%=SName%> <% end if exit for next %> </td> </tr> <% rsSmallClass.movenext loop end if rsSmallClass.close set rsSmallClass=nothing rsBigClass.movenext loop %> </table></td> </tr> </table> </td> </tr> <tr> <td><input value="<%=rs("UserName")%>" type="hidden" name="Id" /></td> </tr> <tr> <td><input value="<%=rs("id")%>" type="hidden" name="user_Id" /></td> </tr> <tr> <td><INPUT type=submit value='确定修改' name=Submit2></td> </tr> </table> </form> </body> </html>数据库样式:BigClass表
BigClassID BigClassName EnBigClassName
26 需方简称 cc
28 合同生效日期
32 合同交货日期
33 实际发货日期
34 任务表号
35 产品描述
36 生产要求或配置档案
37 操作条件及质量要求和检验标准
38 阀体形式、法兰形式、电磁阀连接、阀门附件、油漆等
39 备品备件及附件组装和配送要求
40 包装要求、运输方式及目的地、费用负担
41 其他事项
42 需方附加要求和更改
43 合同生效、付款方式、违约负担
SmallClass表
SmallClassID SmallClassName EnSmallClassName BigClassName EnBigClassName
88 名称 产品描述
89 型号 产品描述
90 规格 产品描述
91 数量 产品描述
92 配缸 生产要求或配置档案
93 密封形式 生产要求或配置档案
94 阀体长 生产要求或配置档案
95 阀杆大小 生产要求或配置档案
96 产品编号 生产要求或配置档案
Q_X表
id admin_id BigClass_id BigClassX_id user_id
30 aaasss 需方简称, 合同生效日期, 合同交货日期 名称, 型号, 规格, 数量 8
31 cccccc 合同交货日期, 产品描述 名称, 型号, 规格, 数量 7
现在只能显示出Q_X表的数组第一个值得 跟 BigClass表中第一个相符的一个值,而不是判定出跟他所有相符的值,
请求高手帮忙……
跪求高手帮忙……
拜求高手帮忙……