ASP调用VBScript中变量的问题

agui1978 2006-05-09 09:00:58
各位大侠,小弟正在学着用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
%>
...全文
263 6 打赏 收藏 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
agui1978 2006-05-09
  • 打赏
  • 举报
回复
那请教一下,如果我不想用页面跳转的话,怎么才能在服务器端取得这个脚本运行的结果呢?请高手指点
dong127 2006-05-09
  • 打赏
  • 举报
回复
vbscript中的结果是在客户端运行后得到的,你却要在服务器端直接使用是不行的。要等客户端将运行结果传回服务器端后再做判断。
agui1978 2006-05-09
  • 打赏
  • 举报
回复
都是再客户端!
agui1978 2006-05-09
  • 打赏
  • 举报
回复
写到<%%>代码执行不了,我试过了!<SCRIPT language="VBScript">中的结果正常,运算没有问题,就是在后边的<%%>里调用OKS的值不行,!<SCRIPT language="VBScript">的结果在<%%>中不能取得!!
  • 打赏
  • 举报
回复
关键是没分清楚客户端服务端
btlyeo 2006-05-09
  • 打赏
  • 举报
回复
为什么不把代码也写到<%%>里?

这句话有问题
results="<%=session("SN_SERAL")%>"

改成
results=session("SN_SERAL")
再试

28,402

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