Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home

Link:http://output.to/sideway/default.asp?qno=180400502

Resources and links .MS MSDN DotNet Framework 4.7, 4.6, and 4.5

DotNet links from msdn.microsoft.com

Source/Reference:
https://msdn.microsoft.com/library/ff361664(v=vs.110).aspx

Link:http://output.to/sideway/default.asp?qno=180400005

Script, Scripting Language, VBScript elements, Server-Side VBScript Function ScriptEngine, ScriptEngineBuildVersion, ScriptEngineMajorVersion, ScriptEngineMinorVersion Function Function

VBScript Script Engine Functions

Functions for manipulating script engine.

ScriptEngine Function

last updated 9/21/2017

Create a String from the scripting engine of the local system to indicate the scripting language in use.

Syntax

ScriptEngine

Returns

Returns a Variant of String data subtype containing a String obtained from the scripting engine of the local system to indicate the scripting language in use.

Return values of ScriptEngine function

StringDescriptionVBScriptIndicates that Microsoft Visual Basic Scripting Edition is the current scripting engine.JScriptIndicates that Microsoft JScript is the current scripting engine.VBAIndicates that Microsoft Visual Basic for Applications is the current scripting engine.

Remarks

  • Only the name of scripting engine is returned.
  • Other related information can be obtained by ScriptEngineBuildVersion Function, ScriptEngineMajorVersion Function, ScriptEngineMinorVersion Function.

Requirement

2

ScriptEngineBuildVersion Function

last updated 9/21/2017

Create a number from the scripting engine of the local system to indicate the build version number of scripting language in use.

Syntax

ScriptEngineBuildVersion

Returns

Returns a Variant of Long data subtype containing a number obtained from the scripting engine of the local system to indicate the build version number of scripting language in use.

Remarks

  • The return value corresponds directly to the version information contained in the DLL for the scripting language in use.
  • Only the build version number of scripting engine is returned.
  • Other related information can be obtained by ScriptEngine Function, ScriptEngineMajorVersion Function, ScriptEngineMinorVersion Function.

Requirement

2

ScriptEngineMajorVersion Function

last updated 9/21/2017

Create a number from the scripting engine of the local system to indicate the major version number of scripting language in use.

Syntax

ScriptEngineMajorVersion

Returns

Returns a Variant of Long data subtype containing a number obtained from the scripting engine of the local system to indicate the major version number of scripting language in use.

Remarks

  • The return value corresponds directly to the version information contained in the DLL for the scripting language in use.
  • Only the build version number of scripting engine is returned.
  • Other related information can be obtained by ScriptEngine Function, ScriptEngineBuildVersion Function, ScriptEngineMinorVersion Function.

Requirement

2

ScriptEngineMinorVersion Function

last updated 9/21/2017

Create a number from the scripting engine of the local system to indicate the minor version number of scripting language in use.

Syntax

ScriptEngineMinorVersion

Returns

Returns a Variant of Long data subtype containing a number obtained from the scripting engine of the local system to indicate the minor version number of scripting language in use.

Remarks

  • The return value corresponds directly to the version information contained in the DLL for the scripting language in use.
  • Only the build version number of scripting engine is returned.
  • Other related information can be obtained by ScriptEngine Function, ScriptEngineBuildVersion Function, ScriptEngineMajorVersion Function.

Requirement

2String

Examples

Examples of VarType and TypeName functions

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,strs,cmda,var:var=1
cmda=array("ScriptEngine","ScriptEngineBuildVersion","ScriptEngineMajorVersion","ScriptEngineMinorVersion")
Dim ucnt,tmp,i:ucnt=UBound(cmda):If var=1 Then:tmp="":Else:tmp="<b>vars</b>":End If:For i=0 to ucnt:tmp=tmp&"<b>"&rmv_ctrl(cmda(i))&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If varx=0  Then:Execute vars:End If:If var=1 Then:tmp_a="":Else:tmp_a=rmv_ctrl(vars):End If:For i=0 to ucnt:tmp_b=cmd_b(cmda(i)):if i/2=fix(i/2) Then:tmp_b="<b>"&tmp_b&"</b>":End If:tmp_a=tmp_a&tmp_b:Next:Response.Write "<i>"&tmp_a&"</i>":End Function
Function rmv_ctrl(blk_str):Select Case blk_str:Case chr(0):blk_str="NUL":Case chr(1):blk_str="SOH":Case chr(2):blk_str="STX":Case chr(3):blk_str="ETX":Case chr(4):blk_str="EOT":Case chr(5):blk_str="ENQ":Case chr(6):blk_str="ACK":Case chr(7):blk_str="BEL":Case chr(8):blk_str="BS":Case chr(9):blk_str="HT":Case chr(10):blk_str="LF":Case chr(11):blk_str="VT":Case chr(12):blk_str="FF":Case chr(13):blk_str="CR":Case chr(14):blk_str="SO":Case chr(15):blk_str="SI":Case chr(16):blk_str="DLE":Case chr(17):blk_str="DC1":Case chr(18):blk_str="DC2":Case chr(19):blk_str="DC3":Case chr(20):blk_str="DC4":Case chr(21):blk_str="NAK":Case chr(22):blk_str="SYN":Case chr(23):blk_str="ETB":Case chr(24):blk_str="CAN":Case chr(25):blk_str="EM":Case chr(26):blk_str="SUB":Case chr(27):blk_str="ESC":Case chr(28):blk_str="FS":Case chr(29):blk_str="GS":Case chr(30):blk_str="RS":Case chr(31):blk_str="US":Case chr(127):blk_str="DEL":End Select:rmv_ctrl=blk_str:If IsNull(blk_str) OR IsEmpty(Blk_str) OR blk_str="" OR IsNumeric(Blk_str) Then:Else:rmv_ctrl=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"  "," &nbsp;"),"""","&quot;"),"<","&lt;"),">","&gt;"): End If :End Function
Function cmd_b(blk_str):cmd_b="["&cmd_x(blk_str)&"], "&cmd_x("TypeName("&blk_str&")"):End Function
Function cmd_x(blk_str):On Error Resume Next:Dim xans, tmp:xans="":tmp="":execute "xans="&blk_str:If Err.Number <> 0  Then:xans=cmd_x("TypeName("&blk_str&")"):Select Case xans:Case 9::Case Else:xans="error":End Select:End If:If IsArray(xans)=False Then:cmd_x=rmv_ctrl(xans): Else:tmp=lst_arry(xans):cmd_x=trim(tmp):End If:End Function
Function lst_arry(blk_str):Dim tmp,i,q:q="""":tmp="":For i=0 to UBound(blk_str):if VarType(blk_str(i))>1 And VarType(blk_str(i))<6 Then:q="'":End If:tmp=tmp&" "&q&rmv_ctrl(blk_str(i))&q:Next:lst_arry=trim(tmp):End Function

vars="":dsp_x
</script>
HTML Web Page In-line Output:
Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /internet/users/sideblog/default.asp
ScriptEngine, TypeNameScriptEngineBuildVersion, TypeNameScriptEngineMajorVersion, TypeNameScriptEngineMinorVersion, TypeName[VBScript], String[17031], Long[5], Long[8], Long

Sideway BICK Blog

05/04


Copyright © 2000-2020 Sideway . All rights reserved Disclaimerslast modified on 26 January 2013