<html>
<head>
<%
sub vbproc(value1,value2)
response.write(value*value2)
end sub
%>
</head>
<body>
<p>Result: <%call vbproc(3,4)%></p>
</body>
</html>
Form Code
<form method="get" action="simpleform.asp">
First Name: <input type="text" name="fname" /><br />
Last Name: <input type="text" name="lname" /><br /><br />
<input type="submit" value="Submit" />
</form>
Create Cookies Code<%
Response.Cookies("fname")="zain"
Response.Cookies("fname").Expires=#june 12,2005#
%>
Seesion End Code
<%
Session.Timeout=5
%>
<%
Session.Abandon
%>
#include Code
<html>
<body>
<h4>Words of Wisdom:</h4>
<p><!--#include file="wisdom.inc"--></p>
<h4>The time is:</h4>
<p><!--#include file="time.inc"--></p>
</body>
</html>
Global.asa File Code
<script language="vbscript" runat="server">
sub Application_OnStart
'some code
end sub
sub Application_OnEnd
'some code
end sub
sub Session_OnStart
'some code
end sub
sub Session_OnEnd
'some code
end sub
</script>
Send Email code
<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="abc@gmail.com.com"
myMail.To="abc@gmail.com"
myMail.TextBody="This is a message."
myMail.Send
set myMail=nothing
%>
File SYsytem Object Code
<%
dim fs,fname
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("c:\test.txt",true)
fname.WriteLine("Hello World!")
fname.Close
set fname=nothing
set fs=nothing
%>
Text StreamObject Code
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateTextFile("c:\test.txt",true)
f.WriteLine("Hello World!")
f.Close
set f=nothing
set fs=nothing
%>
File Code
<%
Dim fs,f
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.GetFile("c:\test.txt")
Response.Write("File created: " & f.DateCreated)
set f=nothing
set fs=nothing
%>
Folder Code
<%
Dim fs,fo
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set fo=fs.GetFolder("c:\test")
Response.Write("Folder created: " & fo.DateCreated)
set fo=nothing
set fs=nothing
%>
Output:
Folder created: 22/5/2002 11:15:21 AM
Dictionary Code
<%
Dim d
Set d=Server.CreateObject("Scripting.Dictionary")
d.Add "re","Red"
d.Add "gr","Green"
d.Add "bl","Blue"
d.Add "pi","Pink"
Response.Write("The value of key gr is: " & d.Item("gr"))
%>
AdRotator Code
<%
set adrotator=server.createobject("MSWC.AdRotator")
adrotator.GetAdvertisement("textfile.txt")
%>
Browser Code
<%
Set MyBrow=Server.CreateObject("MSWC.BrowserType")
%>
Contant Linking Code
<%
Set nl=Server.CreateObject("MSWC.NextLink")
%>
Contant Rotator Code
<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>
