And You will get out the following XML:

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:

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

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…

Select a Provider for MS Access or MySQL:

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

Open a database connection and create a SQL Select:

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

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:

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

it gets the total Records Count

this enumerates all Records inside the Associative Array:

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

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

Max

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

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:

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

“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:

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

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

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.

This is a known problem and it occurs when we declare and instantiate a Bitmap object and destruct that like in the following code:

‘create a bitmap object
Dim myBitmap As New Bitmap("c:myimage.jpg")

‘editing image routines, right here
‘…

‘release all Bitmap object resources
myBitmap.Dispose()

The above code it is formally correct, however in same circumstances the .net garbage collector cannot recognize bitmap’s disposing; Dispose() method leaves the image file in an unusable state, then as MSDN said, we MUST release explicitly any reference after a Dispose() call;

with the following code, You will not encounter any problem, and after Dispose() You can edit, move, delete the image file by the filesystem functions…

‘editing image routines, right here
‘…

‘release image reference
While myBitmap IsNot Nothing
myBitmap.Dispose()
myBitmap = Nothing ‘<– tells .net garbage collector to release resources
End While

Happy image editing! 🙂

Normal black shadow to the bottom right corner
Red shadow to the bottom right corner
Shadow to the bottom left corner
Shadow to the top left corner
Shadow to the top right corner
Shadow with Opacity: “128”
Shadow with Opacity: “128” and Softness: “8”
Shadow with Opacity: “128”, Softness: “8” and Distance: “10”
Shadow without rounded edges

Copy and paste my following vb.net code in your application. it does all the hard job…

‘ShadowDirection:
‘ TOP_RIGHT = 1
‘ BOTTOM_RIGHT = 2
‘ BOTTOM_LEFT = 3
‘ TOP_LEFT = 4
‘ShadowOpacity: from 0 to 255
‘ShadowSoftness: from 1 to 30
‘ShadowDistance: from 1 to 50
‘ShadowRoundedEdges: True or False

‘Note:
‘If You set "transparent" as background color, this is replaced with white color.

Public Enum ShadowDirections As Integer
TOP_RIGHT = 1
BOTTOM_RIGHT = 2
BOTTOM_LEFT = 3
TOP_LEFT = 4
End Enum

<STAThread()> _
Public Sub DropShadow(ByRef SourceImage As Drawing.Bitmap, _
ByVal ShadowColor As Drawing.Color, _
ByVal BackgroundColor As Drawing.Color, _
Optional ByVal ShadowDirection As ShadowDirections = _
ShadowDirections.BOTTOM_RIGHT, _
Optional ByVal ShadowOpacity As Integer = 190, _
Optional ByVal ShadowSoftness As Integer = 4, _
Optional ByVal ShadowDistance As Integer = 5, _
Optional ByVal ShadowRoundedEdges As Boolean = True)
Dim ImgTarget As Bitmap = Nothing
Dim ImgShadow As Bitmap = Nothing
Dim g As Graphics = Nothing
Try
If SourceImage IsNot Nothing Then
If ShadowOpacity < 0 Then
ShadowOpacity = 0
ElseIf ShadowOpacity > 255 Then
ShadowOpacity = 255
End If
If ShadowSoftness < 1 Then
ShadowSoftness = 1
ElseIf ShadowSoftness > 30 Then
ShadowSoftness = 30
End If
If ShadowDistance < 1 Then
ShadowDistance = 1
ElseIf ShadowDistance > 50 Then
ShadowDistance = 50
End If
If ShadowColor = Color.Transparent Then
ShadowColor = Color.Black
End If
If BackgroundColor = Color.Transparent Then
BackgroundColor = Color.White
End If

‘get shadow
Dim shWidth As Integer = CInt(SourceImage.Width / ShadowSoftness)
Dim shHeight As Integer = CInt(SourceImage.Height / ShadowSoftness)
ImgShadow = New Bitmap(shWidth, shHeight)
g = Graphics.FromImage(ImgShadow)
g.Clear(Color.Transparent)
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.AntiAlias
Dim sre As Integer = 0
If ShadowRoundedEdges = True Then sre = 1
g.FillRectangle(New SolidBrush(Color.FromArgb(ShadowOpacity, ShadowColor)), _
sre, sre, shWidth, shHeight)
g.Dispose()

