string | MaxVergelli.com

Base64 encoding / decoding functions in VbScript / Classic ASP

Max — Fri, 06 Mar 2020 13:43:10 +0000

With the following functions Base64Encode(sText) and Base64Decode(ByVal vCode), You can easly encode/decode a text in/from base64 in VBScript/Classic ASP:

Function Base64Encode(sText)
  Dim oXML, oNode
  Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  Set oNode = oXML.CreateElement("base64")
  oNode.dataType = "bin.base64"
  oNode.nodeTypedValue = Stream_StringToBinary(sText)
  Base64Encode = oNode.text
  Set oNode = Nothing
  Set oXML = Nothing
End Function

Function Base64Decode(ByVal vCode)
  Dim oXML, oNode
  Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
  Set oNode = oXML.CreateElement("base64")
  oNode.dataType = "bin.base64"
  oNode.text = vCode
  Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue)
  Set oNode = Nothing
  Set oXML = Nothing
End Function

Private Function Stream_StringToBinary(Text)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  BinaryStream.Open
  BinaryStream.WriteText Text
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeBinary
  BinaryStream.Position = 0
  Stream_StringToBinary = BinaryStream.Read
  Set BinaryStream = Nothing
End Function

Private Function Stream_BinaryToString(Binary)
  Const adTypeText = 2
  Const adTypeBinary = 1
  Dim BinaryStream 'As New Stream
  Set BinaryStream = CreateObject("ADODB.Stream")
  BinaryStream.Type = adTypeBinary
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = "us-ascii"
  Stream_BinaryToString = BinaryStream.ReadText
  Set BinaryStream = Nothing
End Function

The post Base64 encoding / decoding functions in VbScript / Classic ASP first appeared on MaxVergelli.com.

How to export an ASP Associative Array to XML

Max — Sat, 15 Feb 2020 16:27:57 +0000

“Asp Associative Array Class” provides a method to easly export all items to a well formatted XML string. For example, You can create a new *.ASP file :

[sourcecode language=”vb”]

<%
Dim Person, God
Set Person = New AssociativeArray
Set God = New AssociativeArray
Person("name") = "Max"
Person("surname") = "Vergelli"
God("name") = "Jesus"
God("surname") = "Christ"
Dim World
Set World = New AssociativeArray
World(1) = Person
World(2) = God
response.Write World.ToXML()
%>
[/sourcecode]

And You will get out the following XML:

[sourcecode language=”xml”]

[/sourcecode]

The post How to export an ASP Associative Array to XML first appeared on MaxVergelli.com.

How to populate an ASP Associative Array with records from MySQL / Access database Table

Max — Sat, 08 Feb 2020 16:17:39 +0000

In this example, You can learn how to populate an ASP Associative Array with the records of a database table (MS Access or MySQL); then, how to programmatically manage well structured data without any extra SQL.

Before to start:
For this tutorial, You need to download this MS Access database example or You can create a new one in MySQL executing this SQL:

[sourcecode language=”sql”]
CREATE TABLE `myTable` (
`myField1` INT( 11 ) NOT NULL ,
`myField2` VARCHAR( 255 ) NULL DEFAULT ‘test’,
`myField3` VARCHAR( 255 ) NULL DEFAULT ‘test’,
PRIMARY KEY ( `myField1` )
) TYPE = MYISAM ;
INSERT INTO `myTable` (`myField1`, `myField2`, `myField3`)
VALUES(1, ‘rec1 Text2’, ‘rec1 Text3’);
INSERT INTO `myTable` (`myField1`, `myField2`, `myField3`)
VALUES(2, ‘rec2 Text2’, ‘rec2 Text3’);
INSERT INTO `myTable` (`myField1`, `myField2`, `myField3`)
VALUES(3, ‘rec3 Text2’, ‘rec3 Text3’);
[/sourcecode]

Besides, to create an “AssociativeArray” object, You need to include the “ASP Associative Array Class” file in your asp page with an include statement:

[sourcecode language=”vb”]

[/sourcecode]

Tutorial:
The target is to grab data from a database Table and save records in an Associative Array, then You need to create a Database connection by ADODB…

[sourcecode language=”vb”]Set DbConnection = Server.CreateObject("ADODB.Connection")[/sourcecode]

Select a Provider for MS Access or MySQL:

[sourcecode language=”vb”]dbConnectionString = _
"driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
Server.MapPath("myDatabase.mdb")[/sourcecode]

For MySQL Databases You can also use a connection string like the following:

[sourcecode language=”vb”]"driver={MySQL ODBC 3.51 Driver}; Server=; Uid=; Pwd=; Database=;"[/sourcecode]

Open a database connection and create a SQL Select:

[sourcecode language=”vb”]DbConnection.Open dbConnectionString
Dim sql : sql = "SELECT * FROM myTable"[/sourcecode]

