问答首页 → Web前端技术
0 0

如何让vbscript变成javascript5

我在用myeclipse做开发的时候遇到一个vbscript的插件，想要把这个插件里的vbscript变成我的tomcat支持的jsp里面支持的javascript，请问怎么实现
代码如下

<H1>   神思第二代身份证验证系统  </H1><p>
请先点击：取控件数据显示，然后点击:开始读卡，把卡片放在感应区读卡，可以连续读卡！点击：停止读卡后，可以点击手动读卡，为每点击一次读一张卡。
<HR><center><P>
<OBJECT
  classid="clsid:F1317711-6BDE-4658-ABAA-39E31D3704D3"                 
  codebase="SDRdCard.cab#version=1,0,98,0"
  width=0
  height=0
  align=center
  hspace=0
  vspace=0
  id=idcard
  name=rdcard
>
</OBJECT>
<HR>
<p>
<input type="button" value="开始读卡" name="beginread">&nbsp;　
<input type="button" value="停止读卡" name="endread">&nbsp; 
<input type="button" value="手动读卡" name="handread">&nbsp;
<input type="button" value="取控件数据显示" name="typeinfo">&nbsp;
<input type="button" value="保存身份证图片" name="SaveCard">&nbsp;
<input type="button" value="设置自动开机读卡" name="startAuto">&nbsp;
<input type="button" value="取消自动读卡改为手动" name="startHand">&nbsp;
<input type="button" value="读取设备安全模块号" name="ReadsNum">&nbsp;

<p>临时文件保存路径<input type="text" name="savePath2" size="68"></p>

<input type="button" value="保存路径" name="savepath">&nbsp;
</p>
<form name=tcard>
<TD width="12%" rowSpan=4><IMG height=126 alt="" width=102 border=0 name=photo></TD>
  <p>设备安全模块号<input type="text" name="tsNum" size="62"></p>
  <p>读卡是否成功<input type="text" name="tOK" size="62"></p>
  <p>提示信息<input type="text" name="tResult" size="62"></p>
  <p>姓名name<input type="text" name="tName" size="68"></p>
  <p>姓名nameL<input type="text" name="tNameL" size="68"></p>
  <p>性别sex<input type="text" name="tSex" size="68"></p>
  <p>性别sexL<input type="text" name="tSexL" size="68"></p>
  <p>民族nation<input type="text" name="tFolk" size="68"></p>
  <p>民族nationL<input type="text" name="tFolkL" size="68"></p>
  <p>出生Born<input type="text" name="tBirth" size="68"></p>
  <p>出生BornL<input type="text" name="tBirthL" size="68"></p>
  <p>公民身份号码<input type="text" name="tcardID" size="56"></p>
  <p>住址<input type="text" name="tAddr" size="68"></p>
  <p>签发机关<input type="text" name="tIssue" size="62"></p>
  <p>有效期限Activity<input type="text" name="tBeginEnd" size="62"></p>
  <p>有效期限ActivityL<input type="text" name="tBeginEndL" size="62"></p>
  <p>头像JPGbuffer<input type="text" name="jbuff" size="62"></p>
  <p>头像BMPbuffer<input type="text" name="bbuff" size="62"></p>
  <p>头像WLTbuffer<input type="text" name="wbuff" size="62"></p>
  <p>头像JPGroot<input type="text" name="jroot" size="62"></p>
  <p>头像BMProot<input type="text" name="broot" size="62"></p>
  <p>头像WLTroot<input type="text" name="wroot" size="62"></p>
  <p>头像WLTBase64<input type="text" name="w64" size="62"></p>
  <p>正面base64<input type="text" name="zheng" size="62"></p>
  <p>反面base64<input type="text" name="fan" size="62"></p>
</form>
<SCRIPT language=VBScript><!--

sub hideocx_onclick()
rdcard.visible=false
end sub

sub savepath_onclick()

rdcard.strSavePath= savePath2.value


end Sub

sub showocx_onclick()
rdcard.visible=true
end sub

sub startAuto_onclick()
    rdcard.AutoReadCard=1
end sub

sub startHand_onclick()
    rdcard.AutoReadCard=0
end sub

sub ReadsNum_onclick()
    if rdcard.ReadSecurityNum()=0 then
tcard.tsNum.value=cstr(rdcard.SecurityNum)
    end if
    tCard.tResult.value=cstr(rdcard.sResultMsg)
end sub

sub SaveCard_onclick()
    rdcard.SaveCardPic "C:\cardh.jpg","C:\cards.jpg",3
end sub

sub beginread_onclick()


if rdcard.readcard2()=0 then

tcard.tName.value=cstr(rdcard.NameS)
tcard.tNameL.value=cstr(rdcard.NameL)
tcard.tSex.value=cstr(rdcard.Sex)
tcard.tSexL.value=cstr(rdcard.SexL)
tcard.tFolk.value=cstr(rdcard.Nation)
tcard.tFolkL.value=cstr(rdcard.NationL)
tcard.tBirth.value=cstr(rdcard.Born)
tcard.tBirthL.value=cstr(rdcard.BornL)
tCard.tcardID.value=cstr(rdcard.CardNo)
    tcard.tAddr.value=cstr(rdcard.Address)
