zydronium/aspclassiccompiler
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

--HG--

Browse source 
extra : convert_revision : svn%3Aa83551a4-30f6-4d81-a974-c6ced450ddbf%4029666
This commit is contained in:
dotneteer 2009-10-09 06:05:08 +00:00
commit 550e857127
113 changed files with 28377 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

155
aspclassiccompiler/AspWebApp/AspWebApp.csproj Normal file
View file

@ -0,0 +1,155 @@
<Project ToolsVersion="3.5" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>9.0.30729</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{24BF0EA3-2D82-4E85-B13D-EA9279F58812}</ProjectGuid>
<ProjectTypeGuids>{349c5851-65df-11da-9384-00065b846f21};{fae04ec0-301f-11d3-bf4b-00c04f79efbc}</ProjectTypeGuids>
<OutputType>Library</OutputType>
<AppDesignerFolder>Properties</AppDesignerFolder>
<RootNamespace>AspWebApp</RootNamespace>
<AssemblyName>AspWebApp</AssemblyName>
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<Optimize>false</Optimize>
<OutputPath>bin\</OutputPath>
<DefineConstants>DEBUG;TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugType>pdbonly</DebugType>
<Optimize>true</Optimize>
<OutputPath>bin\</OutputPath>
<DefineConstants>TRACE</DefineConstants>
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Core">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Data.DataSetExtensions">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Web.Extensions">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Xml.Linq">
<RequiredTargetFramework>3.5</RequiredTargetFramework>
</Reference>
<Reference Include="System.Drawing" />
<Reference Include="System.Web" />
<Reference Include="System.Xml" />
<Reference Include="System.Configuration" />
<Reference Include="System.Web.Services" />
<Reference Include="System.EnterpriseServices" />
<Reference Include="System.Web.Mobile" />
</ItemGroup>
<ItemGroup>
<Content Include="default.htm" />
<Content Include="test\byref.asp" />
<Content Include="test\byref2.asp" />
<Content Include="test\call.asp" />
<Content Include="test\BuiltinConstants.asp" />
<Content Include="components\adrot.txt" />
<Content Include="components\AdRotator.asp" />
<Content Include="components\BrowserCap.asp" />
<Content Include="components\CDO.Asp" />
<Content Include="components\clientcap.htm" />
<Content Include="components\ContentRotator.Asp" />
<Content Include="components\Counters\Docs\Contents.Htm" />
<Content Include="components\Counters\Docs\Counter1.Htm" />
<Content Include="components\Counters\Docs\Counter2.Htm" />
<Content Include="components\Counters\Docs\Counter3.Htm" />
<Content Include="components\Counters\Docs\Counter4.Htm" />
<Content Include="components\Counters\Docs\Counter5.Htm" />
<Content Include="components\Counters\Docs\Default.Htm" />
<Content Include="components\Counters\Sample\Counters_JScript.Asp" />
<Content Include="components\Counters\Sample\Counters_VBScript.Asp" />
<Content Include="components\Counters\Sample\Global.Asa" />
<Content Include="components\Counters\TOURL.Htm" />
<Content Include="components\FileSystem.Asp" />
<Content Include="components\ie.gif" />
<Content Include="components\nts_iis.gif" />
<Content Include="components\PermissionCheck.Asp" />
<Content Include="components\Tiprot.Txt" />
<Content Include="components\Tools.Asp" />
<Content Include="test\datetest.asp" />
<Content Include="test\ifnull.asp" />
<Content Include="test\with.asp" />
<Content Include="Database\AddDelete.asp" />
<Content Include="Database\adovbs.inc" />
<Content Include="Database\Authors.mdb">
</Content>
<Content Include="Database\Blob.Asp" />
<Content Include="Database\LimitRows.asp" />
<Content Include="Database\MultiScrolling.asp" />
<Content Include="Database\SimpleQuery.asp" />
<Content Include="Database\StoredProcedures.asp" />
<Content Include="Database\Update.asp" />
<Content Include="test\perftest2.asp" />
<Content Include="test\datatypes.asp" />
<Content Include="test\forloop.asp" />
<Content Include="test\function.asp" />
<Content Include="test\if.asp" />
<Content Include="test\literals.asp" />
<Content Include="test\perftest.asp" />
<Content Include="test\servervars.asp" />
<Content Include="Simple\Arrays.asp" />
<Content Include="Simple\Components.Asp" />
<Content Include="Simple\Conditional.asp" />
<Content Include="Simple\Functions.asp" />
<Content Include="Simple\HeaderInfo.Asp" />
<Content Include="Simple\Includes.asp" />
<Content Include="Simple\Looping.asp" />
<Content Include="Simple\Variables.asp" />
<Content Include="Web.config" />
</ItemGroup>
<ItemGroup>
<Compile Include="Properties\AssemblyInfo.cs" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\asp\Asp.csproj">
<Project>{F076A2D0-5200-42D7-9AEA-9E1260EFB138}</Project>
<Name>Asp</Name>
</ProjectReference>
</ItemGroup>
<ItemGroup>
<Folder Include="App_Data\" />
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.CSharp.targets" />
<Import Project="$(MSBuildExtensionsPath)\Microsoft\VisualStudio\v9.0\WebApplications\Microsoft.WebApplication.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
<ProjectExtensions>
<VisualStudio>
<FlavorProperties GUID="{349c5851-65df-11da-9384-00065b846f21}">
<WebProjectProperties>
<UseIIS>False</UseIIS>
<AutoAssignPort>True</AutoAssignPort>
<DevelopmentServerPort>3465</DevelopmentServerPort>
<DevelopmentServerVPath>/</DevelopmentServerVPath>
<IISUrl>
</IISUrl>
<NTLMAuthentication>False</NTLMAuthentication>
<UseCustomServer>False</UseCustomServer>
<CustomServerUrl>
</CustomServerUrl>
<SaveServerSettingsInUserFile>False</SaveServerSettingsInUserFile>
</WebProjectProperties>
</FlavorProperties>
</VisualStudio>
</ProjectExtensions>
</Project>

36
aspclassiccompiler/AspWebApp/AspWebApp.csproj.user Normal file
View file

@ -0,0 +1,36 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectView>ProjectFiles</ProjectView>
</PropertyGroup>
<ProjectExtensions>
<VisualStudio>
<FlavorProperties GUID="{349c5851-65df-11da-9384-00065b846f21}">
<WebProjectProperties>
<StartPageUrl>
</StartPageUrl>
<StartAction>CurrentPage</StartAction>
<AspNetDebugging>True</AspNetDebugging>
<SilverlightDebugging>False</SilverlightDebugging>
<NativeDebugging>False</NativeDebugging>
<SQLDebugging>False</SQLDebugging>
<PublishCopyOption>RunFiles</PublishCopyOption>
<PublishTargetLocation>
</PublishTargetLocation>
<PublishDeleteAllFiles>False</PublishDeleteAllFiles>
<PublishCopyAppData>True</PublishCopyAppData>
<ExternalProgram>
</ExternalProgram>
<StartExternalURL>
</StartExternalURL>
<StartCmdLineArguments>
</StartCmdLineArguments>
<StartWorkingDirectory>
</StartWorkingDirectory>
<EnableENC>False</EnableENC>
<AlwaysStartWebServerOnDebug>True</AlwaysStartWebServerOnDebug>
<EnableWcfTestClientForSVC>False</EnableWcfTestClientForSVC>
</WebProjectProperties>
</FlavorProperties>
</VisualStudio>
</ProjectExtensions>
</Project>

13
aspclassiccompiler/AspWebApp/BuiltinConstants.asp Normal file
View file

@ -0,0 +1,13 @@
<html>
<head>
</head>
<body>
<%=vbSunday %><BR/>
<%=vbMonday %><BR/>
<%=vbTuesday %><BR/>
<%=vbWednesday %><BR/>
<%=vbThursday %><BR/>
<%=vbFriday %><BR/>
<%=vbSaturday %><BR/>
</body>
</html>

59
aspclassiccompiler/AspWebApp/Database/AddDelete.asp Normal file
View file

@ -0,0 +1,59 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Expires= -1 %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>Add/Delete Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Add/Delete Database Sample</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn
Dim oRs
Dim filePath
' Map authors database to physical path
filePath = Server.MapPath("authors.mdb")
' Create ADO Connection Component to connect with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' To add, delete and update recordset, it is recommended to use
' direct SQL statement instead of ADO methods.
oConn.Execute "insert into authors (author, YearBorn) values ('Paul Enfield', 1967)"
' Output Result
Set oRs = oConn.Execute (" select * from authors where Author= 'Paul Enfield' and YearBorn =1967 " )
Response.Write("<p>Inserted Author: " & oRs("Author") & "," & oRs("YearBorn"))
' Close Recordset
oRs.Close
Set oRs= Nothing
' Delete the inserted record
oConn.Execute "Delete From authors where author='Paul Enfield' and YearBorn = 1967 "
' Output Status Result
Response.Write("<p>Deleted Author: Paul Enfield, 1967")
%>
</BODY>
</HTML>

BIN
aspclassiccompiler/AspWebApp/Database/Authors.ldb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/Database/Authors.mdb Normal file
View file

Binary file not shown.

48
aspclassiccompiler/AspWebApp/Database/Blob.Asp Normal file
View file

@ -0,0 +1,48 @@
<% @ LANGUAGE=VBScript %>
<% Option Explicit %>
<HTML>
<%
' This sample utilizes the Image field in the PUB_INFO table.
' This table is installed with Microsoft SQL Server in the
' PUBS database.
Dim oConn
Dim oRs
Dim Pic
Dim PicSize
Dim strConn
' Setup HTTP Header Information so that the browser interprets
' the returned data as a gif graphic file. Note that browsers
' interpret returned information using MIME headers -- not file
' extensions.
Response.Buffer = TRUE
Response.ContentType = "image/gif"
' Create ADO Connection Object. Use OLEDB Source with
' default sa account and no password
Set oConn = Server.CreateObject("ADODB.Connection")
strConn="Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs;Data Source="& Request.ServerVariables("SERVER_NAME")
' Query SQL to obtain recordset containing gif BLOB
oConn.Open strConn
Set oRs = oConn.Execute("SELECT logo FROM pub_info WHERE pub_id='0736'")
' Obtain local variable of GIF
PicSize = oRs("logo").ActualSize
Pic = oRs("logo").GetChunk(PicSize)
' Write Data back to client. Because MIME type is set to
' image/gif, the browser will automatically render as picture
Response.BinaryWrite Pic
Response.End
%>
dsafds

