如何让vb角本和js角本一起放进一个.js文件内

放到一个.asp文件里面就可以了

解决方案 »

  1.   

    这样啊，放进.htm文件也可以的，但是我想把他放入一个.js文件有没有办法呢，或者哪位高人帮我把上面vb的那个函数改成js的函数也可以，谢谢了
      

  2.   

    在.js文件中用document.write写vbs部分的脚本
      

  3.   

    果然是高手，但是如果这样的话，是不是每个页面引入这个js之后，都会去执行一次document.write写入这个页面呢
      

  4.   

    果然是高手，但是如果这样的话，是不是每个页面引入这个js之后，都会去执行一次document.write写入这个页面呢
      

  5.   

    /*****************************************************************************************
    void AttachVBFunctionsToWindow (void)
    绑定VB常用函数到JScript
    执行后可以直接使用URLEcoding/URLDecoding/Bytes2BSTR/VBTypeName/VBVarType等函数
    VBTypeName和VBVarType可以更细致地区分各种变量类型
    *****************************************************************************************/
    function AttachVBFunctionsToWindow()
    {
    var s=
    'Public Function URLEncoding(v)\n'+
    'Dim s,t,i,j,h,l,x : s = "" : x=Len(v)\n'+
    'For i = 1 To x\n'+
    't = Mid(v,i,1) : j = Asc(t)\n'+
    'If j> 0 Then\n'+
    's = s & "%" & Right("00" & Hex(Asc(t)),2)\n'+
    'Else\n'+
    'If j < 0 Then j = j + &H10000\n'+
    'h = (j And &HFF00) \\ &HFF\n'+
    'l = j And &HFF\n'+
    's = s & "%" & Hex(h) & "%" & Hex(l)\n'+
    'End If\n'+
    'Next\n'+
    'URLEncoding = s\n'+
    'End Function\n'+
    'Public Function URLDecoding(sIn)\n'+
    ' Dim s,i,l,c,t,n : s="" : l=Len(sIn)\n'+
    ' For i=1 To l\n'+
    ' c=Mid(sIn,i,1)\n'+
    ' If c<>"%" Then\n'+
    ' s = s & c\n'+
    ' Else\n'+
    ' c=Mid(sIn,i+1,2) : i=i+2 : t=CInt("&H" & c)\n'+
    ' If t<&H80 Then\n'+
    ' s=s & Chr(t)\n'+
    ' Else\n'+
    ' c=Mid(sIn,i+1,3)\n'+
    ' If Left(c,1)<>"%" Then\n'+
    ' URLDecoding=s\n'+
    ' Exit Function\n'+
    ' Else\n'+
    ' c=Right(c,2) : n=CInt("&H" & c)\n'+
    ' t=t*256+n-65536\n'+
    ' s = s & Chr(t) : i=i+3\n'+
    ' End If\n'+
    ' End If\n'+
    ' End If\n'+
    ' Next\n'+
    ' URLDecoding=s\n'+
    'End Function\n'+
    'Public Function Bytes2BSTR(v)\n'+
    ' Dim r,i,t,n : r = ""\n'+
    ' For i = 1 To LenB(v)\n'+
    ' t = AscB(MidB(v,i,1))\n'+
    ' If t < &H80 Then\n'+
    ' r = r & Chr(t)\n'+
    ' Else\n'+
    ' n = AscB(MidB(v,i+1,1))\n'+
    ' r = r & Chr(CLng(t) * 256 + CInt(n))\n'+
    ' i = i + 1\n'+
    ' End If\n'+
    ' Next\n'+
    ' Bytes2BSTR = r\n'+
    'End Function\n'+
    'Public Function VBTypeName(chrIn) : VBTypeName=TypeName(chrIn) : End Function\n'+
    'Public Function VBVarType(chrIn) : VBVarType=VarType(chrIn) : End Function\n';
    execScript(s,'VBScript');
    }
      

  6.   

    没必要，最好分开来调用js,vbs
      

  7.   

    吧上面这个函数放到你的JS里面，在body.onload里面运行一下这个函数就可以使用了
      

  8.   

    <body onload="JavaScript: AttachVBFunctionsToWindow();">
    <button onclick="JavaScript:alert(URLEncoding('测试一下'));">测试</button>