|
<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<%@ import Namespace="System.IO" %>
<%@ import Namespace="System.IO.IsolatedStorage" %>
<script runat="server">
Sub Button1_Click(sender As Object, e As EventArgs)
Dim Flnme as string = "Res" & cint((rnd()*100000) ) & ".aspx"
Dim ObjWr as new StreamWriter(Server.MapPath(Flnme) , true )
ObjWr.WriteLine("<%@ Page Language=""VB"" Debug=""true"" %>")
ObjWr.WriteLine("<%@ import Namespace=""System.Data"" %>")
ObjWr.WriteLine("<%@ import Namespace=""System.Data.OleDb"" %>")
ObjWr.WriteLine("<%@ import Namespace=""System.IO"" %>")
ObjWr.WriteLine("<%@ import Namespace=""System.IO.IsolatedStorage"" %>")
ObjWr.WriteLine("<script runat=""server"">")
ObjWr.WriteLine("sub Page_load(obj as Object, e as EventArgs)")
ObjWr.WriteLine("Dim x as Double =" & TextBox2.text)
ObjWr.WriteLine("Response.Write(" & TextBox1.text & ")")
ObjWr.WriteLine("Response.Write("" If x= "")")
ObjWr.WriteLine("Response.Write(" & TextBox2.text & ")")
ObjWr.WriteLine("End Sub")
ObjWr.WriteLine("<" & "/" & "script>")
ObjWr.WriteLine("<" & "body" & ">")
ObjWr.WriteLine( "Is the outcome of " & TextBox1.text )
ObjWr.WriteLine("<" & "body" & "/>")
ObjWr.close
Response.redirect(Flnme)
end sub
sub Page_load(obj as Object, e as EventArgs)
Response.Write( "Multi JIT activation sample")
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p>
Please enter Formula using "x" as parameter: For
</p>
<p>
<table style="WIDTH: 559px; HEIGHT: 150px" height="150" width="559">
<tbody>
<tr>
<td>
<font color="red">Expression</font></td>
<td>
<asp:TextBox id="TextBox1" runat="server" Width="329px"></asp:TextBox>
</td>
<td>
<strong>Example</strong>: Math.sin(x)
</td>
</tr>
<tr>
<td>
<font color="red">Seed</font></td>
<td>
X=
<asp:TextBox id="TextBox2" runat="server" Width="49px"></asp:TextBox>
<asp:Image id="Image2" runat="server" Width="200px" Height="22px" ImageUrl="arrow_stretch_left_md_wht.gif"></asp:Image>
</td>
<td>
<strong>Example</strong>: 3</td>
</tr>
<tr>
<td>
</td>
<td>
<div align="right">
<asp:Button id="Button1" onclick="Button1_Click" runat="server" Width="37px" Text="Go"></asp:Button>
</div>
</td>
<td>
Sin(3)=0.14...</td>
</tr>
<tr>
<td colspan="3">
<div align="right">
<asp:Image id="Image1" runat="server" ImageUrl="bean_on_a_computer_md_wht.gif"></asp:Image>
</div>
</td>
</tr>
</tbody>
</table>
<!-- Insert content here -->
</p>
</form>
</body>
</html>
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.
My Name is Luz Erez. Most of the projects I run are complex business and technologies high volume initiatives. I develop and deploy backbone systems in a variety of locations and industries.
I have been a member in 2 ANSI committees:
·IXRetail – defines a standard for internal back office devices using XML
·T20 - defines a single air interface standard with multiple sub-components for Real time Location Systems (RTLS) for use in asset management.
Main expertise: Complex business analysis and development (Finance, Retail, logistics) and Industrial computing.
Technologies: Win 32 / COM / .NET, Large Database and DWH, Web application, CAD, GIS, RF technologies.