Clean up some unneeded items.

--HG--
extra : convert_revision : svn%3Aa83551a4-30f6-4d81-a974-c6ced450ddbf%4031400
This commit is contained in:
dotneteer 2009-11-05 05:21:23 +00:00
parent 27a2511b56
commit 061b99faac
19 changed files with 0 additions and 352 deletions

View file

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

View file

@ -1,16 +0,0 @@
<%@ 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>

View file

@ -1,17 +0,0 @@
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)
{
}
}
}

View file

@ -1,27 +0,0 @@
//------------------------------------------------------------------------------
// <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;
}
}

View file

@ -1,15 +0,0 @@
<%
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
%>

View file

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

View file

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

View file

@ -1,11 +0,0 @@
<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>

View file

@ -1,25 +0,0 @@
<!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>

View file

@ -1,18 +0,0 @@
<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>

View file

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

View file

@ -1,24 +0,0 @@
<%
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>

View file

@ -1,24 +0,0 @@
<%
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>

View file

@ -1,12 +0,0 @@
<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>

View file

@ -1,40 +0,0 @@
<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>

View file

@ -1,20 +0,0 @@
<%
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/>")
%>

View file

@ -1,24 +0,0 @@
<%
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
%>

View file

@ -1,14 +0,0 @@
<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>

View file

@ -1,15 +0,0 @@
<html>
<head>
</head>
<body>
<% with response %>
<%.Write vbSunday %><BR/>
<%.Write vbMonday %><BR/>
<%.Write vbTuesday %><BR/>
<%.Write vbWednesday %><BR/>
<%.Write vbThursday %><BR/>
<%.Write vbFriday %><BR/>
<%.Write vbSaturday %><BR/>
<% end with %>
</body>
</html>