tCard.tIssue.value =cstr(rdcard.Police)
    tcard.tBeginEnd.value=cstr(rdcard.Activity)    
    tcard.tBeginEndL.value=cstr(rdcard.ActivityL) 

    tcard.jroot.value=cstr(rdcard.PhotoPath)
    tcard.broot.value=cstr(rdcard.PathOfBMP)
    tcard.wroot.value=cstr(rdcard.WLTRoot)
    tcard.jbuff.value=cstr(rdcard.JPGBuffer)
    tcard.bbuff.value=cstr(rdcard.BMPBuffer)
    tcard.wbuff.value=cstr(rdcard.WLTBuffer)   
    tcard.w64.value=cstr(rdcard.WLTBase64Buffer)  
tcard.zheng.value=cstr(rdcard.FrontJpgPic) 
tcard.fan.value=cstr(rdcard.BackJpgPic)    
    if rdcard.PhotoPath = "" then 
        tcard.photo.src = "file:///C|/null.JPEG" 
    else
        tcard.photo.src = "file:///"+cstr(rdcard.PhotoPath)
    end if
        tCard.tResult.value=cstr(rdcard.sResultMsg)
    end if
if rdcard.bHaveCard then
   tcard.tOK.value="1"
        else
   tcard.tOK.value="0"
end if
end sub

sub endread_onclick()
rdcard.endread

end sub

sub handread_onclick()

  if rdcard.readcard()=0 then

tcard.tName.value=cstr(rdcard.NameS)
tcard.tNameL.value=cstr(rdcard.NameL)
tcard.tSex.value=cstr(rdcard.Sex)
tcard.tSexL.value=cstr(rdcard.SexL)
tcard.tFolk.value=cstr(rdcard.Nation)
tcard.tFolkL.value=cstr(rdcard.NationL)
tcard.tBirth.value=cstr(rdcard.Born)
tcard.tBirthL.value=cstr(rdcard.BornL)
tCard.tcardID.value=cstr(rdcard.CardNo)
    tcard.tAddr.value=cstr(rdcard.Address)
tCard.tIssue.value =cstr(rdcard.Police)
    tcard.tBeginEnd.value=cstr(rdcard.Activity)    
    tcard.tBeginEndL.value=cstr(rdcard.ActivityL)  
    tcard.jroot.value=cstr(rdcard.PhotoPath)
    tcard.broot.value=cstr(rdcard.PathOfBMP)
    tcard.wroot.value=cstr(rdcard.WLTRoot)
    tcard.jbuff.value=cstr(rdcard.JPGBuffer)
    tcard.bbuff.value=cstr(rdcard.BMPBuffer)
    tcard.wbuff.value=cstr(rdcard.WLTBuffer) 
    tcard.w64.value=cstr(rdcard.WLTBase64Buffer)  
tcard.zheng.value=cstr(rdcard.FrontJpgPic) 
tcard.fan.value=cstr(rdcard.BackJpgPic)     
        if rdcard.PhotoPath = "" then 
           tcard.photo.src = "file:///C|/null.JPEG" 
        else
           tcard.photo.src = "file:///"+cstr(rdcard.PhotoPath)
        end if

        tCard.tResult.value=cstr(rdcard.sResultMsg)
  else
tcard.tName.value=""
tcard.tNameL.value=""
tcard.tSex.value=""
tcard.tSexL.value=""
tcard.tFolk.value=""
tcard.tFolkL.value=""
tcard.tBirth.value=""
tcard.tBirthL.value=""
tCard.tcardID.value=""
    tcard.tAddr.value=""
tCard.tIssue.value =""
    tcard.tBeginEnd.value=""
    tcard.tBeginEndL.value=""
    tcard.jroot.value=""
    tcard.broot.value=""
    tcard.wroot.value=""
    tcard.jbuff.value=""
    tcard.bbuff.value=""
    tcard.wbuff.value=""
    tcard.w64.value=""   
        tcard.photo.src = "file:///C|/null.JPEG" 
tCard.tResult.value=cstr(rdcard.sResultMsg)
  end if
if rdcard.bHaveCard then
   tcard.tOK.value="1"
        else
   tcard.tOK.value="0"
end if
end sub

sub xianshi()
tcard.tName.value=cstr(rdcard.NameS)
tcard.tNameL.value=cstr(rdcard.NameL)
tcard.tSex.value=cstr(rdcard.Sex)
tcard.tSexL.value=cstr(rdcard.SexL)
tcard.tFolk.value=cstr(rdcard.Nation)
tcard.tFolkL.value=cstr(rdcard.NationL)
tcard.tBirth.value=cstr(rdcard.Born)
tcard.tBirthL.value=cstr(rdcard.BornL)
tCard.tcardID.value=cstr(rdcard.CardNo)
    tcard.tAddr.value=cstr(rdcard.Address)
    tCard.tIssue.value =cstr(rdcard.Police)
    tcard.tBeginEnd.value=cstr(rdcard.Activity)    
    tcard.tBeginEndL.value=cstr(rdcard.ActivityL)  
    tcard.jroot.value=cstr(rdcard.PhotoPath)
    tcard.broot.value=cstr(rdcard.PathOfBMP)
    tcard.wroot.value=cstr(rdcard.WLTRoot)
    tcard.jbuff.value=cstr(rdcard.JPGBuffer)
    tcard.bbuff.value=cstr(rdcard.BMPBuffer)
    tcard.wbuff.value=cstr(rdcard.WLTBuffer) 
    tcard.w64.value=cstr(rdcard.WLTBase64Buffer)   
