[Fork] [Fork] Home.aspx | C# Online Compiler

[Fork] [Fork] Home.aspx by Harsh padaye

Imports System
Imports System.ComponentModel.DataAnnotations

Namespace HelloWorldMvcApp

	Public Class SampleViewModel
			<Required> _
			<MinLength(10)> _
			<MaxLength(100)> _
			<Display(Name:="Ask Magic 8 Ball any question:")> _
			Public Property Question As String

			'See here for list of answers
			Public Property Answer As String

	End Class

End Namespace

Model

​x
 
Imports System
Imports System.ComponentModel.DataAnnotations
​
Namespace HelloWorldMvcApp
​
    Public Class SampleViewModel
            <Required> _
            <MinLength(10)> _
            <MaxLength(100)> _
            <Display(Name:="Ask Magic 8 Ball any question:")> _
            Public Property Question As String
​
            'See here for list of answers
            Public Property Answer As String
​
    End Class
​
End Namespace
​

<%@Page Language="C#" AutoEventWireup="true" CodeFile="HOME.aspx.cs" Inherits="HOME" %>
<!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>
<style type="text/css">
        .style1
        {
            font-family: "Arial Black";
            font-size: xx-large;
            color: #FF0000;
            background-color: white;
        }
        .style2
        {
            text-align: center;
        }
        .style3
        {
            font-family:"Arial Black";
            font-size:xx-large;
            background-color: white;
            text-align:. center;
        }
    </style>
<body>
    <form id="form1" runat="server">
    <div class="style1">
    </head>
       <br/>
     <hr>
<hr>
<hr>
<h1 align=center>WELCOME TO RSS</h1>
<hr>
<hr>
<table border=7>
<tr>
<td><h3>Customer</h3></td></tr>
<tr>
<td><h3>Staff</h3></td></tr>
<tr>
<td><h3>Scheduling</h3></td></tr>
<tr>
<td><h3>Identity<br>Provider</h3></td></tr>
<tr>
<td><h3>Add<br>Information</h3></td></tr>
<tr>
<td><h3>Stock</h3></td>/tr>
<asp:Button ID="txtSave" runat="server" Text="Save" onclick="txtSave_Click" /> </td> 
</tr> 
</table><br /> 
<asp:Label ID="Label1" runat="server" ForeColor="White" Text=" "><asp:Label> 
</form>
</body>
</html>

View

 
<%@Page Language="C#" AutoEventWireup="true" CodeFile="HOME.aspx.cs" Inherits="HOME" %>
<!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>
<style type="text/css">
        .style1
        {
            font-family: "Arial Black";
            font-size: xx-large;
            color: #FF0000;
            background-color: white;
        }
        .style2
        {
            text-align: center;
        }
        .style3
        {
            font-family:"Arial Black";
            font-size:xx-large;
            background-color: white;
            text-align:. center;
        }
    </style>
<body>
    <form id="form1" runat="server">
    <div class="style1">
    </head>
       <br/>
     <hr>
<hr>
<hr>
<h1 align=center>WELCOME TO RSS</h1>
<hr>
<hr>
<table border=7>
<tr>
<td><h3>Customer</h3></td></tr>
<tr>
<td><h3>Staff</h3></td></tr>
<tr>
<td><h3>Scheduling</h3></td></tr>
<tr>
<td><h3>Identity<br>Provider</h3></td></tr>
<tr>
<td><h3>Add<br>Information</h3></td></tr>
<tr>
<td><h3>Stock</h3></td>/tr>
<asp:Button ID="txtSave" runat="server" Text="Save" onclick="txtSave_Click" /> </td> 
</tr> 
</table><br /> 
<asp:Label ID="Label1" runat="server" ForeColor="White" Text=" "><asp:Label> 
</form>
</body>
</html>

Imports System
Imports System.Web.Mvc
Imports System.Collections.Generic

Namespace HelloWorldMvcApp
	Public Class HomeController
		Inherits System.Web.Mvc.Controller

		<HttpGet> _
		Function Index() As ActionResult
			Return View(New SampleViewModel)
		End Function

		<HttpPost> _
		Function GetAnswer(ByVal Question As String) As JsonResult
			Dim index As Integer = 1 + _rnd.Next(_db.Count)
			Dim answer = _db(index)
			Return Json(answer)
		End Function

		Private Shared _rnd As Random = New Random()

		Private Shared _db As List(Of String) = New List(Of String) From {"Yes", "No", "Definitely, yes", "I don't know", "Looks like, yes"}

	End Class
End Namespace

Controller

 
Imports System
Imports System.Web.Mvc
Imports System.Collections.Generic
​
Namespace HelloWorldMvcApp
    Public Class HomeController
        Inherits System.Web.Mvc.Controller
​
        <HttpGet> _
        Function Index() As ActionResult
            Return View(New SampleViewModel)
        End Function
​
        <HttpPost> _
        Function GetAnswer(ByVal Question As String) As JsonResult
            Dim index As Integer = 1 + _rnd.Next(_db.Count)
            Dim answer = _db(index)
            Return Json(answer)
        End Function
​
        Private Shared _rnd As Random = New Random()
​
        Private Shared _db As List(Of String) = New List(Of String) From {"Yes", "No", "Definitely, yes", "I don't know", "Looks like, yes"}
​
    End Class
End Namespace
​

View in Full Screen

Compilation error (line 0, col 0): Metadata file 'c:\LocalResources\NuGet\Packages\xunit.extensibility.core\2.4.1.0\lib\net452\xunit.core.dll' could not be found
Compilation error (line 0, col 0): Metadata file 'c:\LocalResources\NuGet\Packages\xunit.extensibility.core\2.4.1.0\lib\net452\xunit.runner.tdnet.dll' could not be found
Compilation error (line 0, col 0): Metadata file 'c:\LocalResources\NuGet\Packages\xunit.extensibility.core\2.4.1.0\lib\net452\xunit.runner.utility.net452.dll' could not be found

Last Run:	4:11:15 am
Compile:	0s
Execute:	0.157s
Memory:	0b
CPU:	0s

View IL Code