93
aspclassiccompiler/AspWebApp/Database/LimitRows.asp Normal file
View file

@ -0,0 +1,93 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<!--#INCLUDE FILE="adovbs.inc"-->
<HTML>
<HEAD>
<TITLE>LimitRows From Database</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>LimitRows From Database</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>
<%
Dim oConn
Dim oRs
Dim curDir
Dim Index
' Map authors database to physical path
curDir = Server.MapPath("authors.mdb")
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
' Create ADO Recordset Component
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs.ActiveConnection = oConn
' Set Recordset PageSize so that it only
' holds 10 rows
oRs.PageSize = 10
' Get recordset
oRs.Source = "SELECT * FROM authors"
oRs.CursorType = adOpenStatic
' Open Recordset
oRs.Open
%>
<TABLE border = 1>
<%
Dim RecordCount
RecordCount = 0
Do while ((Not oRs.eof) And (RecordCount < oRs.PageSize)) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>
<%
RecordCount = RecordCount + 1
oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.close
oConn.close
%>
</BODY>
</HTML>

124
aspclassiccompiler/AspWebApp/Database/MultiScrolling.asp Normal file
View file

@ -0,0 +1,124 @@
<% @LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--#INCLUDE FILE="adovbs.inc"-->
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>MultiScrolling Database Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>MultiScrolling Database Sample</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>
<%
Dim oConn
Dim oRs
Dim filePath
Dim Mv
Dim PageNo
Dim j
Dim i
' Map authors database to physical path
filePath = Server.MapPath("authors.mdb")
' Create ADO Connection Component to connect with
' sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Create ADO Recordset Component
Set oRs = Server.CreateObject("ADODB.Recordset")
' Determine what PageNumber the scrolling currently is on
Mv = Request("Mv")
If Request("PageNo") = "" Then
PageNo = 1
Else
PageNo = Request("PageNo")
End If
' Setup Query Recordset (4 records per page)
oRs.Open "SELECT * FROM Authors", oConn, adOpenStatic
oRs.PageSize = 4
' Adjust PageNumber as Appropriate
If Mv = "Page Up" or Mv = "Page Down" Then
Select Case Mv
Case "Page Up"
If PageNo > 1 Then
PageNo = PageNo - 1
Else
PageNo = 1
End If
Case "Page Down"
If oRs.AbsolutePage < oRs.PageCount Then
PageNo = PageNo + 1
Else
PageNo = oRs.PageCount
End If
Case Else
PageNo = 1
End Select
End If
oRs.AbsolutePage = PageNo
%>
<!-- Draw Table of Contacts in DB -->
<TABLE BORDER=1>
<% For j = 1 to oRs.PageSize %>
<TR>
<% For i = 0 to oRs.Fields.Count - 1 %>
<TD VALIGN=TOP><%= oRs(i) %></TD>
<% Next %>
</TR>
<%
oRs.MoveNext
' Don't try to print the EOF record.
If oRs.EOF Then
Exit For
End If
Next %>
</TABLE>
<!-- Scrolling Navigation Control for Sample -->
<Form Action=MultiScrolling.asp Method="POST">
<Input Type="Hidden" Name="PageNo" Value="<%= PageNo %>">
<!-- Only show appropriate buttons -->
<% If PageNo < oRs.PageCount Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Down">
<% End If %>
<% If PageNo > 1 Then %>
<INPUT TYPE="Submit" Name="Mv" Value="Page Up">
<% End If %>
</Form>
</BODY>
</HTML>

71
aspclassiccompiler/AspWebApp/Database/SimpleQuery.asp Normal file
View file

@ -0,0 +1,71 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>
<hr size="1" color="#000000">
Contacts within the Authors Database:<br><br>
<%
Dim oConn
Dim oRs
Dim filePath
Dim Index
' Map authors database to physical path
filePath = Server.MapPath("authors.mdb")
' Create ADO Connection Component to connect
' with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Execute a SQL query and store the results
' within recordset
Set oRs = oConn.Execute("SELECT * From authors")
%>
<TABLE border = 1>
<%
Do while (Not oRs.eof) %>
<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><%= oRs(Index)%></TD>
<% Next %>
</tr>
<% oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.close
oConn.close
%>
</BODY>
</HTML>

63
aspclassiccompiler/AspWebApp/Database/StoredProcedures.asp Normal file
View file

@ -0,0 +1,63 @@
<% @ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<% ' This example can be used to call the ByRoyalty stored procedure
' installed with the PUBS database with Microsoft SQL Server.
' This sample assumes that SQL Server is running on the local machine
%>
<HTML>
<HEAD>
<TITLE>Using Stored Procedures</TITLE>
</HEAD>
<BODY bgcolor="white" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Using Stored Procedures</b></font><p>
<%
Dim oConn
Dim strConn
Dim oCmd
Dim oRs
Set oConn = Server.CreateObject("ADODB.Connection")
Set oCmd = Server.CreateObject("ADODB.Command")
' Open ADO Connection using account "sa"
' and blank password
strConn="Provider=SQLOLEDB;User ID=sa;Initial Catalog=pubs;Data Source="& Request.ServerVariables("SERVER_NAME")
oConn.Open strConn
Set oCmd.ActiveConnection = oConn
' Setup Call to Stored Procedure and append parameters
oCmd.CommandText = "{call byroyalty(?)}"
oCmd.Parameters.Append oCmd.CreateParameter("@Percentage", adInteger, adParamInput)
' Assign value to input parameter
oCmd("@Percentage") = 75
' Fire the Stored Proc and assign resulting recordset
' to our previously created object variable
Set oRs = oCmd.Execute
%>
Author ID = <% Response.Write oRs("au_id") %><BR>
</BODY>
</HTML>

54
aspclassiccompiler/AspWebApp/Database/Update.asp Normal file
View file

@ -0,0 +1,54 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<TITLE>Update Database</TITLE>
</HEAD>
<BODY BGCOLOR="White" topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4" face="Arial, Helvetica">
<b>Update Database</b></font><br>
<hr size="1" color="#000000">
<%
Dim oConn ' object for ADODB.Connection obj
Dim oRs ' object for output recordset object
Dim filePath ' Directory of authors.mdb file
' Map authors database to physical path
filePath = Server.MapPath("authors.mdb")
' Create ADO Connection Component to connect with sample database
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' To add, delete and update recordset, it is recommended to use
' direct SQL statement instead of ADO methods.
oConn.Execute "Update Authors Set Author ='Scott Clinton'" _
& "where Author='Scott Guthrie' "
Set oRs = oConn.Execute ( "select * from Authors where author" _
& "= 'Scott Clinton'" )
%>
Changed Author: <%= oRs("Author") %>, <%= oRs("Yearborn") %> <P>
<%
oConn.Execute "Update Authors Set Author ='Scott Guthrie'" _
& "where Author='Scott Clinton' "
Set oRs = oConn.Execute ( "select * from Authors where author" _
& "= 'Scott Guthrie'" )
%>
Changed Author: <%= oRs("Author") %>, <%= oRs("Yearborn") %>
</BODY>
</HTML>

33
aspclassiccompiler/AspWebApp/Database/adovbs.inc Normal file
View file

@ -0,0 +1,33 @@
<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' Copyright (c) 1996-1998 Microsoft Corporation.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
'...
'... Lots more lines like the ones above go here ...
'...
'---- RecordTypeEnum Values ----
Const adSimpleRecord = 0
Const adCollectionRecord = 1
Const adStructDoc = 2
%>

16
aspclassiccompiler/AspWebApp/Default.aspx Normal file
View file

@ -0,0 +1,16 @@
<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="AspWebApp._Default" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
</div>
</form>
</body>
</html>

17
aspclassiccompiler/AspWebApp/Default.aspx.cs Normal file
View file

@ -0,0 +1,17 @@
using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
namespace AspWebApp
{
public partial class _Default : System.Web.UI.Page
{
protected void Page_Load(object sender, EventArgs e)
{
}
}
}

27
aspclassiccompiler/AspWebApp/Default.aspx.designer.cs generated Normal file
View file

@ -0,0 +1,27 @@
//------------------------------------------------------------------------------
// <auto-generated>
// This code was generated by a tool.
// Runtime Version:2.0.50727.42
//
// Changes to this file may cause incorrect behavior and will be lost if
// the code is regenerated.
// </auto-generated>
//------------------------------------------------------------------------------
namespace AspWebApp
{
public partial class _Default
{
/// <summary>
/// form1 control.
/// </summary>
/// <remarks>
/// Auto-generated field.
/// To modify move field declaration from designer file to code-behind file.
/// </remarks>
protected global::System.Web.UI.HtmlControls.HtmlForm form1;
}
}

35
aspclassiccompiler/AspWebApp/Properties/AssemblyInfo.cs Normal file
View file

@ -0,0 +1,35 @@
using System.Reflection;
using System.Runtime.CompilerServices;
using System.Runtime.InteropServices;
// General Information about an assembly is controlled through the following
// set of attributes. Change these attribute values to modify the information
// associated with an assembly.
[assembly: AssemblyTitle("AspWebApp")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("DLRSoft")]
[assembly: AssemblyProduct("VBScript.NET")]
[assembly: AssemblyCopyright("Copyright © DLRSoft 2009")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyCulture("")]
// Setting ComVisible to false makes the types in this assembly not visible
// to COM components. If you need to access a type in this assembly from
// COM, set the ComVisible attribute to true on that type.
[assembly: ComVisible(false)]
// The following GUID is for the ID of the typelib if this project is exposed to COM
[assembly: Guid("3d5900ae-111a-45be-96b3-d9e4606ca793")]
// Version information for an assembly consists of the following four values:
//
// Major Version
// Minor Version
// Build Number
// Revision
//
// You can specify all the values or you can default the Revision and Build Numbers
// by using the '*' as shown below:
[assembly: AssemblyVersion("1.0.0.0")]
[assembly: AssemblyFileVersion("0.5.1.31188")]

112
aspclassiccompiler/AspWebApp/Simple/Arrays.asp Normal file
View file

