|
|||||
|
This example will display the user agent. In other words information about the browser display the user agent <% If Not Request.UrlReferrer Is Nothing Then Response.Write("Referrer : " & Request.UrlReferrer.ToString() & "<br>") Else Response.Write("Referrer : no referrer<br>") End If Response.Write("User Agent : " & Request.UserAgent() & "<br>") %> Bookmark It get the host address get the host address <% If Not Request.UrlReferrer Is Nothing Then Response.Write("Referrer : " & Request.UrlReferrer.ToString() & "<br>") Else Response.Write("Referrer : no referrer<br>") End If Response.Write("Host Address is " & Request.UserHostAddress.ToString & "<br>") %> Bookmark It get the host name get the host name <% If Not Request.UrlReferrer Is Nothing Then Response.Write("Referrer : " & Request.UrlReferrer.ToString() & "<br>") Else Response.Write("Referrer : no referrer<br>") End If Response.Write("Host Name : " & Request.UserHostName & "<br>") %> Bookmark It This example creates a link in ASP.net Create a link <%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <script runat="server"> Sub Page_Load link1.Href="http://www.programmershelp.co.uk" link1.Target="_blank" link1.Title="Programmershelp" End Sub </script> </head> <body> <form runat="server"> <a id="link1" runat="server">Programmershelp</a> <br /> </form> </body> </html> Bookmark It This will display a button which when pressed will display a message underneath it Button example <script runat="server"> Sub button1(Source As Object Bookmark It Display an image Image display <script runat=server> Sub Page_Load(Sender As Object Bookmark It Send an email Email example <%@Page Explicit="False" Language="VB" Debug="True" %> <%@Import Namespace="System.Web.Mail" %> <% Dim EmailTo As String = "test@test.com" Dim EmailFrom As String = "myemail@myemail.com" Dim EmailSubject As String = "Sample Email" Dim EmailBody As String = "Test email" System.Web.Mail.SmtpMail.Send(EmailFrom Bookmark It Display various file properties of files in a folder File properties <%@Page Language="VB" %> <%@ Import Namespace="System.IO" %> <script language="VB" runat="server"> Sub Page_Load(sender as Object Bookmark It Random numbers Random number <script language="VB" runat="server"> Sub Page_Load(sender as Object Bookmark It A drawing example Drawing example <%@ Page Language="VB" ContentType="image/gif" %> <%@ Import Namespace="System.Drawing" %> <%@ Import Namespace="System.Drawing.Imaging" %> <Script Runat = "Server"> Sub Page_Load Dim objBitmap As Bitmap Dim objGraphics As Graphics objBitmap = New Bitmap(480 Bookmark It |
  |
||||
|
Copyright © 2010 Programmingsite : source code - All Rights Reserved |
|||||
