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

Question

businessSQL = "Select orgid, organisationname, weblink, featured, logofile, shortdesc, webpage FROM directory WHERE dircatid = " & dircattouse & " AND orgtype = 1 AND delstatus <> 0 AND intapproved = 1 ORDER BY featured DESC, organisationname ASC;"
businessRS.Open businessSQL, dbconn

以上是我的选择查询，如果businessRS.("logofile")不为空，那么我想用 id=img 隐藏我的 div，否则它是可见的。如何使用 VBScript 执行此操作？

我尝试了以下代码来隐藏 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
%>

Answer 1

我不能 100% 从您的代码中确定您是否想要一个完全服务器端的实现，或者您是否想冒险进入客户端 VBScript，但一种解决方案可能是有条件地插入一些 CSS 来设置 div 的可见性：

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

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