@ -0,0 +1,112 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<%
'Declare a simple fixed size array.
Dim aFixed(4)
'Declare a dynamic (resizable) array.
Dim aColors()
'Assign values to fixed size array.
aFixed(0) = "Fixed"
aFixed(1) = "Size"
aFixed(2) = "Array"
aFixed(3) = "Session ID: " & Session.SessionID
'Allocate storage for the array.
Redim aColors(14)
'Store values representing a simple color table
'to each of the elements.
aColors(0) = "RED" '[#FF0000]
aColors(1) = "GREEN" '[#008000]
aColors(2) = "BLUE" '[#0000FF]
aColors(3) = "AQUA" '[#00FFFF]
aColors(4) = "YELLOW" '[#FFFF00]
aColors(5) = "FUCHSIA" '[#FF00FF]
aColors(6) = "GRAY" '[#808080]
aColors(7) = "LIME" '[#00FF00]
aColors(8) = "MAROON" '[#800000]
aColors(9) = "NAVY" '[#000080]
aColors(10) = "OLIVE" '[#808000]
aColors(11) = "PURPLE" '[#800080]
aColors(12) = "SILVER" '[#C0C0C0]
aColors(13) = "TEAL" '[#008080]
%>
<HTML>
<HEAD>
<TITLE>Array Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="Arial, Helvetica">
<B>Array Sample</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<TABLE CELLPADDING=10 BORDER=1 CELLSPACING=0>
<TR>
<TD BGCOLOR=WHITE>
<FONT SIZE="3" FACE="Arial, Helvetica">
<B>A Resizable Array</B><BR>
</FONT>
</TD>
<TD BGCOLOR=WHITE>
<FONT SIZE="3" FACE="Arial, Helvetica">
<B>A Fixed Size (4 element) Array</B><BR>
</FONT>
</TD>
</TR>
<TR>
<TD>
<%
Dim intColors
Dim i
'Calculate array size.
intColors = UBound(aColors)
'Print out contents of resizable array into
'table column.
For i = 0 To intColors - 1
Response.Write("<FONT COLOR=" & Chr(34) & aColors(i) & Chr(34) &">" & aColors(i) &"<br></FONT>")
Next
%>
</TD>
<TD>
<%
'Calculate Array Size.
intColors = UBound(aFixed)
'Print out contents of fixed array into table
'column.
For i = 0 To intColors -1
Response.Write(aFixed(i) & "<br>")
Next
%>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

40
aspclassiccompiler/AspWebApp/Simple/Components.Asp Normal file
View file

@ -0,0 +1,40 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Using Components</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<b>Using Components with ASP</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
This script uses the Tools component that
comes with IIS to generate a random number.
<BR>
<BR>
<%
Dim objExample
'Instantiate Component on the Server.
Set objExample = Server.CreateObject("MSWC.Tools")
%>
Random Number = <%= objExample.Random() %>
</BODY>
</HTML>

60
aspclassiccompiler/AspWebApp/Simple/Conditional.asp Normal file
View file

@ -0,0 +1,60 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Conditional Operator Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Conditional Operator Sample</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<!-- If...Then example -->
<%
Dim varDate
varDate = Date()
%>
<P>The date is: <%= varDate %></P>
<%
'Select Case statement to display a message based on the day of the month.
Select Case Day(varDate)
Case 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Response.Write("<P>It's the beginning of the month.</P>")
Case 11, 12, 13, 14, 15, 16, 17, 18, 19, 20
Response.Write("<P>It's the middle of the month.</P>")
Case Else
Response.Write("<P>It's the end of the month.</P>")
End Select
%>
<P>The time is: <%= Time %></P>
<%
'Check for AM/PM, and output appropriate message.
If (Right(Time,2)="AM") Then
Response.Write("<P>Good Morning</P>")
Else
Response.Write("<P>Good Evening</P>")
End If
%>
</BODY>
</HTML>

54
aspclassiccompiler/AspWebApp/Simple/Functions.asp Normal file
View file

@ -0,0 +1,54 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'Define Server Side Script Function.
Function PrintOutMsg(strMsg, intCount)
Dim i
'Output Message count times.
For i = 1 to intCount
Response.Write(strMsg & "<BR>")
Next
'Return number of iterations.
PrintOutMsg = intCount
End Function
</SCRIPT>
<HTML>
<HEAD>
<TITLE>Functions</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Server Side Functions</B></FONT><BR>
<P>
The function "PrintOutMsg" prints out a specific message a set number of times.<P>
<%
'Store number of times function printed message.
Dim intTimes
'Call function.
intTimes = PrintOutMsg("This is a function test!", 4)
'Output the function return value.
Response.Write("<p>The function printed out the message " & intTimes & " times.")
%>
</BODY>
</HTML>

1
aspclassiccompiler/AspWebApp/Simple/HeaderInfo.Asp Normal file
View file

@ -0,0 +1 @@
<B>This text is coming from HeaderInfo.asp.</B>

32
aspclassiccompiler/AspWebApp/Simple/Includes.asp Normal file
View file

@ -0,0 +1,32 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Server Side Includes</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Server Side Includes</B></FONT><BR>
<P>Server-Side Includes can be done using the
#Include File command. The below text in bold
has been generated with a Server-Side Include:
<P> <!--#INCLUDE FILE="HeaderInfo.asp"--> </P>
<P>Include files can be referenced using either
absolute or relative paths.<BR>
</BODY>
</HTML>

71
aspclassiccompiler/AspWebApp/Simple/Looping.asp Normal file
View file

@ -0,0 +1,71 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Looping</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Looping with ASP</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<!-- Looping with a For loop. -->
<%
Dim intCounter
For intCounter = 1 to 5 %>
<FONT SIZE=<% = intCounter %>>
Hello World with a For Loop!<BR>
</FONT>
<% next %>
<HR>
<!-- Looping with a While...Wend loop. -->
<%
intCounter = 1
While(intCounter < 6) %>
<FONT SIZE=<% = intCounter %>>
Hello World with a While Loop!<BR>
</FONT>
<% intCounter = intCounter + 1 %>
<% wend %>
<HR>
<!-- Looping with a Do...While loop. -->
<%
intCounter = 1
Do While(intCounter < 6) %>
<FONT SIZE=<% =intCounter %>>
Hello World with a Do...While Loop!<BR>
</FONT>
<% intCounter = intCounter+1 %>
<% loop %>
</BODY>
</HTML>

90
aspclassiccompiler/AspWebApp/Simple/Variables.asp Normal file
View file

@ -0,0 +1,90 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Variable Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Variable Sample</B></FONT><BR>
<HR>
<H3>Integer Manipulation</H3>
<%
'Declare variable.
Dim intVar
'Assign the variable an integer value.
intVar = 5
%>
<P><%= intVar %> + <%= intVar %> = <%= intVar + intVar %></P>
<HR>
<H3>String Manipulation</H3>
<%
'Declare variable.
Dim strVar
'Assign the variable a string value.
strVar = "Jemearl"
%>
<P>This example was done by <%= strVar + " Smith" %></P>
<HR>
<H3>Boolean Manipulation</H3>
<%
'Declare variable.
Dim blnVar
'Assign the variable a Boolean value.
blnVar = true
'Output message based on value.
If (blnVar) Then
Response.Write "<P>The Boolean value is True.</P>"
Else
Response.Write "<P>The Boolean value is False.</P>"
End If
%>
<HR>
<H3>Date and Time</H3>
<%
'Declare variable.
Dim dtmVar
'Assign the variable a value.
dtmVar = #08 / 27 / 97 5:11:42pm#
%>
<P>The date and time is <%= dtmVar %>
<%
'Set the variable to the web server date and time.
dtmVar = Now()
%>
<P>The <STRONG>system</strong> date and time is <%= dtmVar %></P>
</BODY>
</HTML>

108
aspclassiccompiler/AspWebApp/Web.config Normal file
View file

@ -0,0 +1,108 @@
<?xml version="1.0"?>
<configuration>
<configSections>
<sectionGroup name="system.web.extensions" type="System.Web.Configuration.SystemWebExtensionsSectionGroup, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">
<sectionGroup name="scripting" type="System.Web.Configuration.ScriptingSectionGroup, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">
<section name="scriptResourceHandler" type="System.Web.Configuration.ScriptingScriptResourceHandlerSection, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" allowDefinition="MachineToApplication"/>
<sectionGroup name="webServices" type="System.Web.Configuration.ScriptingWebServicesSectionGroup, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35">
<section name="jsonSerialization" type="System.Web.Configuration.ScriptingJsonSerializationSection, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" allowDefinition="Everywhere"/>
<section name="profileService" type="System.Web.Configuration.ScriptingProfileServiceSection, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" allowDefinition="MachineToApplication"/>
<section name="authenticationService" type="System.Web.Configuration.ScriptingAuthenticationServiceSection, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" allowDefinition="MachineToApplication"/>
<section name="roleService" type="System.Web.Configuration.ScriptingRoleServiceSection, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" requirePermission="false" allowDefinition="MachineToApplication"/>
</sectionGroup>
</sectionGroup>
</sectionGroup>
</configSections>
<appSettings/>
<connectionStrings/>
<system.web>
<!--
Set compilation debug="true" to insert debugging
symbols into the compiled page. Because this
affects performance, set this value to true only
during development.
-->
<compilation debug="true">
<assemblies>
<add assembly="System.Core, Version=3.5.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
<add assembly="System.Data.DataSetExtensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
<add assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add assembly="System.Xml.Linq, Version=3.5.0.0, Culture=neutral, PublicKeyToken=B77A5C561934E089"/>
</assemblies>
</compilation>
<!--
The <authentication> section enables configuration
of the security authentication mode used by
ASP.NET to identify an incoming user.
-->
<authentication mode="Windows"/>
<!--
The <customErrors> section enables configuration
of what to do if/when an unhandled error occurs
during the execution of a request. Specifically,
it enables developers to configure html error pages
to be displayed in place of a error stack trace.
<customErrors mode="RemoteOnly" defaultRedirect="GenericErrorPage.htm">
<error statusCode="403" redirect="NoAccess.htm" />
<error statusCode="404" redirect="FileNotFound.htm" />
</customErrors>
-->
<pages>
<controls>
<add tagPrefix="asp" namespace="System.Web.UI" assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add tagPrefix="asp" namespace="System.Web.UI.WebControls" assembly="System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
</controls>
</pages>
<httpHandlers>
<remove verb="*" path="*.asmx"/>
<add verb="*" path="*.asmx" validate="false" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add verb="*" path="*_AppService.axd" validate="false" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add verb="GET,HEAD" path="ScriptResource.axd" type="System.Web.Handlers.ScriptResourceHandler, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35" validate="false"/>
<add verb="*" path="*.asp" validate="false" type="Dlrsoft.Asp.AspHandler, Dlrsoft.Asp"/>
</httpHandlers>
<httpModules>
<add name="ScriptModule" type="System.Web.Handlers.ScriptModule, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
</httpModules>
</system.web>
<system.codedom>
<compilers>
<compiler language="c#;cs;csharp" extension=".cs" warningLevel="4" type="Microsoft.CSharp.CSharpCodeProvider, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<providerOption name="CompilerVersion" value="v3.5"/>
<providerOption name="WarnAsError" value="false"/>
</compiler>
</compilers>
</system.codedom>
<!--
The system.webServer section is required for running ASP.NET AJAX under Internet
Information Services 7.0. It is not necessary for previous version of IIS.
-->
<system.webServer>
<validation validateIntegratedModeConfiguration="false"/>
<modules>
<remove name="ScriptModule"/>
<add name="ScriptModule" preCondition="managedHandler" type="System.Web.Handlers.ScriptModule, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
</modules>
<handlers>
<remove name="WebServiceHandlerFactory-Integrated"/>
<remove name="ScriptHandlerFactory"/>
<remove name="ScriptHandlerFactoryAppServices"/>
<remove name="ScriptResource"/>
<add name="ScriptHandlerFactory" verb="*" path="*.asmx" preCondition="integratedMode" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add name="ScriptHandlerFactoryAppServices" verb="*" path="*_AppService.axd" preCondition="integratedMode" type="System.Web.Script.Services.ScriptHandlerFactory, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
<add name="ScriptResource" preCondition="integratedMode" verb="GET,HEAD" path="ScriptResource.axd" type="System.Web.Handlers.ScriptResourceHandler, System.Web.Extensions, Version=3.5.0.0, Culture=neutral, PublicKeyToken=31BF3856AD364E35"/>
</handlers>
</system.webServer>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="System.Web.Extensions" publicKeyToken="31bf3856ad364e35"/>
<bindingRedirect oldVersion="1.0.0.0-1.1.0.0" newVersion="3.5.0.0"/>
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Web.Extensions.Design" publicKeyToken="31bf3856ad364e35"/>
<bindingRedirect oldVersion="1.0.0.0-1.1.0.0" newVersion="3.5.0.0"/>
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>

