标题:高分求答案(判断数组跟另一张表中的某字段列的相同数据)
只看楼主
zdloveday
Rank: 2
等 级:论坛游民
帖 子:221
专家分:96
注 册:2008-9-5
结帖率:68.89%
 问题点数:0 回复次数:3 
高分求答案(判断数组跟另一张表中的某字段列的相同数据)
程序代码:
<!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%>
          &nbsp;&nbsp;<input name='checkbox1' checked="checked" type='checkbox' onClick="unselectall()" id="<%=SName%>" value='<%=SName%>'><%=SName%>
          <%else%>
          &nbsp;&nbsp;<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表中第一个相符的一个值,而不是判定出跟他所有相符的值,
请求高手帮忙……
跪求高手帮忙……
拜求高手帮忙……


搜索更多相关主题的帖子: 答案 color 
2012-05-27 21:44
zdloveday
Rank: 2
等 级:论坛游民
帖 子:221
专家分:96
注 册:2008-9-5
得分:0 
我要的是
sPic = rs1("BigClassX_id")
        sPic = split(sPic, ",")
数组跟 数据库BigClass表中的字段(BigClassName)这一列分别对比

不懂----就无耻的下问吧----
2012-05-27 21:47
zdloveday
Rank: 2
等 级:论坛游民
帖 子:221
专家分:96
注 册:2008-9-5
得分:0 
好像是这里错了<%if sPic(i)=Bname then%>    Bname 只能获取到BigClass表
中的 BigClassName 字段中的一个值?跪求这应该怎么写呢?

不懂----就无耻的下问吧----
2012-05-27 22:17
zdloveday
Rank: 2
等 级:论坛游民
帖 子:221
专家分:96
注 册:2008-9-5
得分:0 
2种方法谁能告诉我怎么做?
1、谁能告诉我一个数组怎么跟一个字段中的某列循环判定相等的值呢?
2、怎么样判断循环中两个数组中的某个字段的数据相等?逐个对比判断又怎么写呢?

[ 本帖最后由 zdloveday 于 2012-5-28 00:34 编辑 ]

不懂----就无耻的下问吧----
2012-05-27 23:04



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-368149-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.066310 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved