ASP调用VBScript中变量的问题
各位大侠,小弟正在学着用ASP,遇到一个问题,想请教一下,我用VBScript脚本语言执行一个任务,执行结果是给一个变量oks赋值,执行完毕后,我用ASP语言判断该变量的值是否为1,但是我在ASP中直接判断该变量时,oks为空,取得不了在VBScript为其赋的值。请教各位大侠怎么在ASP中调用VBScript中这个变量呢?我的VBScript代码如下:
<SCRIPT language="VBScript">
Dim libver, drvver, path, level, id, filetype,oks
on error resume next
' GetLibVersion() 返回iKey API 库的版本
libver = iKeyClient.GetLibVersion
drvver = iKeyClient.GetDriverVersion
' 错误&H1B6表示iKey 1000的控件没有加载成功.
if Err.number = &H1B6 then
document.writeln "不能正确加载iKey控件!" & "<" & "br>"
else
document.write "iKey运行库的版本为 0x" & hex(libver) & "<" & "br>"
document.write "驱动程序的版本为0x" & hex(drvver) & "<" & "br>"
' OpenDevice(long lFlags, BSTR szAppId) 打开iKey设备
iKeyClient.OpenDevice 1, ""
' iKeyClient.OpenDevice &H200, "11223344556677889900AABBCCDDEEFF"
' iKeyClient.OpenDevice &H100, "Ken.COM.Test"
if Err then
document.write "打开iKey设备返回 0x" & hex(Err.number) & ".<" & "br>"
else
document.write "打开设备成功<" & "br>"
end if
Dim results1,results
results="<%=session("SN_SERAL")%>"
results1 = iKeyClient.GetStringProperty(7, 0,"")
if results1=results then
oks=1
else
oks=0
end if
iKeyClient.CloseDevice'关闭设备
end if
</SCRIPT>
我用ASP调用的结果
<%
if oks=1 then
show=1
else
show=0
end if
%>