如何根据数据库条件使用vbscript隐藏div？

从您的代码中，我无法100%确定您是想要完全的服务器端实现，还是想要冒险使用客户端VBScript，但一种解决方案是有条件地插入一点CSS来设置div的可见性：

<%
Dim oElm
oElm = businessRS("logofile")
Dim Div
Set Div = document.getElementById("img")
if oElm Is Nothing then
  Response.write("Div.style.visibility = ""hidden"" ") 
else
  Response.write("Div.style.visibility = ""visible"" ")
end if
%>

div#img{可见性：隐藏；}

<%
Dim oElm
oElm = businessRS("logofile")
Dim Div
Set Div = document.getElementById("img")
if oElm Is Nothing then
  Response.write("Div.style.visibility = ""hidden"" ") 
else
  Response.write("Div.style.visibility = ""visible"" ")
end if
%>

<%
    ' connect, run SQL etc
    '...

    if IsNull(oElm) then 
%>
<style type="text/css">
    div#img { visibility: hidden; }
</style>
<% 
    end if 
%>