tcard.zheng.value=cstr(rdcard.FrontJpgPic) 
tcard.fan.value=cstr(rdcard.BackJpgPic)    
    if rdcard.PhotoPath = "" then 
        tcard.photo.src = "file:///C|/null.JPEG" 
    else
        tcard.photo.src = "file:///"+cstr(rdcard.PhotoPath)
    end if

    tCard.tResult.value=cstr(rdcard.sResultMsg)
if rdcard.bHaveCard then
   tcard.tOK.value="1"
        else
   tcard.tOK.value="0"
end if
end sub
sub window_onload()
call typeinfo_onclick()
end sub
sub typeinfo_onclick()
call xianshi()
settimeout "typeinfo_onclick",300
end sub
sub getstatus_onclick()
    tCard.tResult.value=cstr(rdcard.sResultMsg)
end sub
sub window_onUnload()
  rdcard.DeleteOutputFile
  rdcard.DeleteAllPicture
end sub
--></SCRIPT>
JavaScriptJSPASPUIVBScript 
2013年1月19日 16:25
目前还没有答案

相关推荐

    程序天下:JavaScript实例自学手册

    14.15 在JavaScript运行VBScript函数 14.16 购物篮中常用的计算总价效果 14.17 同一用户的来访统计 14.18 十六进制转换为十进制 14.19 将URL转化为16进制 14.20 小写金额转换为大写 14.21 通过两点坐标计算直线距离 ...

    《程序天下：JavaScript实例自学手册》光盘源码

    14.15 在JavaScript运行VBScript函数 14.16 购物篮中常用的计算总价效果 14.17 同一用户的来访统计 14.18 十六进制转换为十进制 14.19 将URL转化为16进制 14.20 小写金额转换为大写 14.21 通过两点坐标计算直线距离 ...

    网站设计-公司仓库管理网站的设计与实现.rar

    随着经济的飞速发展，仓库管理变成了各大公司日益重要的内容。仓库管理过程的准确性和高效性至关重要，它影响着公司的经济发展和管理。...编程语言：VBScript，JavaScript等； 运行环境：IIS服务器。

    邮箱发现者v1.2

    在因特网上搜索邮件地址，支持Vbscript和Javascript脚本语法，提供全部源代码，稍加改动可变成网络蜘蛛程序，来设计自己的搜索引擎。新增加了断点续传功能，增加了自定义过滤规则表功能，比同类商用软件好用得多，并...

    notepad2 中文版

    1 自定义语法高亮，支持HTML, XML, CSS, JavaScript, VBScript, ASP, PHP, CSS, Perl/CGI,C/C++, C#, Java, VB, Pascal, 汇编, SQL, Python, NSIS,INI, REG, INF, BAT,DIFF等众多脚本文件。 2 支持ANSI，Unicode，...

    nexbox2.8.4128.0

    NetBox 是一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，使用 NetBox，可以完全使用脚本语言(比如 VBScript，Javascript) 创建出稳定高效的应用软件。 NetBox 提供完全与操作系统无关的高性能的 ...

    可定义表格控件2.0.1.2

    &lt;br&gt;表格控件内建脚本支持面向高级用户，控件动态支持脚本语言VBScript, JavaScript等。控件可以主动和被动的执行脚本中的函数，从而可以实现类似于EXCEL软件的表格内数据自动计算和数据获取等扩展功能。通过...

    正则表达式

    JavaScript的RegExp对象和String对象定义了使用正则表达式来执行强大的模式匹配和文本检索与替换函数的方法. 在JavaScript中,正则表达式是由一个RegExp对象表示的.当然,可以使用一个RegExp()构造函数来创建RegExp...

    XML 讲解和分析

    JavaScript ▪ HTML DOM ▪ DHTML ▪ VBScript ▪ AJAX ▪ jQuery ▪ JSON ▪ E4X ▪ WMLScript Serv脚本 SQL ▪ ASP ▪ ADO ▪ PHP .NET Microsoft.NET ▪ ASP.NET ▪ .NET Mobile 多媒体 SMIL ▪ SVG 扩展阅读...

    外文翻译 stus MVC

    The page designer (or HTML developer) must understand colors, the customer, product flow, page layout, browser compatibility, image creation, JavaScript, and more. Putting a great looking site ...

Magicbox
Ask-but
我的问答 FAQ | 勋章

相关推荐

已解决问题

未解决问题

排行榜

Global site tag (gtag.js) - Google Analytics