想实现功能：在网页开始时读出锁内预设的串,读出的串与预设值比较，再决定是否运行网页。
在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是这预设的值
%>
'下面是运行的网页……

服务器端的<%%>内任何代码无论放在网页的什么地方都是要优先VBScript执行的，因此楼主的代码里if username的判断永远是False因为这个判断会优先Window_Onload()过程先执行。

<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Function JMS()
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 Function
end if
mylen=aObject.yread(0,"ffffffff","ffffffff",DevicePath)
username=trim(aObject.YReadString(1,mylen, "ffffffff", "ffffffff", DevicePath))
JMS=username  '这里username读出的一定系一个串,赋值给函数JMS()
End Function
-->
</SCRIPT>

<%
   if JMS()="dftl" then    '这里判断时说:类型不匹配,请版主再帮忙看看
%>

一般只有提交时进行调用，或者使用Ajax

主要是没有脱离其它编程的思想,没有很好理解网页中的"提交"