您当前的位置: 现有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