使用vbscript脚本在表单中进行选择的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 现自己将应答几十个消息框。这可不是您我所希望得到的用户体验。 那么，能否解决这个问题？当然可以。我们不想在这方面多花时间，但是需要做几件事。首先，我们在HTA中添加了一个SPAN区域；这只是屏幕上的一个可识别的区域，可以在其中写入信息。使用此类代码将SPAN（附带DataArea的ID）放置在按钮的下方： <P><spanid=DataArea></span> 其次，需要收集该数据，并将其全都保存到一个变量中，而不在一个消息框中显示所有数据。该代码将变量strText的值设为当前在strText中的任何值加上“caption”属性的值，再加上<BR>标记（在HTML脚本中相当于按键盘上的“ENTER”键）： strText=strText&objItem.Caption&"<BR>" 最后，需要将SPAN的“InnerHTML”属性设为变量strText的值： DataArea.InnerHTML=strText 都明白了吗？另外，为了避免过多的解释，这里有个修改过的HTA，可以收集计算机上所安装的所有服务的名称，然后自动将这些名称写入HTA中： 复制代码 代码如下: <SCRIPTLANGUAGE="VBScript"> SubRunScript IfComputerOption(0).CheckedThen strComputer=ComputerOption(0).Value EndIf IfComputerOption(1).CheckedThen strComputer=ComputerOption(1).Value EndIf IfComputerOption(2).CheckedThen strComputer=ComputerOption(2).Value EndIf IfComputerOption(3).CheckedThen strComputer=ComputerOption(3).Value EndIf IfstrComputer=""Then ExitSub EndIf SetobjWMIService=GetObject_ ("winmgmts:\\"&strComputer&"\root\cimv2") SetcolItems=objWMIService.ExecQuery_ ("Select*FromWin32_Service") ForEachobjIteminColItems strText=strText&objItem.Name&"<BR>" Next DataArea.InnerHTML=strText EndSub SubCancelScript Self.Close() EndSub </SCRIPT> <BODY> <inputtype="radio"name="ComputerOption"value="atl-ws-01">atl-ws-01<BR> <inputtype="radio"name="ComputerOption"value="atl-ws-02">atl-ws-02<BR> <inputtype="radio"name="ComputerOption"value="atl-ws-03">atl-ws-03<BR> <inputtype="radio"name="ComputerOption"value="atl-ws-04">atl-ws-04<P> <inputid=runbuttonclass="button"type="button"value="RunScript"name="ok_button" onClick="RunScript"> <inputid=runbuttonclass="button"type="button"value="Cancel"name="cancel_button" onClick="CancelScript"> <P> <spanid=DataArea></span> </BODY> |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于使用vbscript脚本在表单中进行选择的代码的所有评论
