vbs页面显示结果有关问题

vbs页面显示结果问题
现有vbs代码

VBScript code

........If Err.number <> 0 Then            errcode = hex(Err.Number)            If Err.Number <> 0 and errcode <> "80092004" then                sz="The error '" & errcode & "' occurred." & chr(13) & chr (10) & "Your certificate could not be retrieved."                blah=MsgBox(sz,0,"Internet Explorer Certificate Retrieval")                top.main.history.back 1                document.forms(0).res.value="错误代码:"& errcode            end if            document.forms(0).res.value="错误代码:"& errcode        else            document.forms(0).res.value="成功"        End If

页面代码:

HTML code

<div align="center">                                                                        <input type="text" name="res" size="50"/>                                                                    </div>

现在要解决的问题是,如果使用这种方法来显示结果,结果会显示为一个text文本框,这样的话展示就存在问题,所以能够有其他的方法将这个vbs操作的结果打印到这个div中,希望各位高人指点!!!!

[解决办法]
把文本框的边框去掉就行了
<div align="center">
<input type="text" name="res" size="50" style='border:0px'/>
</div>
[解决办法]
给div一个id = "pad"

VBScript code

If Err.number <> 0 Then            errcode = hex(Err.Number)            If Err.Number <> 0 and errcode <> "80092004" then                sz="The error '" & errcode & "' occurred." & chr(13) & chr (10) & "Your certificate could not be retrieved."                blah=MsgBox(sz,0,"Internet Explorer Certificate Retrieval")                top.main.history.back 1                document.getElementById("pad").innerHTML="错误代码:"& errcode            end if            document.getElementById("pad").innerHTML="错误代码:"& errcode        else            document.getElementById("pad").innerHTML="成功"        End If 

 

查看更多 下一篇