ASP 3.0

AdRotator

Application Object

Array: Check if Empty

<%
Dim f_aArr(2)

f_bFound = False

For i = 0 To Ubound(f_aArr)
	If f_aArr(i) <> "" Then
		f_bFound = True
		Exit For
	End If
Next

If Not f_bFound Then
	Response.Write("Empty Array")
Else
	Response.Write("Not Empty")
End If
%>

Array: Count Elements

<%
If IsArray(f_aArr) = False Then 
	f_iVar = 0
Else
	f_iVar = (UBound(f_aArr) - LBound(f_aArr)) + 1
End If
%>

Array: Display Content

Array: Replace

<%
'Check text for URLs and make them clickable

Dim f_sTextBody : f_sTextBody = "Here is a link - www.test.com."

f_sArray = Split(f_sTextBody, " ")

For i = 0 To UBound(f_sArray)
	If Lcase(Left(f_sArray(i), 7)) = "http://" Then
		f_sArray(i) = "<a href='" & f_sArray(i) & "'>" & _
		f_sArray(i) & "</a>"
	End If

	If Lcase(Left(f_sArray(i), 3)) = "www" Then
		f_sArray(i) = "<a href='http://" & f_sArray(i) & "'>" & _
		f_sArray(i) & "</a>"
	End If
Next
		
f_sTextBody = Join(f_sArray, " ")
%>

Array: Word Count

<%
Function GetWordCount(var)
	GetWordCount = UBound(Split(var, " ", -1, 1)) + 1
End Function
%>

ASPHTTP Object

Authentication: Simple Login

' login.asp

<form method="post" action="verify.asp">
<table>
 <tr>
  <td>User Name:</td>
  <td><input type="text" name="username" size="20" maxlength="20"></td>
 <tr>
  <td>Password:</td>
  <td><input type="password" name="password" size="20" maxlength="20"></td>
 </tr>
 <tr><td colspan="2" align="center"><input type="submit" value="Login!"></td></tr>
</table>
</form>

<%
' verify.asp
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "cjDSN"

sqlString = "SELECT * FROM USERS WHERE " & "username='" & Trim(Request.Form("username")) & "' AND " & "password='" & Trim(Request.Form("password")) & "' "
Set RS = objCon.Execute(sqlString)

If RS.EOF Then
 Session("Authenticated") = 0
 Response.Redirect ("login.asp")
Else
 Session("Authenticated") = 1
 Response.Redirect ("index.asp")
End If

RS.Close
objCon.Close

Set RS = Nothing
Set objCon = Nothing
%>

<%
' includelogin.asp
If Session("Authenticated") = 0 Then
 Response.Redirect ("login.asp")
End If
%>

Authentication: Simple Login: No DB

SIMPLE LOGIN

<%
' includelogin.asp

Function ValidateLogin(sId, sPwd)
 ValidateLogin = False
 If sId = "admin" And sPwd="admin" Then
  ValidateLogin = True
 ElseIf sId = "demo" And sPwd="12345" Then
  ValidateLogin = True
 End If
End Function

Dim sText, fBack
fBack = False
If Request.Form("dologin") = "yes" Then
 IF ValidateLogin(Request.Form("id"), Request.Form("pwd")) = True Then 
  fBack = True
  Session("logonid") = Request.Form("id")
 Else
  sText = "Wrong password or user id"
 End If
Else
 If Session("logonid") <> "" Then
  fBack = True 
 Else
  sText = "Please login"
 End If
End If

If fBack = False Then
 Dim sURL
 sURL = Request.ServerVariables("SCRIPT_NAME")
 If Request.ServerVariables("QUERY_STRING") <> "" Then
  sURL = sURL & "?" & Request.ServerVariables("QUERY_STRING")
 End If
%>
 <form method="post" action="<%= sURL %>">
 <table>
 <tr>
 <td>User Name:</td>
 <td><input type="text" name="id" size="20"></td>
 </tr>
 <tr>
 <td>Password:</td>
 <td><input type="password" name="pwd" width="20"></td>
 </tr>
 <tr>
 <td colspan="2" align="center"><input type="submit" value="Login!"></td>
 </tr>
 <tr>
 <td colspan="2" align="center"><%= sText %></td>
 </tr>
 <input type="hidden" name="dologin" value="yes">
 </table>
 </form>
<%
 Response.End
End If
%>

Browser Hawk

Browser: BrowsCap

Class

<%          
Option Explicit

Class Developer
 Private m_sName
 Private m_iAge
 
 Public Property Let Name(ByVal vNewValue)
  m_sName = (vNewValue)
 End Property
              
 Public Property Get Name()
  Name = m_sName
 End Property
              
 Public Property Let Age(ByVal vNewValue)
  m_iAge = (vNewValue)
 End Property
         
 Public Function Age_Days()
  On Error Resume Next
        
  Dim f_sDate : f_sDate = Date()
  Dim f_sBDay : f_sBDay = "08/18/" & Year(f_sDate)
  Dim f_iDiff : f_iDiff = DateDiff("d", f_sBDay, f_sDate) 
             
  Age_Days = (m_iAge * 365) + Abs(f_iDiff)
 End Function
