Programming Resources & Code Examples for visual basic, java, php, asp, c, c++, assemb

Play Free Online Games www.baggygames.com/games العاب فلاش العاب جدة بايكرز موقع العاب جديدة او

2009-06-01T16:35:00.000-07:00

Welcome to
BaggyGames.com

Here you can find tons of great online flash games to play.
Remember to check back often because we are always adding new games.

Play Free Online Games, sports games, massive multiplayer games, action games, puzzle games, flash games and more, casual games. Free online and downloadable games! Play arcade games, board games, card games, puzzle games and other free games at Yahoo! Games. Free games online from Games.com. Games.com has free online games and download games of every kind. Play puzzle games, arcade games, casino games, ...

Play Free Online Games

Games Forum

Magazine Games

Create a text file called test.txt

2009-03-16T12:04:00.002-07:00

Create a text file called test.txt

<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("d:\test.txt", True)
objFile.WriteLine("This is a test.")
objFile.Close
%>

creates a folder called New Folder1

2009-03-16T12:04:00.001-07:00

creates a folder called New Folder1

<%
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("d:\New Folder1")
%>

Count words in a sentence

2009-03-16T12:03:00.000-07:00

Count words in a sentence

<%
'the string to check
strText = "This is our sample text for this example"
'split the strText
arrText = Split(strText ," ")
'store the amount of words into intWords
intWords = Ubound(arrText )
'display how many words are in the sentence
Response.Write "There are " & intWords & " words in " & strText
%>

This copies a folder called mydata to backupdata

2009-03-16T12:02:00.002-07:00

This copies a folder called mydata to backupdata

<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "c:\mydata", "c:\backupdata"
%>

This copies a file called test.txt to test2.txt

2009-03-16T12:02:00.001-07:00

This copies a file called test.txt to test2.txt

<%
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile("d:\test.txt", True)
objFile.WriteLine("This is a test.")
objFile.Close
Set objFile = objFSO.GetFile("d:\test.txt")
objFile.Copy ("d:\test2.txt")
%>

Compare 2 strings using strComp

2009-03-16T12:01:00.002-07:00

Compare 2 strings using strComp

<%
Dim strText1 , strText2
'our text strings
strText1 = "this is string 1"
strText2 = "this is string 2"
'compare the two strings and store in intResult
intResult = strComp(strText1 , strText2)
'if strings are identical the display this message
If intResult = 0 Then
Response.Write "Strings are identical"
'if strings are different then display this message
Else
Response.Write "strings are different"
End if
%>

Check email address using Regular expressions

2009-03-16T12:01:00.001-07:00

Check email address using Regular expressions

<% 'our function to check email addresses 'a fantastic list of regular expressions Function CheckMail(strEmail) 'our variables Dim objRegExp , blnValid 'create a new instance of the RegExp object , note we do not need Server.CreateObject("") Set objRegExp = New RegExp 'this is our pattern we check . objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$" 'store the result either true or false in blnValid blnValid = objRegExp.Test(strEmail) If blnValid Then 'display this if it is a vlid email address Response.Write "This is a valid email address
"
Else
'display this if it is an invalid email address
Response.Write "That email address is invalid
"
End If
End Function
%>
<%CheckMail("validmail@email.com") 'correct email address %>
<%CheckMail("invalid1") 'incorrect , many errors%>
<%CheckMail("invalid+email.com") 'invalid + sign instead of @%>
<%CheckMail("invalid@email,com") 'invalid , sneaky uses a comma instead of a full stop%>

get the character for a specified character code using the Chr function

2009-03-16T12:00:00.002-07:00

get the character for a specified character code using the Chr function

<%
Dim intCharacter1 , intCharacter2
intCharacter1 = "86"
intCharacter2 = "64"
Response.Write "The character for 86 is " & Chr(intCharacter1)
Response.Write "The character for 64 is " & Chr(intCharacter2)
%>

A CDonts example to send an email

2009-03-16T12:00:00.001-07:00

A CDonts example to send an email

<%
set objMail=Server.CreateObject("CDONTS.NewMail")
objMail.To="sample@emailaddress.com"
objMail.From="from@otheremail.com"
objMail.Subject="Place the subject here"
objMail.Body="Place body text here"
objMail.Send
set objMail=Nothing
%>

