日期:2014-05-16  浏览次数:20829 次

asp 查询数据库
下面的报错

<%
    for I = 1 to objUsers.Count         
    dim strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID 
    set objRs = objCn.Execute(strSql)     
%>



------解决方案--------------------
objUsers.Item(I).UserID有空值。。增加空值判断

   for I = 1 to objUsers.Count         
if trim(objUsers.Item(I).UserID&"") <>"" then
    dim strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID 
    set objRs = objCn.Execute(strSql)     

end if
------解决方案--------------------
<%
    dim strSql
    for I = 1 to objUsers.Count         
    strSql="select strIsGCR from TB_USERS where userid ="&objUsers.Item(I).UserID 
    set objRs = objCn.Execute(strSql)     
%>
vbs中不能定义的同时进行赋值
------解决方案--------------------

<%
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
%>

------解决方案--------------------
&o 8进制
& o