问答首页 → 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 通过两点坐标计算直线距离 ...

    鼠标经过文字变色

    从给定的文件信息来看，主要涉及的是网页编程中的HTML、JavaScript和VBScript语言的应用，尤其是在用户交互设计方面，如“鼠标经过文字变色”功能的实现。下面将详细解析这些知识点。 ### 鼠标经过文字变色 在网页...

    javascript 操作 dom 的常用方法

    另一个例子展示了如何使用VBScript设置事件处理程序，当点击`mySpan`元素时，页面背景颜色变为“lemonchiffon”。 3. `alert` 方法：`window.alert()`用于显示警告对话框，显示传递的字符串信息。例如，`window....

    《JavaScript DOM 编程艺术》读书笔记之JavaScript 简史

    随着浏览器市场的竞争，微软公司在IE3中推出了自己的脚本语言VBScript，并同时发布了与JavaScript类似的JScript。这使得微软快速追上了Netscape的步伐，浏览器市场开始出现双雄争霸的局面。为了应对这种竞争局面，...

    JavaScript经典效果集锦

    2. 自动最大化窗口：使用JavaScript的`moveTo()`和`resizeTo()`方法，可以让浏览器窗口在加载时自动移动到屏幕左上角并最大化。 3. 显示当前时间：可以通过VBScript的`document.write`结合`now`函数在网页中显示当前...

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

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

    源代码-Ajax 不刷新网页加载新闻列表示例代码.zip

    5. JavaScript的onreadystatechange事件监听请求状态，当状态变为4（完成）且status为200（成功）时，解析服务器返回的数据。 6. 将解析出的数据动态插入到HTML页面的新闻列表区域，实现无刷新加载。 这个示例代码...

    设计技巧大放送.pdf

    本文总结了多种设计技巧，涵盖了表格设计、Photoshop 图像处理、JavaScript 代码编写、VBScript 编程等多个方面。 首先，文中提到了表格设计中的问题，即在新建表格时，默认情况下表格会紧贴在左上方。解决方法有三...

    邮箱发现者v1.2

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

    浅谈JavaScript的push(),pop(),concat()方法

    JavaScript是Web开发中不可或缺的一部分，尤其在前端领域，它的作用尤为重要。在处理数据结构时，数组是最常用的数据类型之一。本文将深入浅谈JavaScript中与数组操作密切相关的三个方法：push()、pop()和concat()。...

    Javascript下的urlencode编码解码方法附decodeURIComponent

    这里还提到了两种自定义的解码函数，分别是VBScript的`URLDecode`和JavaScript的`UrlDecode`。虽然它们在网络上有广泛的应用，但是它们可能无法完全处理所有由`encodeURIComponent`产生的编码字符串，因为它们可能不...

    escape编码工具

    在ASP中，可以使用VBScript或JScript等脚本语言编写代码，包括对字符串进行编码和解码的操作。 4. **JavaScript编码与解码函数**：除了`escape()`，JavaScript还有`unescape()`函数用于解码已经Escape编码的字符串...

    asp字符串转json对象类

    在ASP（Active Server Pages）开发环境中，经常需要处理数据的序列化与反序列化，其中JSON（JavaScript Object Notation）是一种轻量级的数据交换格式，广泛应用于前后端数据交互。本知识点主要关注如何将ASP中的...

    14句跨站代码.txt

    与JavaScript类似，VBScript也可以用于XSS攻击。这段代码尝试通过`vbscript:`协议头注入恶意代码。 #### 6. 使用Unicode编码 ```html (alert('xss'))}"&gt; ``` 使用Unicode编码绕过某些基于字符的过滤器。例如，将`...

    ASP+Ajax.rar_ajax_不刷新

    在ASP中，通常使用VBScript或JScript作为编程语言，服务器接收到客户端的请求后执行这些脚本，生成动态内容并返回给客户端。 其次，AJAX的核心是XMLHttpRequest对象，它使得JavaScript能够向服务器发送异步HTTP请求...

    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，...

    web2.0使用教程

    在Web2.0中，用户不再仅仅是信息的消费者，而是变成了内容的创造者和分享者。这个使用教程将深入探讨如何利用CSS、JavaScript和ASP等技术来构建和优化Web2.0应用。 一、CSS（层叠样式表） CSS是控制网页样式并实现...

    nexbox2.8.4128.0

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

    点击按钮后 文本框变为Select下拉列表框

    1. 在ASP中，可以通过内嵌VBScript或JavaScript代码来处理按钮点击事件。 2. 通过`和 `%&gt;`标记在HTML中嵌入服务器端脚本。 3. 实现逻辑与上述JavaScript逻辑类似，但需注意在服务器端渲染页面。 #### *** ***是...

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

相关推荐

已解决问题

未解决问题

排行榜

Global site tag (gtag.js) - Google Analytics