日期:2014-05-16 浏览次数:20829 次
<%
for I = 1 to objUsers.Count
dim strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID
set objRs = objCn.Execute(strSql)
%>
<%
strCnn = Application("WFDB")
sch_cond = Request.QueryString("sch_cond")
Set objCn = Server.CreateObject("ADODB.Connection")
set objRs= Server.CreateObject("ADODB.Recordset")
objCn.Open strCnn
objRs.open strSql,objCn,3,1
if objRs.recordcount>0 then
do while not objRs.eof
%>
<span style="color: #FF0000;"><%=objRs("字段名")%></span>
<%
objRs.movenext
loop
end if
%>