高手: 用Vbscript如何取得屏幕的height,width???

dhbbinbin 2004-04-01 12:28:25

高手: 用Vbscript如何取得屏幕的height,width???

...全文

33 回复打赏收藏转发到动态举报

写回复

回复

切换为时间正序

请发表友善的回复…

发表回复

Vbs序列化/反序列化Json基类可直接使用，bug已被我修复 Example: Dim fso, json, str, o, i Set json = New VbsJson Set fso = WScript.CreateObject("Scripting.Filesystemobject") str = fso.OpenTextFile("json.txt").ReadAll Set o = json.Decode(str) WScript.Echo o("Image")("Width") WScript.Echo o("Image")("Height") WScript.Echo o("Image")("Title") WScript.Echo o("Image")("Thumbnail")("Url") For Each i In o("Image")("IDs") WScript.Echo i Next Json文件: { "Image": { "Width": 800, "Height": 600, "Title": "View from 15th Floor", "Thumbnail": { "Url": "http://www.example.com/image/481989943", "Height": 125, "Width": "100" }, "IDs": [116, 943, 234, 38793] } }

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 留言板首页 <script language="javascript">

width="100%" align="center" border="0">

height="80"> width="100%" border="0">

height="36"> width="70%" height="30" border="0" align="center" cellPadding="0" cellSpacing="0" class="font12">

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

height="30">用户名：

<%else%> width="474" border="0" cellpadding="0" cellspacing="0">

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

width="86" onmouseover="MM_showHideLayers('Layer1','','show')" onmouseout="MM_showHideLayers('Layer1','','hide')">【控制面板】

width="79">【退出登录】

width="70%" align="center" border="0">

width="15%" align="left">

width="100" height="25" onclick="javascript:window.location.href='msg.asp'" style="cursor:hand" />

width="85%" align="center" class="font13"> <%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 %> width="100%" border="0" cellspacing="0" cellpadding="0" style="border:#A2D3EC 1px solid">

width="20%" height="25" align="left" class="font13B" style="border-right:#A2D3EC 1px solid"><%=rs("UserName")%>

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

width="20%" rowspan="3" align="center" valign="top" style="border-right:#A2D3EC 1px solid" class="font12"><%=rs("UserHeadPic")%>
QQ:<%=rs("UserQQ")%>| " title="发邮件给他/她">

width="18" height="12" border="0" />
<%=rs("MsgDate")%>

<%=rs("MsgContent")%>

<%if rs("MsgReply")<>"" then%>width="80%" border="0" cellspacing="0" cellpadding="10" style="border:#D1D1D1 1px solid" class="font12">

width="25%" align="left" valign="top" bgcolor="#F2F2F2">管理员回复：
(<%=rs("MsgReDate")%>)

width="78%" align="left" valign="top" bgcolor="#F2F2F2"><%=rs("MsgReply")%>

height="25" align="right" valign="bottom" class="font12"><%if session("$_name$")=rs("MsgAuthor") then%>">编辑 | <%end if%><%if session("$_name$")="admin" then%>">回复 | ">删除<%end if%>

<% rs.movenext next end if %>

width="70%" border="0" align="center" cellpadding="0" cellspacing="0">

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

C#+Access+asp.net教学计划管理系统目录博主介绍1、设计的可行性1.1、MIS系统的产生和发展情况1.2、教学计划管理系统的产生和可行性分析相关技术介绍2.1、ASP.Net2.0技术的介绍目录博主介绍 ???? 个人主页:苏州凯捷智能科技有限公司 ???? 个人社区:CSDN全国各地程序猿 ????作者介绍：苏州凯捷智能科技有限公司创始人，主要目前与华为合作5G工业机器人领域开发，2D、3D视觉项目开发，政府项目投标开发 ????如果文章对你有帮助，欢迎关注、点赞、收藏（一键三

获取分辨率： Dim width,height width=CreateObject("HtmlFile").ParentWindow.Screen.AvailWidth height=CreateObject("HtmlFile").ParentWindow.Screen.AvailHeight Screen 对象 Screen 对象包含有关客户端显示屏幕的...

1. oncontextmenu="window.event.returnvalue=false" 将彻底屏蔽鼠标右键no 可用于Table2. 取消选取、防止复制3. onpaste="return false" 不准粘贴4. oncopy="return false;" oncut="return false;" 防止复制5. IE地址栏前换成自己的图标6. ...

28,391

社区成员

357,060

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章