End Class
%>     

 
<%
Call Main()

Sub Main()
 Dim objDeveloper : Set objDeveloper = New Developer
 objDeveloper.Name = "Charles"
 objDeveloper.Age = 32
 Response.Write(objDeveloper.Name)
 Response.Write("<br>")
 Response.Write(objDeveloper.Age_Days)
End Sub 
%>

Cookies: List

<%
For Each cookie In Request.Cookies
	Response.Write "<b>" & cookie & ": </b> " & Request.Cookies(cookie) & "<br>"
Next
%>

Cookies: Set/Get

CountryHawk

Data: Stored Procedure: DBInteraction

SET

Function MemberOptionsSet(v_bKeepAttachments, v_bDelete_SentItems)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Sets Member Options in tbl_mem_MemberOptions.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 f_iMemberID = g_oIMDB.getcookie(Request("GUID"), "MemberID")
 
 ' Object
 Set f_oDBInteract = Server.CreateObject("DBINteraction.StoredProc")
 
 ' Method
 Call f_oDBInteract.Execute("MemberOptionsSet", f_iRet, f_iMemberID, _
 v_bKeepAttachments, v_bDelete_SentItems)
 If f_iRet <> 0 Then
  MemberOptionsSet = False
 Else
  MemberOptionsSet = True
 End If

 Set f_oDBInteract = Nothing
End Function

GET

Function MemberOptionsGet(v_bKeepAttachments, v_bDelete_SentItems)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Gets Member Options from tbl_mem_MemberOptions.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 f_iMemberID = g_oIMDB.getcookie(Request("GUID"), "MemberID")
 
 ' Object
 Set f_oDBInteract = Server.CreateObject("DBINteraction.StoredProc")

 ' Method
 Set f_oRst = f_oDBInteract.Execute("MemberOptionsGet", f_iRet, f_iMemberID)
 If f_iRet <> 0 Then
  MemberOptionsGet = False
 Else
  MemberOptionsGet = True
  v_bKeepAttachments =  f_oRst.fields("KeepAttachments")
  v_bDelete_SentItems =  f_oRst.fields("Delete_SentItems")
 End If
 
 Set f_oRst = Nothing
 Set f_oDBInteract = Nothing
End Function

Database: Access ODBC

Database: Command Object

Database: DSN

Database: DSN-less

Database: Filter

Database: JET

Database: ODBC

Database: Recordset

<%
Dim f_oConn
Dim f_oRS
Dim f_sSQLString

Set f_oConn = Server.CreateObject("ADODB.Connection")
f_oConn.Open("storeDSN")

f_sSQLString = "SELECT * FROM products"
Set f_oRS = f_oConn.Execute(f_sSQLString)

While Not f_oRS.EOF
Response.Write f_oRS("product_name") & "<br>"
f_oRS.MoveNext
Wend

f_oRS.Close
f_oConn.Close

Set f_oRS = Nothing
Set f_oConn = Nothing
%>

<%
Dim f_oRS
Dim f_sConnString
Dim f_sSQLString

Set f_oRS = Server.CreateObject("ADODB.Recordset")
strConnect = "DSN=myDSN"

f_sConnString = "SELECT * FROM products"
f_oRS.Open(f_sSQLString, f_sConnString)

f_oRS.Close

Set f_oRS = Nothing
%>

<%
Dim f_oConn
Dim f_oRS

Set f_oConn = Server.CreateObject("ADODB.Connection")
f_oConn.Open("myDSN")

Set f_oRS = Server.CreateObject("ADODB.RecordSet")
f_oRS.Open "products", f_oConn, 0, 1, 2

While Not f_oRS.EOF
Response.Write(f_oRS("product_name") & "<br>")
f_oRS.MoveNext
Wend

f_oRS.Close
f_oConn.Close

Set f_oRS = Nothing
Set f_oConn = Nothing
%>

Database: Row Color

Database: Transaction

Date Time Format

Date: Calcs

<%
strDate = Now() '3/12/2001 6:57:24 AM
DateAdd("d", 1, strDate) '3/13/2001 6:57:24 AM
DateAdd("d", -1, strDate) '3/11/2001 6:57:24 AM
DateDiff("d", "1/1/2000", strDate) '436
'(yyyy, q, m, y, d, w, ww, h, n, s)
%>

Dates: Format: DDMMYYYY

strDate = Date()

&START=" & FormatDate(strDate) 'mmddyyyyy

Function FormatDate(thedate)
 Dim myDay
 Dim myMonth
 Dim myYear

 myDay = Day(thedate)
 If Len(myDay)=1 Then myDay="0" & myDay

 myMonth = Month(thedate)
 If Len(myMonth)=1 Then myMonth="0" & myMonth

 myYear = Year(thedate)

 FormatDate = myMonth & myDay & myYear
End Function

