请问怎样用vbscript改变div的visibility值？

daocaoming 2002-02-21 01:45:21

谢了！

...全文

93 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

ssm1226 2002-02-21

打赏
举报

回复

<div id="div1" style="visibility:visible;">hello</div>
<script language="vbscript">
div1.style.visibility:hidden
div1.style.color=red
</script>

希偌 2002-02-21

打赏
举报

回复

<div id="div1" style="visibility:visible;">hello</div>
<input type=button name=b1 onclick="vbscript:click1()" value="change_visibility">
<script language=vbscript>
function click1()
if not div1.style.visibility="hidden" then
div1.style.visibility="hidden"
else
div1.style.visibility="visible"
end if
end function
</script>

jsp打印功能，经典，jsp打印功能，经典jsp打印功能，经典

网上找的，经我整理添加demo如下

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 留言板首页 <script language="javascript"> <div id="Layer1" onmouseover="MM_showHideLayers('Layer1','','show')" onmouseout="MM_showHideLayers('Layer1','','hide')">

修改用户资料

修改用户密码

<%if session("$_name$")="" then%>

<%=session("$_name$")%> 您好，欢迎您来到潇湘尘影的留言板

【控制面板】

【退出登录】

<%dim rs,sql,p,q set rs=server.CreateObject("adodb.recordset") sql="select * from userDetail,Msg where userDetail.UserName=Msg.MsgAuthor order by MsgID desc" rs.open sql,conn,1,1 rs.pagesize=5 q=10 '设置每页可以浏览的页的总数 if request.QueryString("p")<>"" then p=CInt(request.QueryString("p")) else p=0 'p=0时，则翻页数字显示1 2 3 4 5，p=1时，则翻页数字显示6 7 8 9 10，依次类推 end if if request.QueryString("iPage")<>"" then iPage=CInt(request.QueryString("iPage")) 'if iPage<1 then iPage=1 'if iPage>rs.pageCount then iPage=rs.pageCount else iPage=1 end if rs.AbsolutePage=iPage%> 共有<%=rs.recordcount%>条留言 | 共<%=rs.pagecount%>页 | 当前为第<%=rs.AbsolutePage%>页

<% if rs.eof then response.write("暂无留言") else for i=0 to rs.pageSize-1 if rs.Eof or rs.bof then exit for %>

<%=rs("UserName")%>

标题：<%=rs("MsgTitle")%>

<%=rs("UserHeadPic")%>
QQ:<%=rs("UserQQ")%>| " title="发邮件给他/她">

<%=rs("MsgDate")%>

<%=rs("MsgContent")%>

<%if rs("MsgReply")<>"" then%>

管理员回复：
(<%=rs("MsgReDate")%>)

<%=rs("MsgReply")%>

<%if session("$_name$")=rs("MsgAuthor") then%>">编辑 | <%end if%><%if session("$_name$")="admin" then%>">回复 | ">删除<%end if%>

<% rs.movenext next end if %>

<%if p<>0 then%> << <%else%> << <%end if%> <%for j=1 to q if(p*q+j<=rs.pageCount) then if(iPage<>q*p+j) then%> <%=q*p+j%> <%else%> <%=q*p+j%> <% end if end if next%> <%if p<>(rs.pageCount\q) then%> >> <%else%> >> <%end if%> <% rs.close set rs=nothing conn.close set conn=nothing%>

Web 之 html 如何显示隐藏Html元素的两种方法简单整理目录 Web 之 html 如何显示隐藏Html元素的两种方法简单整理一、简单介绍二、实现原理三、注意事项四、代码示例一、简单介绍 Web 开发的一些知识整理，方便后期遇到类似的问题，能够及时查阅使用。本节介绍，Web 开发中，如何显示隐藏Html元素的两种方法简单整理，如果有不足之处，欢迎指出，或者你有更好的方法，欢迎留言。二、实现原理 1、方法一：div的visibility可以控制div

28,406

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章