【原创】关于飞天诚信ePass1000在B/S结构下的内容读取（VBSCRIPT） [复制链接]

因为公司使用的飞天诚信公司ePass1000的USBKEY，在B/S下无法采用像C/S下通过调用其提供的动态库的方法实现从USBKEY中读取其文件内容的方法。而且，由飞天诚信公司提供的帮助文档也写得过于简单，我通过从网上搜索只能找到本公司李会军写的关于此方面的例子。于是我找飞天诚信公司寻求帮助，并通过实验实现了文件读取的功能。以下是用VBSCRIPT实现的文件读取功能：    
例：
<OBJECT id="ePass" style="LEFT: 0px; TOP: 0px" height="0" width="0" classid="clsid:E740C5DF-3XXX-46A7-80EC-364D1ADB6CF0"
              name="ePass" VIEWASTEXT>
        </OBJECT>
        <script language="vbscript">
              function ReadKey()
                  On Error Resume Next        
                  ePass.GetLibVersion
                  ‘判断是否正确驱动
                  If Err.number = &H1B6 Then
                      MsgBox "USBKEY驱动程序未安装或安装不正确!"
                      document.Form1.txtUserName.value=""
                      document.Form1.txtIkeyNum.value="Bad"
                      Exit function
                  end if
                  ePass.OpenDevice 1, ""
                  ‘打开USBKEY 判读是否插入KEY
                  If Err then
                      MsgBox " 请 插 入 USBKEY ! "
                      document.Form1.txtUserName.value=""
                      document.Form1.txtIkeyNum.value="Bad"
                      ePass.CloseDevice
                      Exit function
                  End if
                  dim results
                  dim filesize
                  dim filecontent
                  filecontent = ""
                  filesize = 0
                  results = ""
                  '取得key号                  
                  results = ePass.GetStrProperty(7,0,0)                      
                  ‘打开一个文件此处为第0个文件
                  ePass.OpenFile 0,0
                  '取得key文件的size 3为文件的SIZE其他在帮助文件中有注明
                  filesize = ePass.GetFileInfo(0,3,0,0)
                  '取得key文件内容 不能超过文件内容的大小
              filecontent =ePass.Read (0,0,0,filesize)
                      filecontent = left(filecontent,filesize)
                  ePass.CloseFile
                  ePass.CloseDevice
                  document.Form1.txtIkeyNum.value=results    
                  document.Form1.TextBox2.value=filecontent        
              End function                  
        </script>

为什么看的人多
回的人少呢?

请lz具体解释下是用来干什么的代码
我放在网页里没有也没有显示呢?

严重支持，正在找这个，非常感谢～

但是我用的是ePass2001，无论怎样都是报：USBKEY驱动程序未安装或安装不正确!，咋整啊？