eCommerce: Credit Card Test

'Visa
4111 1111 1111 1111

'Amex
370000000000002

'MC
5424000000000015

eCommerce: Credit Card Validate

eCommerce: Session Cart

eCommerce: Shipping

Email: CDO

Email: CDO Config

Email: CDO Constants

Email: CDONTS

Email: JMail

Error Object

Error Object: GetLastError

Error: Response Buffer Limit Exceeded

The reason this is happening is because buffering is turned on by default, and IIS 6 cannot handle the large response.

In Classic ASP, at the top of your page, after <%@Language="VBScript"%> add:
<%Response.Buffer = False%>

In ASP.NET, you would add Buffer="False" to your Page directive.
For example:
<%@Page Language="C#" Buffer="False"%>

Fields Count

Fields Names

File: Create

File: Include

File: List

File: Modify

File: Move

File: Read

GUID

Hit Counter

IIF

No Cache

<%
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache" 
Response.Expires = -1
%>

Randomize

Request Object

<%
Dim f_sCompanyName : f_sCompanyName = Request.Form("CompanyName")

Dim f_sCompanyPhone : f_sCompanyPhone = Request.Querystring("CompanyPhone")

Dim f_sUserName : f_sUserName = Request.Cookies("UserName")

Dim f_sIPAddress : f_sIPAddress = Request.ServerVariables("REMOTE_ADDR")
%>

<%
If Request.Form.Count <> 0 Then
Response.Write "Form submitted"
End If
%>

<%
' Grab All
Sub ReadFormVariables()
For Each Field In Request.Form
    TheString = Field & " = " & Request.Form("" & Field & "")
    Execute(TheString)
Next
End Sub
%>

Response Object

ScriptEngine

Select/Dropdown: Database: Selected

<%
Function Selected(val1, val2)
If Cstr(val1) = Cstr(val2) Then
Selected = "SELECTED"
Else
Selected = ""
End If
End Function
%>

<select name="color">
<option value="red" <%= Selected(v_sColor, "red") %>>Red</option>
<option value="green" <%= Selected(v_sColor, "green") %>>Green</option>
<option value="blue" <%= Selected(v_sColor, "blue") %>>Blue</option>
</select>

Server Object

Server Variables

Session Array

Session Object

String: InStr

String: Len

String: Position

String: Regular Expression

String: Regular Expression: Email

String: Regular Expression: Match

String: Replace

Submit Loop

<%

'Loop through entered values.

v_sAction = Request.Form("action")

If Ucase(v_sAction) = "GO" Then Call MyFunction()

Function MyFunction()
For iNameServer = 1 To 4
If Request.Form( "name_server" & iNameServer ) <> "" Then
Response.Write iNameServer & Request.Form( "name_server" & iNameServer )
End If
Next
End Function
%>

<form action="test.asp" method="post" name="form1">
<input type="text" size="20" name="name_server1">
<input type="text" size="20" name="name_server2">
<input type="text" size="20" name="name_server3">
<input type="text" size="20" name="name_server4">
<input type="hidden" name="action" value="go">
<input type="submit" value="click">
</form>

Type Library

A Type Library is a container for the contents of a DLL file corresponding to a COM object. By including a call to the TypeLibrary in the Global.asa file, the constants of the COM object can be accessed, and errors can be better reported by the ASP code. If your Web application relies on COM objects that have declared data types in type libraries, you can declare the type libraries in Global.asa.

<!-- METADATA TYPE="TypeLib" file="filename" uuid="typelibraryuuid" version="versionnumber" lcid="localeid" -->

Wait Page

<script language="JavaScript">
<!--
// wait screen
if(document.layers) 
{
	var ns4 = true;
}
if(document.all) 
{
	var ie4 = true;
}

function showObject(obj) 
{
	if (ns4) obj.visibility = "show";
	else if (ie4) obj.visibility = "visible";
}
function hideObject(obj) 
{
	if (ns4) 
	{
		obj.visibility = "hide";
	}
	if (ie4) 
	{
		obj.visibility = "hidden";
	}
}
// -->
</script>

<div id="splashScreen" style="position:absolute;z-index:5;top:30%;left:35%;">
	<table bgcolor="#000000" border="1" bordercolor="#E0E4F1" height="200" width="300">
		<tr>
			<td width"=100%" height="100%" bgcolor="#ffffff" align="center" valign="middle">
				<font face="Arial, Helvetica, sans-serif" size="2" style="font-size:13.5px" color="#336699">
				<br><br>
				<b>Order processing.  Please wait...</b>
				<br><br>
				<img src="../images/icons/wait.gif" border="1" width="75" height="15">
				<br><br>
				</font>
			</td>
		</tr>
	</table>
</div>

<% Response.Flush %>

' All processing and content here...

<script language="JavaScript">
<!--
if(ns4) 
{
	var splash = document.splashScreen;
}
else if(ie4) 
{
	var splash = document.all.splashScreen.style;
}
hideObject(splash);
// -->
</script>