Function ConvertToUnixTimeStamp(input_datetime) 'As String 
  Dim d
  d = CDate(input_datetime) 
  ConvertToUnixTimeStamp = CStr(DateDiff("s", "01/01/1970 00:00:00", d)) 
End Function

Then, to get back the datetime from the Unix timestamp use the following code:

Function ConvertUnixTimeStampToDateTime(input_unix_timestamp) 'As String [regular datetime] 
  ConvertUnixTimeStampToDateTime = CStr(DateAdd("s", input_unix_timestamp, "01/01/1970 00:00:00")) 
End Function

The post Convert a DateTime string to a Unix timestamp in VbScript / Classic ASP first appeared on MaxVergelli.com.

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.

[sourcecode language=”vb”]
<!–#include file="AssociativeArrayClass.asp" –>
<%
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”]
<?xml version="1.0" encoding="utf-8"?>
<array>
<key>
<name><![CDATA[1]]></name>
<value>
<key>
<name><![CDATA[name]]></name>
<value><![CDATA[Max]]></value>
</key>
<key>
<name><![CDATA[surname]]></name>
<value><![CDATA[Vergelli]]></value>
</key>
</value>
</key>
<key>
<name><![CDATA[2]]></name>
<value>
<key>
<name><![CDATA[name]]></name>
<value><![CDATA[Jesus]]></value>
</key>
<key>
<name><![CDATA[surname]]></name>
<value><![CDATA[Christ]]></value>
</key>
</value>
</key>
</array>
[/sourcecode]

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

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.

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

[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’
}

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 🙂

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

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

[sourcecode language=”vb”]
Public Shared Function StripAccentMarks(ByVal input_string As String) As String
Dim n_s As String = input_string.Normalize(NormalizationForm.FormD)
Dim s As New StringBuilder()
Dim c As Char
For i As Integer = 0 To n_s.Length – 1
c = n_s(i)
If System.Globalization.CharUnicodeInfo.GetUnicodeCategory(c) <> System.Globalization.UnicodeCategory.NonSpacingMark Then
s.Append(c)
End If
Next
Return s.ToString
End Function
[/sourcecode]
[sourcecode language=”vb”]
Public Shared Function ReplaceGermanUmlauts(ByVal input_string As String) As String
Dim s As String = input_string</pre>
s = s.Replace("ä", "ae")
s = s.Replace("ö", "oe")
s = s.Replace("ü", "ue")
s = s.Replace("Ä", "Ae")
s = s.Replace("Ö", "Oe")
s = s.Replace("Ü", "Ue")
s = s.Replace("ß", "ss")
Return s
End Function
[/sourcecode]

Have a nice day!

Max 😀

The post How to remove accent marks and german umlauts from URLs and Strings in .NET first appeared on MaxVergelli.com.