Window_Onload()过程中,传参数问题。
想实现功能:在网页开始时读出锁内预设的串,读出的串与预设值比较,再决定是否运行网页。在Window_Onload()中读出了串,但好象传不出去。
我将username设为Public也不行,请高手帮帮忙。代码如下:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub Window_Onload()
dim username
'读锁ID
On Error resume next
dim a,b,mylen
set aObject = CreateObject("Syunew3A.s_simnew3")
DevicePath = aObject.FindPort(0)
if aobject.lasterror<>0 then
msgbox "请插入加密锁后再进行操作。"
exit Sub
end if
mylen=aObject.yread(0,"ffffffff","ffffffff",DevicePath)
username=trim(aObject.YReadString(1,mylen, "ffffffff", "ffffffff", DevicePath))
'这里读出了锁中的串,放入username中,但在后面检查时username又变为空了.
End Sub
-->
</SCRIPT>
<%
if username="XX" then 'XX是这预设的值
%>
'下面是运行的网页……