‘draw shadow
Dim d_shWidth As Integer = SourceImage.Width + ShadowDistance
Dim d_shHeight As Integer = SourceImage.Height + ShadowDistance
ImgTarget = New Bitmap(d_shWidth, d_shHeight)
g = Graphics.FromImage(ImgTarget)
g.Clear(BackgroundColor)
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.AntiAlias
g.DrawImage(ImgShadow, New Rectangle(0, 0, d_shWidth, d_shHeight), _
0, 0, ImgShadow.Width, ImgShadow.Height, GraphicsUnit.Pixel)
Select Case ShadowDirection
Case ShadowDirections.BOTTOM_RIGHT
g.DrawImage(SourceImage, _
New Rectangle(0, 0, SourceImage.Width,SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
Case ShadowDirections.BOTTOM_LEFT
g.Dispose()
ImgTarget.RotateFlip(RotateFlipType.RotateNoneFlipX)
g = Graphics.FromImage(ImgTarget)
g.DrawImage(SourceImage, _
New Rectangle(ShadowDistance, 0, SourceImage.Width, SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
Case ShadowDirections.TOP_LEFT
g.Dispose()
ImgTarget.RotateFlip(RotateFlipType.Rotate180FlipNone)
g = Graphics.FromImage(ImgTarget)
g.DrawImage(SourceImage, _
New Rectangle(ShadowDistance, ShadowDistance, _
SourceImage.Width, SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
Case ShadowDirections.TOP_RIGHT
g.Dispose()
ImgTarget.RotateFlip(RotateFlipType.RotateNoneFlipY)
g = Graphics.FromImage(ImgTarget)
g.DrawImage(SourceImage, _
New Rectangle(0, ShadowDistance, SourceImage.Width, SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
End Select

g.Dispose()
g = Nothing
ImgShadow.Dispose()
ImgShadow = Nothing

SourceImage = New Bitmap(ImgTarget)
ImgTarget.Dispose()
ImgTarget = Nothing
End If

Catch ex As Exception
If g IsNot Nothing Then
g.Dispose()
g = Nothing
End If
If ImgShadow IsNot Nothing Then
ImgShadow.Dispose()
ImgShadow = Nothing
End If
If ImgTarget IsNot Nothing Then
ImgTarget.Dispose()
ImgTarget = Nothing
End If
End Try

End Sub
[/sourcecode]

Besides, You can use this sub as in the following example (take a look at the comments…) :

‘get bitmap…
Dim sourceImage As System.Drawing.Image = System.Drawing.Image.FromFile(file_input)
Dim format As System.Drawing.Imaging.ImageFormat = sourceImage.RawFormat
Dim bmpOut As System.Drawing.Bitmap = New Bitmap(sourceImage)

‘release any reference to the original file…
While sourceImage IsNot Nothing
sourceImage.Dispose()
sourceImage = Nothing
End While

‘drop black shadow on new bitmap with white background…
DropShadow(bmpOut, Color.Black, Color.White)

‘save file…
If bmpOut IsNot Nothing Then
bmpOut.Save(file_output, format)
bmpOut.Dispose()
bmpOut = Nothing
End If
[/sourcecode]

PS:
The subroutine executes only in “STAThread” so it’s thread-safe drawing.

Happy coding…

Max 🙂

function mysqldatetime2datetime($mysql_datetime){ // ‘2010-12-25 12:10:00’ -> ‘25.12.2010 12:10:00’
$d = split(‘ ‘, $mysql_datetime); // ‘2010-12-25’ -> ‘25.12.2010’
if($d && count($d)>1){
list($year, $month, $day) = split(‘-‘, $d[0]);
list($hour, $minute, $second) = split(‘:’, $d[1]);
$d = date(‘d.m.Y H:i:s’, mktime($hour, $minute, $second, $month, $day, $year));}
else if($d && count($d)==1){
list($year, $month, $day) = split(‘-‘, $d[0]);
$d = date(‘d.m.Y’, mktime(0, 0, 0, $month, $day, $year));
} else {
$d = NULL;
}
return $d;
}
[/sourcecode]

Max 🙂

Happy encryption/decryption! 🙂

Max

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] ]]> https://www.maxvergelli.com/easy-to-use-strong-encrypt-decrypt-php-functions/feed/ 1 57 https://www.maxvergelli.com/javascript-isarray-function/ https://www.maxvergelli.com/javascript-isarray-function/#respond Fri, 01 Nov 2019 14:50:42 +0000 http://www.maxvergelli.com/?p=55 Read More]]> 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 🙂

besides, if u’ll need to convert each german umlaut to the corresponding two-letter chars, u can also use the ReplaceGermanUmlauts() method…

Have a nice day!

Max 😀