ASP and VBScript Examples

Welcome to The Coding College, your go-to source for coding tutorials and programming insights. In this article, we’ll explore ASP (Active Server Pages) and VBScript (Visual Basic Scripting Edition) with practical examples to help you understand how to use them together in real-world applications.

ASP and VBScript, though legacy technologies, remain relevant in maintaining and updating older systems. These examples will focus on common use cases and best practices.

What Are ASP and VBScript?

ASP (Active Server Pages)

ASP is a server-side scripting environment that enables you to create dynamic, interactive web applications. It runs on Microsoft’s IIS (Internet Information Services) and supports scripting languages like VBScript and JavaScript.

VBScript (Visual Basic Scripting Edition)

VBScript is a lightweight, interpreted scripting language derived from Visual Basic. In the context of ASP, it’s often used as the primary scripting language to handle server-side logic.

Practical Examples with ASP and VBScript

1. Displaying Dynamic Content

This example demonstrates how to display dynamic content using VBScript in an ASP page.

Code:

<%
Dim currentTime
currentTime = Now()

Response.Write("<h1>Welcome to The Coding College!</h1>")
Response.Write("<p>The current server time is: " & currentTime & "</p>")
%>

Explanation:

  • Now(): Returns the current date and time.
  • Response.Write: Outputs content to the webpage dynamically.

2. Handling User Input via Forms

This example shows how to capture and display user input using an HTML form and ASP.

HTML Form (index.html):

<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <title>ASP Form Example</title>
</head>
<body>
    <form action="process.asp" method="post">
        <label for="name">Enter your name:</label>
        <input type="text" id="name" name="name" required>
        <button type="submit">Submit</button>
    </form>
</body>
</html>

ASP Processing (process.asp):

<%
Dim userName
userName = Request.Form("name")

Response.Write("<h1>Thank you, " & userName & "!</h1>")
Response.Write("<p>Welcome to The Coding College.</p>")
%>

Explanation:

  • Request.Form: Captures form data submitted via POST.
  • Dynamic response includes the user’s input.

3. Using Conditional Statements

This example highlights how to use conditional logic in ASP with VBScript.

Code:

<%
Dim userAge
userAge = 25 ' Example input

If userAge < 18 Then
    Response.Write("<p>You are a minor.</p>")
Else
    Response.Write("<p>You are an adult.</p>")
End If
%>

Explanation:

  • If...Then...Else: Evaluates a condition and executes corresponding code.

4. Looping Through Data

Here’s how to display a list of items using a loop in VBScript.

Code:

<%
Dim languages, i
languages = Array("HTML", "CSS", "JavaScript", "VBScript", "ASP")

Response.Write("<h2>Programming Languages</h2>")
Response.Write("<ul>")
For i = 0 To UBound(languages)
    Response.Write("<li>" & languages(i) & "</li>")
Next
Response.Write("</ul>")
%>

Explanation:

  • Array: Creates an array of items.
  • For...Next: Iterates through the array using the UBound function to get the last index.

5. Reading and Writing Cookies

This example shows how to set and retrieve cookies in ASP.

Setting a Cookie:

<%
Response.Cookies("username") = "JohnDoe"
Response.Cookies("username").Expires = DateAdd("d", 7, Now())
Response.Write("<p>Cookie has been set.</p>")
%>

Retrieving a Cookie:

<%
Dim userName
userName = Request.Cookies("username")

If userName <> "" Then
    Response.Write("<p>Welcome back, " & userName & "!</p>")
Else
    Response.Write("<p>Hello, Guest!</p>")
End If
%>

Explanation:

  • Response.Cookies: Sets a cookie with an expiration date.
  • Request.Cookies: Reads the cookie value.

6. File Operations

This example demonstrates reading from a text file using ASP.

Code:

<%
Dim fso, file, content
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(Server.MapPath("data.txt"), 1)

content = file.ReadAll()
Response.Write("<h2>File Content:</h2>")
Response.Write("<pre>" & content & "</pre>")

file.Close
Set file = Nothing
Set fso = Nothing
%>

Explanation:

  • FileSystemObject: Provides methods to interact with the file system.
  • OpenTextFile: Opens a file for reading.

7. Database Connection

Here’s how to connect to a database and display data using ADO (ActiveX Data Objects).

Code:

<%
Dim conn, rs, sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")

sql = "SELECT * FROM Users"
Set rs = conn.Execute(sql)

Response.Write("<table border='1'>")
Response.Write("<tr><th>ID</th><th>Name</th></tr>")
Do Until rs.EOF
    Response.Write("<tr>")
    Response.Write("<td>" & rs("ID") & "</td>")
    Response.Write("<td>" & rs("Name") & "</td>")
    Response.Write("</tr>")
    rs.MoveNext
Loop
Response.Write("</table>")

rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>

Explanation:

  • ADODB.Connection: Manages the database connection.
  • Execute: Runs the SQL query.
  • rs.EOF: Checks for the end of the recordset.

Best Practices

  1. Secure Input Handling:
    • Use Server.HTMLEncode to prevent XSS attacks.
    • Validate and sanitize user inputs.
  2. Error Handling:
    • Use On Error Resume Next to handle runtime errors.
    • Log errors for debugging.
  3. Optimize Performance:
    • Close connections and objects after use.
    • Cache frequently used data when possible.

Conclusion

ASP and VBScript are powerful tools for building dynamic web applications. While modern technologies like ASP.NET and Python dominate the development landscape, understanding these legacy tools is essential for maintaining older systems or integrating them into new solutions.

Explore more practical tutorials and guides at The Coding College and take your coding skills to the next level.

Leave a Comment