一个超简单的问题，判断acess表单中含有特定字符的字段所在的行变为红色！！！

要求在acess表单名dabiao中判断含有“非生产”字符的字段所在的行都在输出的时候背景变为红色，要是不行，直接判断COLUN8字段只要有“非生产”字符就输出背景为红色！！！求大虾，菜鸟级啊，我知道要用instr

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

下面仅示意一下，用TABLE的形式（其它DIV,LI等形式也可以参考）：
SET RS=CONN.OPEN(SQL)
response.write("<table>")
WHILE NOT RS.EOF
if instr(rs("COLUN8"),"非生产")>0 then
'''加上行开始标签，指定为红色背景
response.write("<tr style="background:red">")
else
'''加上行开始标签，使用默认背景
response.write("<tr>")
end if
'''下面按想要的形式输出本行记录的各字段
response.write("<td>"+rs(1)+"</td>")
response.write("<td>"+rs(2)+"</td>")
'''加上行结束标签
response.write("</tr>")WEND
response.write("</table>")
RS.CLOSE
SET RS=NOTHING
'''加上行开始标签，指定为红色背景
response.write("<tr style='background-color:red'>")这里更正一下
<%
Response.buffer=true
Response.ContentType="text/HTML"
Response.Charset="gb2312"
%><%
StrConnect = "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=E:\Inetpub\MAINDATE\dabiao.accdb"
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConnect
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "Ruku", strConnect, 3,3,2
%>
<body bgcolor="#F0F0F0" onclick="hidtext()" onLoad="hidtext()" >
<center>
<form action="caigoushengget.asp"  method="get" ><h2><font color="red">采购申请表</font></h2>
<table width="150" height="20" border="1" align="center" bordercolor="#999999" bgcolor="#F0F0F0" onDblClick="posxy(event)" id="table1" >
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表头
response.write "<tr>"
response.write "<td> </td>"
response.write "<td><input type='text' value='输入名称' onchange='textcx()' id='textid' size='10' /></td>"
response.write "<td><input type='text' value='输入图号' onchange='textcx2()' id='textid2' size='10' /></td>"
response.write "<td><input type='text' value='输入类型' onchange='textcx6()' id='textid6' size='10' /></td>"
response.write "<td colspan='4'> </td>"
response.write "<td><input type='text' value='输入产品' onchange='textcx3()' id='textid3' size='10' /></td>"
response.write "<td colspan='2'> </td>"
response.write "<td><input type='text' value='输入日期' onchange='textcx4()' id='textid4' size='10' /></td>"
response.write "<td> </td>"
response.write "<td><input type='text' value='查询' onchange='textcx5()' id='textid5' size='10' /></td>"
response.write "</tr>"response.write "<tr>"
response.write "<td id='tdid1' size=14><nobr> ID </nobr></td>"
response.write "<td><nobr>  名 称  </nobr></td>"
response.write "<td><nobr> 图号 / 型号<nobr></td>"
response.write "<td><nobr> 产品类型 </nobr></td>"
response.write "<td><nobr> 购买数量 </nobr></td>"
response.write "<td><nobr> 材 料 </nobr></td>"
response.write "<td><nobr> 重 量 </nobr></td>"
response.write "<td><nobr> 有无图纸 </nobr></td>"
response.write "<td><nobr> 适用产品 </nobr></td>"
response.write "<td><nobr> 部 别 </nobr></td>"
response.write "<td><nobr> 申请人 </nobr></td>"
response.write "<td><nobr> 申请日期 </nobr></td>"
response.write "<td><nobr> 指定厂家 </nobr></td>"
response.write "<td><nobr> 备注 </nobr></td>"
response.write "</tr>"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''On Error Resume Next
objRec.MoveFirst
DO While NOT objRec.EOF
response.write "<tr>"response.write "<td>"&objRec("ID")&"</td>"
response.write "<td>"&objRec("cloun1")&"</td>"
response.write "<td>"&objRec("cloun2")&"</td>"
response.write "<td>"&objRec("cloun3")&"</td>"
response.write "<td>"&objRec("cloun4")&"</td>"
response.write "<td>"&objRec("cloun5")&"</td>"
response.write "<td>"&objRec("cloun6")&"</td>"
response.write "<td>"&objRec("cloun7")&"</td>"
response.write "<td>"&objRec("cloun8")&"</td>"
response.write "<td>"&objRec("cloun9")&"</td>"
response.write "<td>"&objRec("cloun10")&"</td>"
response.write "<td>"&objRec("cloun11")&"</td>"
response.write "<td>"&objRec("cloun12")&"</td>"
response.write "<td>"&objRec("cloun13")&"</td>"
response.write "</tr>"
objRec.MoveNext
loop
%><%
response.write "<tr>"
response.write "<td colspan='15'>编辑部门：齐达运营部 </td>"
response.write "</tr>"
%></table><p>
<p>
<input type="button" value="添加记录" size='8' onClick="inserrow()"
        style="height: 25px; width: 97px; font-size: medium; font-weight: 700; color: #000000" /><div style="visibility:hidden" id="tianjia1"  >
<table border="1" bgcolor="#F0F0F0" >
<%
response.write "<tr>"
response.write "<td><nobr>  名 称  </nobr></td>"
response.write "<td><nobr> 图号 / 型号<nobr></td>"
response.write "<td><nobr> 产品类型 </nobr></td>"
response.write "<td><nobr> 购买数量 </nobr></td>"
response.write "<td><nobr> 材 料 </nobr></td>"
response.write "<td><nobr> 重 量 </nobr></td>"
response.write "<td><nobr> 有无图纸 </nobr></td>"
response.write "<td><nobr> 适用产品 </nobr></td>"
response.write "<td><nobr> 部 别 </nobr></td>"
response.write "<td><nobr> 申请人 </nobr></td>"
response.write "<td><nobr> 申请日期 </nobr></td>"
response.write "<td><nobr> 指定厂家 </nobr></td>"
response.write "<td><nobr> 备注 </nobr></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><input type='text' name='ziduan1' size='10' /></td>"
response.write "<td><input type='text' name='ziduan2' size='10' /></td>"
response.write "<td><input type='text' name='ziduan3' size='10' /></td>"
response.write "<td><input type='text' name='ziduan4' size='10' /></td>"
response.write "<td><input type='text' name='ziduan5' size='10' /></td>"
response.write "<td><input type='text' name='ziduan6' size='10' /></td>"
response.write "<td><select   name='ziduan7' ><option value='请选择'>请选择</option><option value='有'>有</option><option value='无'>无</option></select> </td>"
response.write "<td><input type='text' name='ziduan8' size='10' /></td>"
response.write "<td><input type='text' name='ziduan9' size='10' /></td>"
response.write "<td><input type='text' name='ziduan10' size='10' /></td>"
response.write "<td><input type='text' name='ziduan11' id='ziduan201' size='20' onclick='showCalendar(this)'/></td>"response.write "<td><input type='text' name='ziduan12' size='10' /></td>"
response.write "<td><input type='text' name='ziduan13' size='10' /></td>"
response.write "</tr>"
%>
</table>
<input type="button" value="隐藏" onClick="yincang()" />  <input type="submit" value="提交"  onClick="freash1()" /> <input type="reset" value="重置"  />
</div>
<p>
<input type="button" value="关闭" onClick="window.close()" />
<p>
</form>
<form name="ts01" action="bianji2.asp"  method="get" >
<input type="text" name="test01" id="test01" class="moveable"  onchange=" bianjitest()" onBlur="freash1()"   >
<input type="text" name="test02" id="test02" style="visibility:hidden"  >
<input type="text" name="test03" id="test03" style="visibility:hidden"  >
</form>
</center>
</body>如上代码，我的是ACESS2007的数据库，数据库表名Ruku,我就是想实现在表头“适用产品”所对应的数据库字段cloun8下只要内容是非生产，就在输出的时候那一行的背景颜色为红色，要是能实现在表单中任何一个单元格内容为非生产那行输出背景为红色也行。我这就是用来用户看起来方便点的！谢谢楼上的，我SQL不是很看得懂，你讲的思想我有点能明白
其实5楼已经解释的很清楚了，我把5楼的和你的代码综合了一下，还有建议以后的数据库中的列名和控件的命名最好规范些。
<%
Response.buffer=true
Response.ContentType="text/HTML"
Response.Charset="gb2312"
%><%
StrConnect = "Driver={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=E:\Inetpub\MAINDATE\dabiao.accdb"
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.Open StrConnect
Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "Ruku", strConnect, 3,3,2
%>
<body bgcolor="#F0F0F0" onclick="hidtext()" onLoad="hidtext()" >
<center>
<form action="caigoushengget.asp"  method="get" ><h2><font color="red">采购申请表</font></h2>
<table width="150" height="20" border="1" align="center" bordercolor="#999999" bgcolor="#F0F0F0" onDblClick="posxy(event)" id="table1" >
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''表头
response.write "<tr>"
response.write "<td> </td>"
response.write "<td><input type='text' value='输入名称' onchange='textcx()' id='textid' size='10' /></td>"
response.write "<td><input type='text' value='输入图号' onchange='textcx2()' id='textid2' size='10' /></td>"
response.write "<td><input type='text' value='输入类型' onchange='textcx6()' id='textid6' size='10' /></td>"
response.write "<td colspan='4'> </td>"
response.write "<td><input type='text' value='输入产品' onchange='textcx3()' id='textid3' size='10' /></td>"
response.write "<td colspan='2'> </td>"
response.write "<td><input type='text' value='输入日期' onchange='textcx4()' id='textid4' size='10' /></td>"
response.write "<td> </td>"
response.write "<td><input type='text' value='查询' onchange='textcx5()' id='textid5' size='10' /></td>"
response.write "</tr>"response.write "<tr>"
response.write "<td id='tdid1' size=14><nobr> ID </nobr></td>"
response.write "<td><nobr>  名 称  </nobr></td>"
response.write "<td><nobr> 图号 / 型号<nobr></td>"
response.write "<td><nobr> 产品类型 </nobr></td>"
response.write "<td><nobr> 购买数量 </nobr></td>"
response.write "<td><nobr> 材 料 </nobr></td>"
response.write "<td><nobr> 重 量 </nobr></td>"
response.write "<td><nobr> 有无图纸 </nobr></td>"
response.write "<td><nobr> 适用产品 </nobr></td>"
response.write "<td><nobr> 部 别 </nobr></td>"
response.write "<td><nobr> 申请人 </nobr></td>"
response.write "<td><nobr> 申请日期 </nobr></td>"
response.write "<td><nobr> 指定厂家 </nobr></td>"
response.write "<td><nobr> 备注 </nobr></td>"
response.write "</tr>"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''On Error Resume Next
objRec.MoveFirst
DO While NOT objRec.EOFIf instr(objRec("COLUN8"),"非生产")>0 then
response.write("<tr style="background:red">")'加上行开始标签，指定为红色背景
Else
response.write("<tr>")'加上行开始标签，使用默认背景
End If
response.write "<td>"&objRec("ID")&"</td>"
response.write "<td>"&objRec("cloun1")&"</td>"
response.write "<td>"&objRec("cloun2")&"</td>"
response.write "<td>"&objRec("cloun3")&"</td>"
response.write "<td>"&objRec("cloun4")&"</td>"
response.write "<td>"&objRec("cloun5")&"</td>"
response.write "<td>"&objRec("cloun6")&"</td>"
response.write "<td>"&objRec("cloun7")&"</td>"
response.write "<td>"&objRec("cloun8")&"</td>"
response.write "<td>"&objRec("cloun9")&"</td>"
response.write "<td>"&objRec("cloun10")&"</td>"
response.write "<td>"&objRec("cloun11")&"</td>"
response.write "<td>"&objRec("cloun12")&"</td>"
response.write "<td>"&objRec("cloun13")&"</td>"
response.write "</tr>"
objRec.MoveNext
loop
%><%
response.write "<tr>"
response.write "<td colspan='15'>编辑部门：齐达运营部 </td>"
response.write "</tr>"
%></table><p>
<p>
<input type="button" value="添加记录" size='8' onClick="inserrow()"
        style="height: 25px; width: 97px; font-size: medium; font-weight: 700; color: #000000" /><div style="visibility:hidden" id="tianjia1"  >
<table border="1" bgcolor="#F0F0F0" >
<%
response.write "<tr>"
response.write "<td><nobr>  名 称  </nobr></td>"
response.write "<td><nobr> 图号 / 型号<nobr></td>"
response.write "<td><nobr> 产品类型 </nobr></td>"
response.write "<td><nobr> 购买数量 </nobr></td>"
response.write "<td><nobr> 材 料 </nobr></td>"
response.write "<td><nobr> 重 量 </nobr></td>"
response.write "<td><nobr> 有无图纸 </nobr></td>"
response.write "<td><nobr> 适用产品 </nobr></td>"
response.write "<td><nobr> 部 别 </nobr></td>"
response.write "<td><nobr> 申请人 </nobr></td>"
response.write "<td><nobr> 申请日期 </nobr></td>"
response.write "<td><nobr> 指定厂家 </nobr></td>"
response.write "<td><nobr> 备注 </nobr></td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td><input type='text' name='ziduan1' size='10' /></td>"
response.write "<td><input type='text' name='ziduan2' size='10' /></td>"
response.write "<td><input type='text' name='ziduan3' size='10' /></td>"
response.write "<td><input type='text' name='ziduan4' size='10' /></td>"
response.write "<td><input type='text' name='ziduan5' size='10' /></td>"
response.write "<td><input type='text' name='ziduan6' size='10' /></td>"
response.write "<td><select   name='ziduan7' ><option value='请选择'>请选择</option><option value='有'>有</option><option value='无'>无</option></select> </td>"
response.write "<td><input type='text' name='ziduan8' size='10' /></td>"
response.write "<td><input type='text' name='ziduan9' size='10' /></td>"
response.write "<td><input type='text' name='ziduan10' size='10' /></td>"
response.write "<td><input type='text' name='ziduan11' id='ziduan201' size='20' onclick='showCalendar(this)'/></td>"response.write "<td><input type='text' name='ziduan12' size='10' /></td>"
response.write "<td><input type='text' name='ziduan13' size='10' /></td>"
response.write "</tr>"
%>
</table>
<input type="button" value="隐藏" onClick="yincang()" />  <input type="submit" value="提交"  onClick="freash1()" /> <input type="reset" value="重置"  />
</div>
<p>
<input type="button" value="关闭" onClick="window.close()" />
<p>
</form>
<form name="ts01" action="bianji2.asp"  method="get" >
<input type="text" name="test01" id="test01" class="moveable"  onchange=" bianjitest()" onBlur="freash1()"   >
<input type="text" name="test02" id="test02" style="visibility:hidden"  >
<input type="text" name="test03" id="test03" style="visibility:hidden"  >
</form>
</center>
</body>