Create and Populate the Associative Array with selected Records and close database connection:

[sourcecode language=”vb”]Dim Table
Set Table = New AssociativeArray
Table.Fill DbConnection, sql
Set DbConnection = Nothing[/sourcecode]

Manage Records inside the Associative Array:
Right now, You can manage each record (and its values) inside the Associative Array. For example, You could get the first Record and its Values in each Field:

[sourcecode language=”vb”]Response.Write( _
                Table(0)("myField1") & " , " & _
                Table(0)("myField2") & " , " & _
                Table(0)("myField3") & "
")[/sourcecode]

the following code gets the second Record and its Values in each Field:

[sourcecode language=”vb”]Response.Write( _
                Table(1)("myField1") & " , " & _
                Table(1)("myField2") & " , " & _
                Table(1)("myField3") & "
")[/sourcecode]

it gets the total Records Count

[sourcecode language=”vb”]Response.Write("

Total Records: " & Table.Count & "

")[/sourcecode]

this enumerates all Records inside the Associative Array:

[sourcecode language=”vb”]Response.Write("

" & record("myField1") & " : " & _
record("myField2") & " : " & _
record("myField3") & "

")[/sourcecode]

and finally it gets all records by index (zero-based):

[sourcecode language=”vb”]Response.Write("

" & Table(n)("myField1") & " : " & _
Table(n)("myField2") & " : " & _
Table(n)("myField3") & "

")[/sourcecode]

That’s all,
Get the full example at http://sourceforge.net/projects/asp-assoc-array/

Max

The post How to populate an ASP Associative Array with records from MySQL / Access database Table first appeared on MaxVergelli.com.

How to use Associative Arrays in ASP

Max — Sat, 01 Feb 2020 16:03:13 +0000

First of all, You need to download the “Asp Associative Array class” then include the file “AssociativeArrayClass.asp” in your asp page.

Right now, You can start declaring associative arrays in ASP with the following syntax:

[sourcecode language=”vb”]
Dim Person
Set Person = New AssociativeArray
Person("name") = "Max"
Person("surname") = "Vergelli"
Response.Write Person("name") & " " & Person("surname")
[/sourcecode]

In the above example, the key “name” in “Person” object, stores “Max” value. You can set strings or integers for the key and any object/variant type for the relative value. However, You can not set key with Null or “” strings like the following:

[sourcecode language=”vb”]
‘invalid keys…
Person(Null) = "Null Key"
Person("") = "Empty String"
Dim undefined
Person(undefined) = "Variable Not Initialized"
Response.Write Person("") & Person(Null) & Person(undefined)
[/sourcecode]

How to get every item of the associative array:
You can make a “For Each” loop on the array like in the following code

[sourcecode language=”vb”]
For Each element In Person.Items
Response.Write element.Key & " : " & element.Value & vbCrLf
Next
[/sourcecode]

“Person.Items” gets all the items inside the associative array and for each item You can get “Key” and “Value” properties.

How to copy an associative array:

[sourcecode language=”vb”]
Dim Person_Clone             ‘it’s a Variant type
Set Person_Clone = Person    ‘NOTE: Use "Set" statement!
‘print values
Response.Write Person_Clone("name") & " " & Person_Clone("surname") & vbCrLf
‘get each key/value
For Each element In Person_Clone.Items
   Response.Write element.Key & " : " & element.Value & vbCrLf
Next
[/sourcecode]

How to create nested associative arrays…
You can create infinite nested associative arrays and accessing them like the following:

[sourcecode language=”vb”]
Dim Person
Set Person = New AssociativeArray
Person("name") = "Max"
Person("surname") = "Vergelli"
Dim People
Set People = New AssociativeArray
People(1) = Person
People(2) = Person
People(3) = Person
Response.Write People(1)("name") & " " & People(1)("surname")
[/sourcecode]

Besides, You can enumerate all the keys/values inside the “People” associative array object

[sourcecode language=”vb”]
For Each element In People.Items
   Dim el_person
   Set el_person = element.Value
   Response.Write el_person("name") & " : " & el_person("surname") & vbCrLf
Next
[/sourcecode]

The post How to use Associative Arrays in ASP first appeared on MaxVergelli.com.

VBScript Class to create easly Associative Arrays in ASP like in PHP

Max — Wed, 22 Jan 2020 15:53:47 +0000

I’ve posted a project at Source Forge with an ASP/VBScript class to create easly associative arrays like in PHP; visit http://sourceforge.net/projects/asp-assoc-array/

It is possible also load in an associative-array the data coming from MySQL or MS Access databases, then You can programmatically manage the structured data; You can also export associative arrays to XML.

Associative arrays are usefull when it is necessary manage many variables at once (for example when we pass multiple values at once to a method/function) or just to store data in a well structured array and reusing its values anytime.

The post VBScript Class to create easly Associative Arrays in ASP like in PHP first appeared on MaxVergelli.com.

Online JSON Validator

Max — Mon, 06 Jan 2020 15:16:20 +0000

If You are bored of having to test many JSON structures in JavaScript, You can validate your JSON data with this useful online tool: http://jsonlint.com/

The post Online JSON Validator first appeared on MaxVergelli.com.

PHP Date or Datetime to MySQL Datetime and viceversa

Max — Sat, 21 Dec 2019 15:10:11 +0000

Two useful PHP functions to convert normal date/datetime (“25.12.2010 12:10:00” or “25.12.2010”) to MySQL datetime (like “2010-12-25 12:10:00” or “2010-12-25 00:00:00″); You can get back a date/datetime from MySQL datetime too:

[sourcecode language=”php”]
function datetime2mysqldatetime($datetime){ // ‘25.12.2010 12:10:00’ -> ‘2010-12-25 12:10:00’
return date(‘Y-m-d H:i:s’, strtotime($datetime)); // ‘25.12.2010’ -> ‘2010-12-25 00:00:00’
}

Max 🙂

The post PHP Date or Datetime to MySQL Datetime and viceversa first appeared on MaxVergelli.com.

Easy-to-use and strong Encrypt/Decrypt PHP functions

Max — Tue, 10 Dec 2019 15:04:26 +0000

I wrote those two following PHP functions to encrypt and decrypt strings easly and with a stronger encryption module than the other examples on the net (please, note that “strong” does not equals “secure”!);

Happy encryption/decryption! 🙂

Max

[sourcecode language=”php”]
function encrypt($input_string, $key){
$iv_size = mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_ECB);
$iv = mcrypt_create_iv($iv_size, MCRYPT_RAND);
$h_key = hash(‘sha256’, $key, TRUE);
return base64_encode(mcrypt_encrypt(MCRYPT_RIJNDAEL_256, $h_key, $input_string, MCRYPT_MODE_ECB, $iv));
}

function decrypt($encrypted_input_string, $key){
$iv_size = mcrypt_get_iv_size(MCRYPT_RIJNDAEL_256, MCRYPT_MODE_ECB);
$iv = mcrypt_create_iv($iv_size, MCRYPT_RAND);
$h_key = hash(‘sha256’, $key, TRUE);
return trim(mcrypt_decrypt(MCRYPT_RIJNDAEL_256, $h_key, base64_decode($encrypted_input_string), MCRYPT_MODE_ECB, $iv));
}
[/sourcecode]

The post Easy-to-use and strong Encrypt/Decrypt PHP functions first appeared on MaxVergelli.com.

Javascript isArray() function

Max — Fri, 01 Nov 2019 14:50:42 +0000

Javascript does not provide a function to recognize if a variable is an array or not; you can make a “typeof” of the variable however u’ll get an ‘object’ datatype, as in the following code
[sourcecode language=”javascript”]
var myarray = [1, 2, 3];
var myobject = { key: ‘value’ };
alert(typeof myarray); //return ‘object’
alert(typeof myobject); //return ‘object’
[/sourcecode]

to recognize a data type ‘object’ from ‘array’, you need a specialized function like this…
[sourcecode language=”javascript”]
function isArray(value){
var b = typeof value;
if(b === ‘object’){
if(value){
b = (typeof value.length === ‘number’ &&
!(value.propertyIsEnumerable(‘length’)) &&
typeof value.splice === ‘function’) ? true : false;
}else{
b = false;
};
};
return b;
};
var myarray = [1, 2, 3];
var myobject = { key: ‘value’ };
alert(isArray(myarray)); //return true
alert(isArray(myobject)); //return false
[/sourcecode]

Good work!
Max 🙂

The post Javascript isArray() function first appeared on MaxVergelli.com.

How to stringify an object in Javascript: converting an object to a padded & well-formatted string or simply inline

Max — Tue, 01 Oct 2019 14:45:36 +0000

I wrote a function to convert an object in a string (stringification) without using a JSON library; you can convert an object to a well formatted string with padding or simply to an unique line:

[sourcecode language=”javascript”]
function stringify(object, padding, margin){
var o = (typeof object == ‘object’ || typeof object == ‘function’) && object != null ? object : null;
var p = typeof padding == ‘boolean’ && padding ? true : false;
var m = typeof margin == ‘number’ && margin>0 && p ? margin : 0;
if(o != null){
var s = ”;
var a = function(o){return (typeof o === ‘object’ && o ? ((typeof o.length === ‘number’ &&!(o.propertyIsEnumerable(‘length’)) && typeof o.splice === ‘function’) ? true : false) : false);}; //is array?
for(var v in o){
s += typeof o[v] === ‘object’ ? (o[v] ? (
(typeof o[v].length === ‘number’ && !(o[v].propertyIsEnumerable(‘length’)) && typeof o[v].splice === ‘function’) ?
(m>0 ? Array(m).join(‘ ‘):”) + v + ‘:’ + (p ? ‘ ‘:”) + ‘[‘ + (p ? ‘rn’:”) + stringify(o[v],p,(m>0?m:1)+v.length+4) + (p!=true ? ” : ‘rn’ + Array((m>0?m:1)+v.length+2).join(‘ ‘)) + ‘],’ + (p ? ‘rn’:”) :
(m>0 ? Array(m).join(‘ ‘):”) + v + ‘:’ + (p ? ‘ ‘:”) + ‘{‘ + (p ? ‘rn’:”) + stringify(o[v],p,(m>0?m:1)+v.length+4) + (p!=true ? ” : ‘rn’ + Array((m>0?m:1)+v.length+2).join(‘ ‘)) + ‘},’ + (p ? ‘rn’:”)
) : (m>0 ? Array(m).join(‘ ‘):”) + v + ‘:’ + (p ? ‘ ‘:”) + o[v] + ‘,’ + (p ? ‘rn’:”))
: (m>0 ? Array(m).join(‘ ‘):”) + v + ‘:’ + (p ? ‘ ‘:”) + (typeof o[v] == ‘string’ ? ”’ + o[v].replace(/’/g,’\”) + ”’ : o[v]) + ‘,’ + (p ? ‘rn’:”);
};
o = s.length>0 && p!=true ? s.substring(0, s.length-1) : (s.length>2 ? s.substring(0, s.length-3) : s);
}else{
o = object;
};
return o;
};
[/sourcecode]

a little example, you declare same variable….

[sourcecode language=”javascript”]
var associative_array = new Array();
associative_array[‘one’] = 1;
associative_array[‘two’] = 2;
associative_array[‘undefinedvar’];

var myobject = {
mystring: ‘value’,
myquoted: ‘string with ‘single quotation mark”,
mynumber: 1,
myboolean: true,
myarray: [1, 2, 3],
myassocarray: associative_array,
myobject: {
obj_string: ‘hi!’,
obj_number: 1,
obj_array: [
‘just’, ‘a’, ‘test’, 1, false,
[‘array’, ‘inside’, ‘array’],
{
object: ‘inside array’,
array: [1,2,3,4,5,6,7,8,9]
},

]
},
mynullvalue: null,
myundefined: associative_array[‘undefinedvar’],
myfunction: function(){ var s = ‘hello!’; return s; }
};
[/sourcecode]

then, for an inline stringification, you can use

[sourcecode language=”javascript”]
var str = stringify(myobject);
[/sourcecode]

and “str” value will be a string as

[sourcecode language=”javascript”]
mystring:’value’,myquoted:’string with ‘single quotation mark”,mynumber:1,myboolean:true,myarray:[0:1,1:2,2:3],myassocarray:[one:1,two:2],myobject:{obj_string:’hi!’,obj_number:1,obj_array:[0:’just’,1:’a’,2:’test’,3:1,4:false,5:[0:’array’,1:’inside’,2:’array’],6:{object:’inside array’,array:[0:1,1:2,2:3,3:4,4:5,5:6,6:7,7:8,8:9]}]},mynullvalue:null,myundefined:undefined,myfunction:function () {
var s = "hello!";
return s;
}
[/sourcecode]

Instead, for a stringification with a well formatted padding, you can use

[sourcecode language=”javascript”]
var str_formatted = stringify(myobject, true);
[/sourcecode]

and this is the “str_formatted” value:

[sourcecode language=”javascript”]
mystring: ‘value’,
myquoted: ‘string with ‘single quotation mark”,
mynumber: 1,
myboolean: true,
myarray: [
0: 1,
1: 2,
2: 3
],
myassocarray: [
one: 1,
two: 2
],
myobject: {
obj_string: ‘hi!’,
obj_number: 1,
obj_array: [
0: ‘just’,
1: ‘a’,
2: ‘test’,
3: 1,
4: false,
5: [
0: ‘array’,
1: ‘inside’,
2: ‘array’
],
6: {
object: ‘inside array’,
array: [
0: 1,
1: 2,
2: 3,
3: 4,
4: 5,
5: 6,
6: 7,
7: 8,
8: 9
]
}
]
},
mynullvalue: null,
myundefined: undefined,
myfunction: function () {
var s = "hello!";
return s;
}
[/sourcecode]

Finally, when you pass a variable to stringify() that is not an object, it will just return the value.

Happy stringifications!

Max 🙂

The post How to stringify an object in Javascript: converting an object to a padded & well-formatted string or simply inline first appeared on MaxVergelli.com.