BIN
aspclassiccompiler/AspWebApp/bin/AspWebApp.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/AspWebApp.pdb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Dlrsoft.Asp.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Dlrsoft.Asp.pdb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Dlrsoft.VBParser.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Dlrsoft.VBParser.pdb Normal file
View file

Binary file not shown.

4007
aspclassiccompiler/AspWebApp/bin/Dlrsoft.VBParser.xml Normal file
View file

File diff suppressed because it is too large Load diff

BIN
aspclassiccompiler/AspWebApp/bin/Dlrsoft.VBScript.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Dlrsoft.VBScript.pdb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Interop.ASPTypeLibrary.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Dynamic.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Dynamic.pdb Normal file
View file

Binary file not shown.

5913
aspclassiccompiler/AspWebApp/bin/Microsoft.Dynamic.xml Normal file
View file

File diff suppressed because it is too large Load diff

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.Core.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.Core.pdb Normal file
View file

Binary file not shown.

10821
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.Core.xml Normal file
View file

File diff suppressed because it is too large Load diff

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.Debugging.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.Debugging.pdb Normal file
View file

Binary file not shown.

196
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.Debugging.xml Normal file
View file

@ -0,0 +1,196 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>Microsoft.Scripting.Debugging</name>
</assembly>
<members>
<member name="T:Microsoft.Scripting.Debugging.ErrorStrings">
<summary>
Strongly-typed and parameterized string factory.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.ScopedRuntimeVariables">
<summary>
Implements IRuntimeVariables in a way that preserves scoping within the lambda.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DebugSourceSpan">
<summary>
Combines source file and span. Also provides Contains and Intersects functionality.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.VariableInfo">
<summary>
Used to provide information about locals/parameters at debug time.
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.VariableInfo.VariableType">
<summary>
Type
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.VariableInfo.Name">
<summary>
Name
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.VariableInfo.IsParameter">
<summary>
Parameter
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DebugGenerator`1">
<summary>
Used to wrap a lambda that was already a generator prior to transform.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.CompilerServices.DebugLambdaInfo">
<summary>
Used by compilers to provide additional debug information about LambdaExpression to DebugContext
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.CompilerServices.DebugContext">
<summary>
Provides services to compilers for instrumenting code with tracebacks.
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.CompilerServices.DebugContext.CreateInstance">
<summary>
Creates a new instance of DebugContext
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.CompilerServices.DebugContext.TransformLambda(Microsoft.Scripting.Ast.LambdaExpression,Microsoft.Scripting.Debugging.CompilerServices.DebugLambdaInfo)">
<summary>
Transforms a LambdaExpression to a debuggable LambdaExpression
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.CompilerServices.DebugContext.TransformLambda(Microsoft.Scripting.Ast.LambdaExpression)">
<summary>
Transforms a LambdaExpression to a debuggable LambdaExpression
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.CompilerServices.DebugContext.ResetSourceFile(System.String)">
<summary>
Resets a state associated with a source file that's maintained in the DebugContext
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.CompilerServices.DebugContext.Threads">
<summary>
Threads
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.CompilerServices.DebugContext.DebugCallback">
<summary>
Hook
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.IDebugThreadFactory">
<summary>
IDebugThreadFactory is used to abstract how frames and local variables are maintained at run/debug time.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DebugInfoRewriter">
<summary>
Used to rewrite expressions containing DebugInfoExpressions.
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.FunctionInfo.GetTraceLocations">
<summary>
GetTraceLocations
</summary>
<returns></returns>
</member>
<member name="P:Microsoft.Scripting.Debugging.FunctionInfo.SequencePoints">
<summary>
SequencePoints
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.FunctionInfo.Name">
<summary>
Name
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.FunctionInfo.CustomPayload">
<summary>
CustomPayload
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.LambdaWalker">
<summary>
Used to extract locals information from expressions.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.CompilerServices.IDebugCompilerSupport">
<summary>
Implemented by compilers to allow the traceback engine to get additional information.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DefaultDebugThread">
<summary>
Default implementation of BaseDebugThread, which uses DLR's RuntimeVariablesExpression for lifting locals.
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.IDebugCallback.OnDebugEvent(Microsoft.Scripting.Debugging.TraceEventKind,Microsoft.Scripting.Debugging.DebugThread,Microsoft.Scripting.Debugging.FunctionInfo,System.Int32,System.Int32,System.Object)">
<summary>
Callback that is fired by the traceback engine
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DefaultDebugThreadFactory">
<summary>
Default implementation of IDebugThreadFactory, which uses DLR's RuntimeVariablesExpression for lifting locals.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DebugRuntimeVariables">
<summary>
Implementation of IDebugRuntimeVariables, which wraps IRuntimeVariables + FunctionInfo/DebugMarker
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.IDebugRuntimeVariables">
<summary>
IDebugRuntimeVariables is used to wrap IRuntimeVariables and add properties for retrieving
FunctionInfo and DebugMarker from debuggable labmdas.
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.DebuggableLambdaBuilder">
<summary>
DebuggableLambdaBuilder is used to transform a DLR expression tree into a debuggable lambda expression.
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.DebugFrame.ReplaceLiftedLocals(System.Runtime.CompilerServices.IRuntimeVariables)">
<summary>
// This method is called from the generator to update the frame with generator's locals
</summary>
</member>
<member name="M:Microsoft.Scripting.Debugging.DebugFrame.RemapToGenerator(System.Int32)">
<summary>
Remaps the frame's state to use the generator for execution.
</summary>
<param name="version">Int32.MaxValue to map to latest version</param>
</member>
<member name="P:Microsoft.Scripting.Debugging.DebugFrame.Thread">
<summary>
Thread
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.DebugFrame.StackDepth">
<summary>
FrameOrder
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.DebugFrame.Variables">
<summary>
Variables
</summary>
</member>
<member name="P:Microsoft.Scripting.Debugging.DebugFrame.CurrentSequencePointIndex">
<summary>
CurrentSequencePointIndex
</summary>
</member>
<member name="T:Microsoft.Scripting.Debugging.TracePipeline">
<summary>
TraceSession
</summary>
</member>
</members>
</doc>

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.ExtensionAttribute.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.ExtensionAttribute.pdb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.pdb Normal file
View file

Binary file not shown.

4146
aspclassiccompiler/AspWebApp/bin/Microsoft.Scripting.xml Normal file
View file

File diff suppressed because it is too large Load diff

15
aspclassiccompiler/AspWebApp/byref.asp Normal file
View file

@ -0,0 +1,15 @@
<%
sub main()
dim a
a = 2
mysub a
response.Write a
end sub
sub mysub(a)
a = a + 1
response.Write a
end sub
main
%>

8
aspclassiccompiler/AspWebApp/byref2.asp Normal file
View file

@ -0,0 +1,8 @@
<%
sub mysub(byval a)
a = a + 1
response.Write a
end sub
mysub 5
%>

12
aspclassiccompiler/AspWebApp/call.asp Normal file
View file

@ -0,0 +1,12 @@
<html>
<head>
</head>
<body>
<%
Response.Write("Something")
Response.Write(1)
Response.Write " MORE"
Call Response.Write(" CALL ")
%>
</body>
</html>

34
aspclassiccompiler/AspWebApp/components/AdRotator.asp Normal file
View file

@ -0,0 +1,34 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Ad Rotator Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Ad Rotator Sample</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<%
Dim objAd
Set objAd = Server.CreateObject("MSWC.AdRotator")
%>
<%= objAd.GetAdvertisement("adrot.txt") %>
<A HREF="AdRotator_VBScript.asp"> Revisit Page </A>
</BODY>
</HTML>

170
aspclassiccompiler/AspWebApp/components/BrowserCap.asp Normal file
View file

@ -0,0 +1,170 @@
<% @ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Buffer=TRue %>
<% Response.Expires=-1 %>
<!--METADATA TYPE="Cookie" NAME="BrowsCap" SRC="clientCap.htm"-->
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Using the Browser Capabilities Component</TITLE>
</HEAD>
<BODY>
<H2>Using the Browser Capabilities Component</H2>
<HR SIZE="1" COLOR="#000000">
<%
Dim objBrowsCap
Set objBrowsCap = Server.CreateObject("MSWC.BrowserType")
%>
<TABLE border>
<TR>
<TH>Cap Name</TH>
<TH>Value</TH>
</TR>
<TR>
<TD>browser</TD>
<TD> <% = objBrowsCap.browser %></TD>
</TR>
<TR>
<TD>version</TD>
<TD> <% = objBrowsCap.version %></TD>
</TR>
<TR>
<TD>cookies</TD>
<TD> <% = objBrowsCap.cookies %></TD>
</TR>
<TR><TD>javaapplets</TD>
<TD><% = objBrowsCap.javaapplets %></TD>
</TR>
<TR>
<TD>VBScript</TD>
<TD><% = objBrowsCap.VBScript %></TD>
</TR>
<TR>
<TD>JavaScript</TD>
<TD><%=objBrowsCap.JavaScript%></TD>
</TR>
<TR>
<TD>platform</TD>
<TD><% = objBrowsCap.platform %></TD>
</TR>
<% If objBrowsCap.browser = "IE" and objBrowsCap.version >4 then %>
<TR>
<TD COLSPAN=2> <strong>New Feature for IE5 </strong></TD>
</TR>
<TR>
<TD>horizontal resolution</TD>
<TD><% = objBrowsCap.width %></TD>
</TR>
<TR>
<TD>vertical resolution</TD>
<TD><% = objBrowsCap.height %></TD>
</TR>
<TR>
<TD>availHeight</TD>
<TD><% = objBrowsCap.availHeight %></TD>
</TR>
<TR>
<TD>availWidth</TD>
<TD><% = objBrowsCap.availWidth %></TD>
</TR>
<TR>
<TD>Buffer Depth</TD>
<TD><% = objBrowsCap.bufferDepth %></TD>
</TR>
<TR>
<TD>Color Depth</TD>
<TD><% = objBrowsCap.colorDepth %></TD>
</TR>
<TR>
<TD>Java enabled ?</TD>
<TD><% = objBrowsCap.javaEnabled %></TD>
</TR>
<TR>
<TD>cpu Class</TD>
<TD><% = objBrowsCap.cpuClass %></TD>
</TR>
<TR>
<TD>system Language</TD>
<TD><% = objBrowsCap.systemLanguage %></TD>
</TR>
<TR>
<TD>user Language</TD>
<TD><% = objBrowsCap.userLanguage %></TD>
</TR>
<TR>
<TD>connectionType (lan, modem, offline)</TD>
<TD><% = objBrowsCap.connectionType %></TD>
</TR>
<TR>
<TD>Is Java installed ?</TD>
<TD><% = objBrowsCap.Java%></TD>
</TR>
<TR>
<TD>MSJava version</TD>
<TD><% = objBrowsCap.javaVersion%></TD>
</TR>
<TR>
<TD>Is MSJava version equal to "5,0,3016,0" ?</TD>
<TD><% = objBrowsCap.compVersion%></TD>
</TR>
<% End if %>
</TABLE>
</BODY>
</HTML>

48
aspclassiccompiler/AspWebApp/components/CDO.Asp Normal file
View file

@ -0,0 +1,48 @@
<%@ Language = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>CDO Component</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>CDO Component</B></FONT>
<P>This sample demonstrates how to use the Collaboration
Data Objects for NTS Component to send a simple
e-mail message.
<P>To actually send the message, you must have the SMTP
Server that comes with the Windows NT Option Pack Installed.
<%
Dim objMyMail
Set objMyMail = Server.CreateObject("CDONTS.NewMail")
'For demonstration purposes, both From and To
'properties are set to the same address.
objMyMail.From = "someone@Microsoft.com"
objMyMail.To = "someone@Microsoft.com"
objMyMail.Subject = "Sample"
objMyMail.Body = "I hope you like the sample"
'Send the message
objMyMail.Send
%>
</BODY>
</HTML>

46
aspclassiccompiler/AspWebApp/components/ContentRotator.Asp Normal file
View file

@ -0,0 +1,46 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<%
'Make sure that the client-browser doesn't cache.
Response.Expires = 0
%>
<HTML>
<HEAD>
<TITLE>Content Rotator Sample</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Content Rotator Sample</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<%
Dim objContRot
Set objContRot = Server.CreateObject("MSWC.ContentRotator")
'Specify the file that has the content.
Response.Write(objContRot.ChooseContent("tiprot.txt"))
%>
<HR SIZE="1" COLOR="#000000">
<A HREF="ContentRotator_VBScript.asp">Refresh (You may have to do this several times)</A>
</BODY>
</HTML>

15
aspclassiccompiler/AspWebApp/components/Counters/Docs/Contents.Htm Normal file
View file

@ -0,0 +1,15 @@
<HTML><HEAD><TITLE>Contents</TITLE><BASE TARGET="TEXT"></HEAD>
<BODY BGCOLOR="#FFFFFF">
<TABLE><TR><TD NOWRAP><FONT FACE="ARIAL,HELVETICA" SIZE=2>
<OL>
Counters Component<BR>
<OL>
<A HREF="counter1.htm">Counters Component</A><BR>
<A HREF="counter2.htm">Get method</A><BR>
<A HREF="counter3.htm">Increment method</A><BR>
<A HREF="counter4.htm">Remove method</A><BR>
<a href="counter5.htm">Set method</a><BR>
</OL>
</OL>
</FONT></TABLE>
</BODY></HTML>

143
aspclassiccompiler/AspWebApp/components/Counters/Docs/Counter1.Htm Normal file
View file

@ -0,0 +1,143 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Counters Component</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_counters_component"></a>Counters Component</h1>
<p>The Counter component creates a <b>Counters </b>object that can create, store,
increment, and retrieve any number of individual counters. </p>
<p>A counter is a persistent value that contains an integer. You can manipulate a counter
with the <b>Get</b>, <b>Increment</b>, <b>Set</b>, and <b>Remove </b>methods of the <b>Counters
</b>object. Once you create the counter, it persists until you remove it.</p>
<p>Counters do not automatically increment on an event like a page hit. You must manually
set or increment counters using the <a href="counter5.htm"><b>Set</b></a> and <a
href="counter3.htm"><b>Increment</b></a> methods.</p>
<p>Counters are not limited in scope. Once you create a counter, any page on your site can
retrieve or manipulate its value. For example, if you increment and display a counter
named <i>hits</i> in a page called Page1.asp, and you increment <i>hits</i> in another
page called Page2.asp, both pages will increment the same counter. If you hit Page1.asp,
and increment <i>hits</i> to 34, hitting Page2.asp will increment <i>hits</i> to 35. The
next time you hit Page1.asp, <i>hits</i> will increment to 36.</p>
<p>All counters are stored in a single text file, Counters.txt, which is located in the
same directory as the Counters<i>.</i>dll file. </p>
<h2>File Names</h2>
<table>
<tr valign="top">
<td>Counters.dll</td>
<td>The Counters component.</td>
</tr>
<tr valign="top">
<td>Counters.txt</td>
<td>The file that stores all individual counters on a site. Counters.txt is a UTF8-encoded
file. You can have any Unicode characters in a counter name. </td>
</tr>
</table>
<p><br>
</p>
<h2>Syntax</h2>
<p>Create the <b>Counters</b> object one time on your server by adding the following to
the Global.asa file:</p>
<pre><b>&lt;OBJECT
RUNAT=Server
SCOPE=Application
ID=Counter
PROGID=&quot;MSWC.Counters&quot;&gt;
&lt;/OBJECT&gt;</b></pre>
<h2>Registry Entries</h2>
<p>None.</p>
<h2>Remarks</h2>
<p>Only create one <b>Counters </b>object in your site. This single <b>Counters </b>object
can create any number of individual counters. </p>
<p><b>Note</b> For Personal Web Server on Windows 95, a Counters component has already
been specified in the Global.asa file in the default virtual directory. You can work with
the <b>Counters </b>object the component creates as if it were a built-in object by
calling <b>Counters.Get</b>, <b>Counters.Increment</b>, <b>Counters.Remove</b>, and <b>Counters.Set</b>. You should not create another instance of the <b>Counters </b>object. </p>
<h2>Methods </h2>
<table>
<tr valign="top">
<td><a href="counter2.htm"><b>Get</b></a> </td>
<td>Returns the value of the counter. </td>
</tr>
<tr valign="top">
<td><a href="counter3.htm"><b>Increment</b></a> </td>
<td>Increases the counter by 1.</td>
</tr>
<tr valign="top">
<td><a href="counter4.htm"><b>Remove</b></a> </td>
<td>Removes the counter from the Counters.txt file. </td>
</tr>
<tr valign="top">
<td><a href="counter5.htm"><b>Set</b></a> </td>
<td>Sets the value of the counter to a specific integer. </td>
</tr>
</table>
<p><br>
</p>
<h2>Example</h2>
<p>Create an instance of the <b>Counters </b>object in the Global.asa file with the ID
attribute set to <code>Counter</code>: </p>
<pre>&lt;OBJECT RUNAT=Server SCOPE=Application ID=Counter PROGID=&quot;MSWC.Counters&quot;&gt; &lt;/OBJECT&gt;
</pre>
<p>You can then use that <b>Counters </b>object on one page to create all the counters you
need:</p>
<pre>There have been &lt;%= Counter.Increment('defaultPageHits') %&gt; to this site.
</pre>
<p>Then on another page you can increment the counter in the following manner:</p>
<pre>You are visitor number&lt;%= Counter.Increment('LinksPageHits') %&gt; to this page.
</pre>
</font>
</body>
</html>

85
aspclassiccompiler/AspWebApp/components/Counters/Docs/Counter2.Htm Normal file
View file

@ -0,0 +1,85 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Get</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_get"></a>Get</h1>
<p>The <b>Get </b>method takes the name of a counter and returns the current value of the
counter. If the counter doesn't exist, the method creates it and sets it to 0.</p>
<h2>Syntax</h2>
<pre><b>Counters.Get</b>(<i>CounterName</i>)
</pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.</dd>
</dl>
<h2>Example</h2>
<p>Display the value a counter with <code>&lt;%= Counters.Get(<i>CounterName</i>) %&gt;</code>.
Assign the value of the counter to a variable with <code>&lt;% countervar = Counters.Get(<i>CounterName</i>)
%&gt;</code>. </p>
<p>The following script displays the vote tally from a poll about favorite colors. </p>
<pre>&lt;% If colornumber = &quot;1&quot; Then
Counters.Increment(&quot;greencounter&quot;)
Else
If colornumber = &quot;2&quot; Then
Counters.Increment(&quot;bluecounter&quot;)
Else
If colornumber = &quot;0&quot; Then
Counters.Increment(&quot;redcounter&quot;)
End If
End If
End If %&gt;
&lt;P&gt;Current vote tally:
&lt;P&gt;red: &lt;% =Counters.Get(&quot;redcounter&quot;) %&gt;
&lt;P&gt;green: &lt;% = Counters.Get(&quot;greencounter&quot;) %&gt;
&lt;P&gt;blue: &lt;% = Counters.Get(&quot;bluecounter&quot;) %&gt;
</pre>
<h2>Applies To</h2>
<p>Counters component</p>
<h2>See Also</h2>
<p><a href="counter3.htm"><b>Increment</b></a>, <a href="counter4.htm"><b>Remove</b></a>, <a
href="counter5.htm"><b>Set</b></a> </p>
</font>
</body>
</html>

78
aspclassiccompiler/AspWebApp/components/Counters/Docs/Counter3.Htm Normal file
View file

@ -0,0 +1,78 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Increment</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_increment"></a>Increment</h1>
<p>The <b>Increment</b> method takes the name of a counter, adds 1 to the current value of
the counter, and returns the counter's new value. If the counter doesn't exist, the method
creates it and sets its value to 1.</p>
<h2>Syntax</h2>
<pre><b>Counters.Increment</b>(<i>CounterName</i>)
</pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.</dd>
</dl>
<h2>Example</h2>
<p>Increment the value of a counter with <code>&lt;% Counters.Increment(<i>CounterName</i>)
%&gt;</code>. Increment and display the value of a counter with <code>&lt;%=
Counters.Increment(<i>CounterName</i>) %&gt;</code>. </p>
<p>To retrieve the value of a counter, use <b>Counters.Get</b>. To set a counter to a
specific value, use <b>Counters.Set</b>. </p>
<p>The following code implements a one-line page-hit counter. </p>
<pre>&lt;P&gt;There have been &lt;%= Counters.Increment(&quot;hits&quot;) %&gt; visits to this Web page. &lt;/P&gt;
</pre>
<p>In this example, <b>Counters.Increment </b>increases the counter by one each time the
client requests the page from the server. </p>
<h2>Applies To</h2>
<p>Counters component</p>
<h2>See Also</h2>
<p><a href="counter2.htm"><b>Get</b></a>, <a href="counter4.htm"><b>Remove</b></a>, <a
href="counter5.htm"><b>Set</b></a> </p>
</font>
</body>
</html>

68
aspclassiccompiler/AspWebApp/components/Counters/Docs/Counter4.Htm Normal file
View file

@ -0,0 +1,68 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Remove</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_remove"></a>Remove</h1>
<p>The <b>Remove </b>method takes the name of a counter, removes the counter from the
Counters object, and deletes the counter from the Counters.txt file.</p>
<h2>Syntax</h2>
<pre><b>Counters.Remove(</b><i>CounterName</i><b>)
</b></pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.</dd>
</dl>
<h2>Example</h2>
<p>The following code removes the counter <code>hitscounter </code>from the Counters.txt
file. </p>
<pre>&lt;% Counters.Remove(hitscounter) %&gt;
</pre>
<h2>Applies To</h2>
<p>Counters component</p>
<h2>See Also</h2>
<p><a href="counter2.htm"><b>Get</b></a>, <a href="counter3.htm"><b>Increment</b></a>, <a
href="counter5.htm"><b>Set</b></a> </p>
</font>
</body>
</html>

74
aspclassiccompiler/AspWebApp/components/Counters/Docs/Counter5.Htm Normal file
View file

@ -0,0 +1,74 @@
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=Windows-1252">
<title>Set</title>
<script language="JavaScript">
szNavVersion = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer") {
if (szNavVersion.indexOf ("4.") >= 0) {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
} else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
}
else if (navigator.appName == "Netscape") {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie4.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/spidie3.css">');
}
</script>
<meta NAME="DESCRIPTION" CONTENT="Internet Information Server reference information">
</head>
<body BGCOLOR="#FFFFFF" TEXT="#000000">
<font face="Verdana, Arial, Helvetica">
<h1><a name="_set"></a>Set</h1>
<p>The <b>Set </b>method takes the name of a counter and an integer, sets the counter to
the value of the integer, and returns the new value. If the counter doesn't exist, <b>Counters.Set
</b>creates it and sets it to the value of the integer.</p>
<p>To retrieve the value of a counter, use <b>Counters.Get</b>. To increment a counter by
1, use <b>Counters.Increment</b>. </p>
<h2>Syntax</h2>
<pre><b>Counters.Set</b>(<i>CounterName</i>, <i>int</i>)
</pre>
<h2>Parameters</h2>
<dl>
<dt><i>CounterName</i></dt>
<dd>A string containing the name of the counter.<br>
</dd>
<dt><i>int</i></dt>
<dd>The new integer value for <i>CounterName</i>.</dd>
</dl>
<h2>Example</h2>
<p>The following code resets the hit counter <code>pageHits </code>to 0: </p>
<pre>&lt;% Counters.Set(pageHits, 0) %&gt;
</pre>
<h2>Applies To</h2>
<p>Counter component</p>
<h2>See Also</h2>
<p><a href="counter2.htm"><b>Get</b></a>, <a href="counter3.htm"><b>Increment</b></a>, <a
href="counter4.htm"><b>Remove</b></a> </p>
</font>
</body>
</html>

16
aspclassiccompiler/AspWebApp/components/Counters/Docs/Default.Htm Normal file
View file

@ -0,0 +1,16 @@
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<head>
<title>Counters Component</title>
</head>
<frameset FRAMEBORDER="1" FRAMESPACING="1" cols="320,*">
<frame SRC="contents.htm" name="TOC" scrolling="auto" target="TEXT">
<frame SRC="counter1.htm" name="TEXT" scrolling="auto">
<noframes>
<body>
</body>
</noframes>
</frameset>
</html>

33
aspclassiccompiler/AspWebApp/components/Counters/Sample/Counters_JScript.Asp Normal file
View file

@ -0,0 +1,33 @@
<%@ LANGUAGE="JSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<h2>Demo of the Counters ASP Component</h2>
<%
var ObjCounter;
var nCount;
try
{
ObjCounter = Application("MSCounters");
nCount = ObjCounter.Increment("NoOfHits") ;
}
catch (err)
{
Response.Write ("<P>Error: Could not get the instance of the Counters Object.<br> Error Code:" + err.errCode );
Response.End();
}
Response.Write ("<h4><P>There have been <font color=RED>"+ nCount + "</font> visits to this Web page. Refresh this page to increment <br>the counter.</h4>");
%>
</BODY>
</HTML>

31
aspclassiccompiler/AspWebApp/components/Counters/Sample/Counters_VBScript.Asp Normal file
View file

@ -0,0 +1,31 @@
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BODY>
<h2>Demo of the Counters ASP Component</h2>
<%
On Error Resume Next
Dim ObjCounter
Dim nCount
Set ObjCounter = Application("MSCounters")
nCount = ObjCounter.Increment("NoOfHits")
If (Err <> 0) then
Response.Write ("<P>Error: Could not get the instance of the Counters Object.<br> Error Code:" + CStr(nErr) )
Else
Response.Write ("<h4><P>There have been <font color=RED>"+ CStr(nCount) + "</font> visits to this Web page. Refresh this page to increment <br>the counter.</h4>")
End If
%>
</BODY>
</HTML>

41
aspclassiccompiler/AspWebApp/components/Counters/Sample/Global.Asa Normal file
View file

@ -0,0 +1,41 @@
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Option Explicit
Sub Application_OnStart
On Error Resume Next
Dim ObjCounter
Dim strCounter
strCounter = "NoOfHits"
Application("CounterName") = strCounter
Set ObjCounter = Server.CreateObject("MSWC.Counters")
If (Err <> 0) Then
Application("IsErr" ) = Err.Number
Else
Call ObjCounter.Set(strCounter, 1 )
Set Application("MSCounters") = ObjCounter
Application("IsErr") = 0
End If
Err.Clear
End Sub
Sub Application_OnEnd
On Error Resume Next
Application("IsErr") = Nothing
Application("MSCounters") = Nothing
End Sub
Sub Session_OnStart
Err = 0
End Sub
Sub Session_OnEnd
Err = 0
End Sub
</SCRIPT>

2
aspclassiccompiler/AspWebApp/components/Counters/TOURL.Htm Normal file
View file

@ -0,0 +1,2 @@
<meta http-equiv="Refresh"
content="0; URL=http://localhost/Counters/Counters.asp">

68
aspclassiccompiler/AspWebApp/components/FileSystem.Asp Normal file
View file

@ -0,0 +1,68 @@
<%@ Language = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<%
'Define constants.
Const FORREADING = 1
Const FORWRITING = 2
Const FORAPPENDING = 8
%>
<HTML>
<HEAD>
<TITLE>FileSystem Component</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>FileSystem Component</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<%
Dim curDir
Dim objScriptObject, objMyFile
Dim x
'Map current path to physical path.
curDir = Server.MapPath("/components")
'Create FileSytemObject component.
Set objScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and write to a file.
Set objMyFile = objScriptObject.CreateTextFile(curDir + "\" + "MyTextFile.txt", FORWRITING)
For x = 1 to 5
objMyFile.WriteLine "Line number " & x & " was written on " & now & "<br>"
Next
objMyfile.Close
%>
<%
'Read from file and output to screen.
Set objMyFile = objScriptObject.OpenTextFile(curDir + "\" + "MyTextFile.txt", FORREADING)
Response.Write objMyFile.ReadAll
%>
</BODY>
</HTML>

5
aspclassiccompiler/AspWebApp/components/MyTextFile.txt Normal file
View file

@ -0,0 +1,5 @@
Line number 1 was written on 10/8/2009 10:16:20 PM<br>
Line number 2 was written on 10/8/2009 10:16:20 PM<br>
Line number 3 was written on 10/8/2009 10:16:20 PM<br>
Line number 4 was written on 10/8/2009 10:16:20 PM<br>
Line number 5 was written on 10/8/2009 10:16:20 PM<br>

38
aspclassiccompiler/AspWebApp/components/PermissionCheck.Asp Normal file
View file

@ -0,0 +1,38 @@
<%@ Language = VBScript%>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Permission Checker</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Permission Checker</B></FONT><BR>
<%
'Instantiate Permission Checker Component.
Dim objPermCheck
Set objPermCheck = Server.CreateObject("MSWC.PermissionChecker")
%>
<P>Verify current user's access to a sample file:
<P>Using Physical Path =
<%= objPermCheck.HasAccess(".\PermissionCheck_VBScript.asp") %> <BR>
<P>Using Virtual Path =
<%= objPermCheck.HasAccess("/iissamples/sdk/asp/components/PermissionCheck_VBScript.asp") %>
</BODY>
</HTML>

12
aspclassiccompiler/AspWebApp/components/Tiprot.Txt Normal file
View file

@ -0,0 +1,12 @@
%% #1
Don't run with scissors.
%% #1
%% // Additional line of comments
%% // Yet another line of comments
<FONT FACE="ARIAL,HELVETICA" SIZE="2">
Let a <h1>smile</h1> be your umbrella.
</FONT>
%% #1
<IMG SRC="nts_iis.gif">

96
aspclassiccompiler/AspWebApp/components/Tools.Asp Normal file
View file

@ -0,0 +1,96 @@
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!*************************
This sample is provided for educational purposes only. It is not intended to be
used in a production environment, has not been tested in a production environment,
and Microsoft will not provide technical support for it.
*************************>
<HTML>
<HEAD>
<TITLE>Tools Component</TITLE>
</HEAD>
<BODY BGCOLOR="White" TOPMARGIN="10" LEFTMARGIN="10">
<!-- Display header. -->
<FONT SIZE="4" FACE="ARIAL, HELVETICA">
<B>Tools Component</B></FONT><BR>
<HR SIZE="1" COLOR="#000000">
<%
Dim objTools
Dim FoundFile, blnFileExists, blnFileDoesNotExist, NotFoundFile
Dim intRand, intRandPos, intRandBelow
'Create the Tools Object
Set objTools = Server.CreateObject("MSWC.Tools")
%>
<H3> FileExists Example </H3>
<%
FoundFile = "Tools_VBScript.asp"
NotFoundFile = "blah.asp"
'Check if file exists.
blnFileExists = objTools.FileExists(FoundFile)
'Output response appropriately.
If (blnFileExists) Then
Response.Write "The File " & FoundFile & " Exists<BR>"
Else
Response.Write "The File " & FoundFile & " Does Not Exist<BR>"
End If
'Check if file exists.
blnFileDoesNotExist = objTools.FileExists(NotFoundFile)
'Output response appropriately.
If (blnFileDoesNotExist) Then
Response.Write "The File " & NotFoundFile & " Exists"
Else
Response.write "The File " & NotFoundFile & " Does Not Exist"
End If
%>
<H3> Random Integer Example </H3>
<%
'Random integer.
intRand = objTools.Random
Response.Write "Random integer: "
Response.Write intRand
Response.Write "<BR>"
'Positive random integer.
intRandPos = Abs( objTools.Random )
Response.Write "Positive random integer: "
Response.Write intRandPos
Response.Write "<BR>"
'Positive random integer between 0 and 100.
intRandBelow = Abs( objTools.Random ) Mod 100
Response.write "Random integer below 100: "
Response.write intRandBelow
Response.write "<BR>"
%>
</BODY>
</HTML>

14
aspclassiccompiler/AspWebApp/components/adrot.txt Normal file
View file

@ -0,0 +1,14 @@
Redirect www.microsoft.com
width 88
height 31
border 1
*
nts_iis.gif
http://www.microsoft.com/ntserver/web/default.asp
Microsoft Internet Information Services
80
ie.gif
-
Microsoft Internet Explorer
20

74
aspclassiccompiler/AspWebApp/components/clientcap.htm Normal file
View file

@ -0,0 +1,74 @@
<HTML xmlns:MSIE="http://www.microsoft.com/ie">
<HEAD>
<STYLE>
@media all
{
MSIE\:CLIENTCAPS {behavior:url(#default#clientcaps)}
}
</STYLE>
</HEAD>
<BODY onload="GetBrowsCap()">
<MSIE:CLIENTCAPS ID="idClCap" />
<SCRIPT language="JavaScript">
<!--
function GetBrowsCap()
{
//The Width is the horizontal resolution of the screen, in pixels. The number should match the first number in the screen //resolution that you have set in your display settings. For example, if your screen resolution is 1152 x 864, the number //returned should be 1152.
bcString = "width=" + idClCap.width;
//The Height is the vertical resolution of the screen, in pixels. The number should match the second number in the screen //resolution that you have set in your display settings. For example, if your screen resolution is 1152 x 864, the number //returned should be 864.
bcString += "&height=" + idClCap.height;
//The available height is the height of the working area of the system's screen, in pixels, excluding the taskbar.
bcString += "&availHeight=" + idClCap.availHeight;
//The available width is the width of the working area of the system's screen, in pixels, excluding the taskbar.
bcString += "&availWidth=" + idClCap.availWidth;
//The Buffer Depth is the number of bits per pixel used for colors on the off-screen bitmap buffer.
bcString += "&bufferDepth=" + idClCap.bufferDepth;
//The Color Depth is the number of bits per pixel used for colors on the destination device or buffer. The number should //match what you set in your Display settings, for example if you set your display to 16 bit, the number returned should be //16.
bcString += "&colorDepth=" + idClCap.colorDepth;
//Java Enabled specifies whether Java is enabled or disabled in the browser.
bcString += "&javaEnabled=" + idClCap.javaEnabled;
//CPU Class specifies the type of CPU of the client computer.
bcString += "&cpuClass=" + idClCap.cpuClass;
//The System Language is the language that the system is running. For example if you are running the English version of //Windows 95, then the value returned should be english.
bcString += "&systemLanguage="+ idClCap.systemLanguage;
//The User Language is the language that the current user is running. For example, if you have your language settings set to //English, then the value returned is En.
bcString += "&userLanguage=" + idClCap.userLanguage;
//Platform specifies the platform on which the browser is running.
bcString += "&platform=" + idClCap.platform;
//Connection Type specifies the type of internet connection currently in use.
bcString += "&connectionType=" + idClCap.connectionType;
//This will query the client machine to find out if the JavaVM is installed or not.
bcString += "&Java=" + idClCap.isComponentInstalled("{08B0E5C0-4FCB-11CF-AAA5-00401C608500}","ComponentID");
//get the version for java
var java_version;
var comp_version;
java_version = idClCap.getComponentVersion("{08B0E5C0-4FCB-11CF-AAA5-00401C608500}", "componentid");
//This will compare the version number of Java installed on the machine to the given version number.
comp_version=idClCap.compareVersions(java_version,"5,0,3016,0");
bcString += "&javaVersion=" + java_version;
bcString += "&compVersion=" + (comp_version == 0 ? "True" : "False");
document.cookie = "BrowsCap=" + bcString;
}
-->
</SCRIPT>
</BODY></HTML>

BIN
aspclassiccompiler/AspWebApp/components/ie.gif Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 8.4 KiB

BIN
aspclassiccompiler/AspWebApp/components/nts_iis.gif Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 6.2 KiB

11
aspclassiccompiler/AspWebApp/datatypes.asp Normal file
View file

@ -0,0 +1,11 @@
<html>
<head>
</head>
<body>
Vartype of 123456 is <%=VarType(123456) %><BR/>
Vartype of .23456 is <%=VarType(.23456) %><BR/>
VarType of <%=Server.HtmlEncode("&hFFFFFF")%> is <%=VarType(&hFFFFFF) %><BR/>
VarType of 1.23e-3 is <%=VarType(1.23e-3)%><BR/>
VarType of #12/21/1999# is <%=VarType(#12/21/1999#)%><BR/>
</body>
</html>

25
aspclassiccompiler/AspWebApp/datetest.asp Normal file
View file

@ -0,0 +1,25 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title></title>
</head>
<body>
<%= WeekdayName(Weekday(DateSerial(1963, 11, 22))) %>
<%= WeekdayName(Weekday(DateSerial(1963, 10, 15))) %>
<%= WeekdayName(Weekday(DateSerial(1995, 6, 2))) %>
<%= WeekdayName(Weekday(DateSerial(1997, 5, 5))) %>
<%
setlocale(4100)
for i = 1 to 7
Response.Write(weekdayname(i) & "<BR/>")
next
%>
<%
for i = 1 to 12
Response.Write(monthname(i) & "<BR/>")
next
%>
<%=FormatDateTime(DateSerial(1997, 5, 5), 1) %>
<%=FormatCurrentcy(10000000) %>
</body>
</html>

48
aspclassiccompiler/AspWebApp/default.htm Normal file
View file

@ -0,0 +1,48 @@
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title></title>
</head>
<body>
<p>This project contains some ASP Classic Compiler Samples Pages</p>
<table>
<tr>
<td>Folder</td>
<td>File</td>
<td>Comments</td>
</tr>
<tr>
<td><a href="/components">Components</a></td>
<td></td>
<td>IIS 5 Platform SDK Sample. Need to install the COM components. Components like
BrowserCap will not work because it requires the COM+ comtext to accesses the
Request object. </td>
</tr>
<tr>
<td></td>
<td><a href="/components/FileSystem.asp">FileSystem.asp</a></td>
<td>Works without registering any component. Need to grant ASP worker process account read/write access to the directory.</td>
</tr>
<tr>
<td></td>
<td><a href="/components/Tools.asp">Tools.asp</a></td>
<td>Tested in Windows XP. Failed to register the component in Vista.</td>
</tr>
<tr>
<td><a href="/Database">Database</a></td>
<td></td>
<td>IIS 5 Platform SDK Sample. Some the Access samples tested. Make sure that the OLEDB provider is installed. Need read/write access to the access.mdb in the directory.</td>
</tr>
<tr>
<td><a href="/Database">Simple</a></td>
<td></td>
<td>IIS 5 Platform SDK Sample. All the samples tested.</td>
</tr>
<tr>
<td><a href="/test">test</a></td>
<td></td>
<td>Some small samples used during development.</td>
</tr>
</table>
</body>
</html>

18
aspclassiccompiler/AspWebApp/filter.asp Normal file
View file

@ -0,0 +1,18 @@
<html>
<head>
</head>
<body>
<%
Dim MyIndex
Dim MyArray (3)
MyArray(0) = "Sunday"
MyArray(1) = "Monday"
MyArray(2) = "Tuesday"
MyIndex = Filter(MyArray, "day") ' MyIndex(0) contains "Monday".
for each s in MyIndex
response.write s & "<BR/>"
next
%>
</body>
</html>

17
aspclassiccompiler/AspWebApp/forloop.asp Normal file
View file

@ -0,0 +1,17 @@
<%
option explicit
%>
<html>
<head>
</head>
<body>
<%
dim i
for i = 1 to 8
response.write i
next
response.write i
%>
</body>
</html>

24
aspclassiccompiler/AspWebApp/function.asp Normal file
View file

@ -0,0 +1,24 @@
<%
option explicit
%>
<html>
<head>
</head>
<body>
<%
sub printnum(n)
response.write n
for i = 1 to n
response.write i
next
end sub
dim i
printnum 5
%>
</body>
</html>

24
aspclassiccompiler/AspWebApp/if.asp Normal file
View file

@ -0,0 +1,24 @@
<%
option explicit
%>
<html>
<head>
</head>
<body>
<%
dim i, color
i = 3
if i = 1 then
color = "red"
elseif i = 2 then
color = "green"
elseif i = 3 then
color = "blue"
else
color = "blank"
end if
response.write color
%>
</body>
</html>

12
aspclassiccompiler/AspWebApp/literals.asp Normal file
View file

@ -0,0 +1,12 @@
<html>
<head>
</head>
<body>
Integer <%=123456 %><BR/>
Floating Point <%=.23456 %><BR/>
Hex <%=&hFFFFFF%><BR/>
Oct <%=&123456& %><BR/>
Exponent <%=1.23e-3%><BR/>
Date <%=#12/21/1999#%><BR/>
</body>
</html>

96
aspclassiccompiler/AspWebApp/obj/Debug/AspWebApp.csproj.FileListAbsolute.txt Normal file
View file

@ -0,0 +1,96 @@
E:\vbparser\VBParser80\AspWebApp\bin\AspWebApp.dll
E:\vbparser\VBParser80\AspWebApp\bin\AspWebApp.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.Asp.dll
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.dll
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.dll
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.dll
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.dll
E:\vbparser\VBParser80\AspWebApp\bin\Interop.ASPTypeLibrary.dll
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.dll
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.dll
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.xml
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.xml
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.Asp.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.xml
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.pdb
E:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.xml
E:\vbparser\VBParser80\AspWebApp\obj\Debug\ResolveAssemblyReference.cache
E:\vbparser\VBParser80\AspWebApp\obj\Debug\AspWebApp.dll
E:\vbparser\VBParser80\AspWebApp\obj\Debug\AspWebApp.pdb
I:\vbparser\VBParser80\AspWebApp\bin\AspWebApp.dll
I:\vbparser\VBParser80\AspWebApp\bin\AspWebApp.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.Asp.dll
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.dll
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.dll
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.dll
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.dll
I:\vbparser\VBParser80\AspWebApp\bin\Interop.ASPTypeLibrary.dll
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.dll
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.dll
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.xml
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.xml
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.Asp.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.xml
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.pdb
I:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.xml
I:\vbparser\VBParser80\AspWebApp\obj\Debug\ResolveAssemblyReference.cache
I:\vbparser\VBParser80\AspWebApp\obj\Debug\AspWebApp.dll
I:\vbparser\VBParser80\AspWebApp\obj\Debug\AspWebApp.pdb
G:\vbparser\VBParser80\AspWebApp\bin\AspWebApp.dll
G:\vbparser\VBParser80\AspWebApp\bin\AspWebApp.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.Asp.dll
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.dll
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.dll
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.dll
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.dll
G:\vbparser\VBParser80\AspWebApp\bin\Interop.ASPTypeLibrary.dll
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.dll
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.dll
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Dynamic.xml
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.xml
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.Asp.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Microsoft.Scripting.xml
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.pdb
G:\vbparser\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.xml
G:\vbparser\VBParser80\AspWebApp\obj\Debug\ResolveAssemblyReference.cache
G:\vbparser\VBParser80\AspWebApp\obj\Debug\AspWebApp.dll
G:\vbparser\VBParser80\AspWebApp\obj\Debug\AspWebApp.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\AspWebApp.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\AspWebApp.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.Asp.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Dynamic.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Interop.ASPTypeLibrary.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Dynamic.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Dynamic.xml
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.xml
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.Asp.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.xml
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.xml
F:\projects\dotnet35\VBParser80\AspWebApp\obj\Debug\ResolveAssemblyReference.cache
F:\projects\dotnet35\VBParser80\AspWebApp\obj\Debug\AspWebApp.dll
F:\projects\dotnet35\VBParser80\AspWebApp\obj\Debug\AspWebApp.pdb

BIN
aspclassiccompiler/AspWebApp/obj/Debug/AspWebApp.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/obj/Debug/AspWebApp.pdb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/obj/Debug/ResolveAssemblyReference.cache Normal file
View file

Binary file not shown.

24
aspclassiccompiler/AspWebApp/obj/Release/AspWebApp.csproj.FileListAbsolute.txt Normal file
View file

@ -0,0 +1,24 @@
F:\projects\dotnet35\VBParser80\AspWebApp\obj\Release\ResolveAssemblyReference.cache
F:\projects\dotnet35\VBParser80\AspWebApp\bin\AspWebApp.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\AspWebApp.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.Asp.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Dynamic.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Interop.ASPTypeLibrary.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.dll
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.ExtensionAttribute.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Dynamic.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Dynamic.xml
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBScript.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.Core.xml
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.Asp.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Microsoft.Scripting.xml
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.pdb
F:\projects\dotnet35\VBParser80\AspWebApp\bin\Dlrsoft.VBParser.xml
F:\projects\dotnet35\VBParser80\AspWebApp\obj\Release\AspWebApp.dll
F:\projects\dotnet35\VBParser80\AspWebApp\obj\Release\AspWebApp.pdb

BIN
aspclassiccompiler/AspWebApp/obj/Release/AspWebApp.dll Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/obj/Release/AspWebApp.pdb Normal file
View file

Binary file not shown.

BIN
aspclassiccompiler/AspWebApp/obj/Release/ResolveAssemblyReference.cache Normal file
View file

Binary file not shown.

40
aspclassiccompiler/AspWebApp/operators.asp Normal file
View file

@ -0,0 +1,40 @@
<html>
<head>
</head>
<body>
1 + "2" = <%=1 + "2"%><BR/>
"1" + "2" = <%="1" + "2"%><BR/>
1 + empty = <%=1 + empty%><BR/>
1 + null = <%=1 + null%><BR/>
Now + 1 = <%=Now + 1%><BR/>
1 + Now = <%=1 + Now%><BR/>
Now + Now = <%=Now + Now%><BR/>
True + True = <%=True + True%><BR/>
<BR/>
"2" - 1 = <%="2" - 1%><BR/>
"2" - "1" = <%="2" - "1"%><BR/>
Now - 1 = <%=Now - 1%><BR/>
1 - Now = <%=1 - Now%><BR/>
Now - (Now-7) = <%=Now - (Now-7)%><BR/>
True - True = <%=True - True%><BR/>
<BR/>
"2"/"1" = <%="2"/"1"%><BR/>
True/True = <%=True/True%><BR/>
Date/Date = <%=Date/Date%><BR/>
<BR/>
"True" and "True"=<%="True" and "True"%><BR/>
"true" and "True"=<%="true" and "True"%><BR/>
True and "True"=<%=True and "True"%><BR/>
True and "1"=<%=True and "1"%><BR/>
True and "-1"=<%=True and "-1"%><BR/>
"Yes" and "Yes"=Type mismatch<BR/>
1 and "True" = <%=1 and "True"%><BR/>
1.1 and "True" = <%=1.1 and "True"%><BR/>
<BR/>
2 <= "1" = <%=2 <= "1"%><BR/>
"1" <= "2" = <%="1" <= "2"%><BR/>
Empty <= 1 = <%=Empty < 1%><BR/>
Empty <= "1" = <%=Empty < "1"%><BR/>
Empty = Empty = <%=Empty = Empty%><BR/>
</body>
</html>

20
aspclassiccompiler/AspWebApp/perftest.asp Normal file
View file

@ -0,0 +1,20 @@
<%
option explicit
dim loops
dim counter
dim tickes
tickes = Timer()
loops = 10000000
counter = 0.0
while loops > 0
loops = loops - 1
counter = counter + 1.0
wend
Response.Write("DoLoop result " & counter & "<BR/>")
Response.Write("Executing the while loop took: " & ((Timer()-tickes) * 1000.0) & "ms" & "<BR/>")
%>

24
aspclassiccompiler/AspWebApp/perftest2.asp Normal file
View file

@ -0,0 +1,24 @@
<%
option explicit
perftest
sub perftest()
dim loops
dim counter
dim tickes
tickes = Timer()
loops = 10000000
counter = 0.0
while loops > 0
loops = loops - 1
counter = counter + 1.0
wend
Response.Write("DoLoop result " & counter & "<BR/>")
Response.Write("Executing the while loop took: " & ((Timer()-tickes) * 1000.0) & "ms" & "<BR/>")
end sub
%>

14
aspclassiccompiler/AspWebApp/servervars.asp Normal file
View file

@ -0,0 +1,14 @@
<html>
<head>
</head>
<body>
<%
url = Request.ServerVariables("HTTP_URL")
x = instr(1, url, "url=", 1)
if x > 0 then
url = Mid(url, x + 4)
end if
%>
<%=url%>
</body>
</html>

13
aspclassiccompiler/AspWebApp/test/BuiltinConstants.asp Normal file
View file

@ -0,0 +1,13 @@
<html>
<head>
</head>
<body>
<%=vbSunday %><BR/>
<%=vbMonday %><BR/>
<%=vbTuesday %><BR/>
<%=vbWednesday %><BR/>
<%=vbThursday %><BR/>
<%=vbFriday %><BR/>
<%=vbSaturday %><BR/>
</body>
</html>

15
aspclassiccompiler/AspWebApp/test/byref.asp Normal file
View file

@ -0,0 +1,15 @@
<%
sub main()
dim a
a = 2
mysub a
response.Write a
end sub
sub mysub(a)
a = a + 1
response.Write a
end sub
main
%>

8
aspclassiccompiler/AspWebApp/test/byref2.asp Normal file
View file

@ -0,0 +1,8 @@
<%
sub mysub(byval a)
a = a + 1
response.Write a
end sub
mysub 5
%>

Some files were not shown because too many files have changed in this diff Show more