Block more than one IP address

2009-03-16T11:59:00.002-07:00

Block more than one IP address

<% 'declare our variables Dim strIP Dim intBanned Dim arrIP(1) 'these are our blocked IP addresses arrIP(0) = "127.0.0.01" arrIP(1) = "100.45.76.80" 'get the users IP address strIP = Request.ServerVariables("LOCAL_ADDR") intBanned = 1 'loop through the banned IP addresses For i = 0 to intBanned 'display a message and stop processing the page If strIP = arrIP(intBanned) Then Response.Write "You are blocked from this site" Response.End End If Next 'a welcome message if IP is OK response.Wr

Ban a user based on IP address

2009-03-16T11:59:00.001-07:00

Ban a user based on IP address

<%
'variables to store banned IP and the users IP
Dim strIP , strBannedIP
'this is the banned IP address
strBannedIP = "127.0.0.1"
'get the users IP address
strIP = Request.ServerVariables("LOCAL_ADDR")
'if users address is the same as the banned IP address
'display a message
If strBannedIP = strIP Then
Response.Write "You are not permitted to view this website"
'if usersa ddress is different welcome message is displayed
Else
Response.Write "welcome"
End If
%>

Ban a user based on their IP address

2009-03-16T11:57:00.000-07:00

Ban a user based on their IP address

<% Dim bannedIP = Request.ServerVariables("REMOTE_ADDR") 'this is the IP to ban here If bannedIP = "100.100.100.100" Then Response.Redirect ("banned.php") End If %>

Code Snippets sample source codes

2009-03-16T11:55:00.000-07:00

Get the ansi value of a character

<% Dim strChar1 , strChar2 strChar1 = "a" strChar2 = "A" Response.Write "The ansi value of a is " & Asc(strChar1) & "
"
Response.Write "The ansi value of A is " & Asc(strChar2) & "
"
%>

ActiveX sample source codes

2009-03-16T11:50:00.000-07:00

Another month, day, year dropdown creator

<% 'here is the call writedropdowns ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub writeDropDowns() Dim strSelfLink strSelfLink = request.servervariables("SCRIPT_NAME") response.Write "" & vbcrlf
End Sub

'MonthDropDown
'strName = name of drop down
'blnNum = 'If blnNUM Is True, Then show As numbers
'strSelected = the currenct selected month
'strSelfLink = link to current page
Function MonthDropDown(strName, blnNum, strSelected, strSelfLink)
Dim strTemp, i, strSelectedString
strTemp = "" & vbcrlf
MonthDropDown = strTemp
End Function

'YearDropDown
'strName = name of dropdown
'intStartYear = year to start options list
'intEndYear = year to end options list
'strSelected = the currenct selected year
'strSelfLink = link To currentpage
Function YearDropDown(strName, intStartYear, intEndYear, strSelected, strSelfLink)

Dim strTemp, i, strSelectedString

If intStartYear = "" Then
intStartYear = Year(now())
End If

If intEndYear = "" Then
intEndYear = Year(now()) + 9
End If

strTemp = "" & vbcrlf
YearDropDown = strTemp
End Function

'DayDropDown
'strName = name of drop down
'intStartDay = day to start with
'intEndDay = day to end with
'strSelected = current slected day
Function DayDropDown(strName, intStartDay, intEndDay, strSelected )
Dim strTemp, i, strSelectedString
If intStartDay = "" Then
intStartDay = 1
End If

If intEndDay = "" Then
intEndDay = getDaysInMonth(Month(now()),Year(now()))
End If

strTemp = "" & vbcrlf
DayDropDown = strTemp
End Function

'getDaysInMonth
'strMonth = month as number
'strYear = year
Function getDaysInMonth(strMonth,strYear)
Dim strDays
Select Case CInt(strMonth)
Case 1,3,5,7,8,10,12:
strDays = 31
Case 4,6,9,11:
strDays = 30
Case 2:
If ( (CInt(strYear) Mod 4 = 0 And CInt(strYear) Mod 100 <> 0) Or ( CInt(strYear) Mod 400 = 0) ) Then
strDays = 29
Else
strDays = 28
End If
'Case Else:
End Select

getDaysInMonth = strDays
End Function
%>