get the host name

November 14, 2008 by admin  
Filed under ASP net

get the host name in ASP.net

<%
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>")
%>

ASP.net file properties example

September 14, 2008 by admin  
Filed under ASP net

This ASP.net example shows various file properties

<%@Page Language=”VB” %> <br>
<%@ Import Namespace=”System.IO” %><br>
<script language=”VB” runat=”server”><br>
Sub Page_Load(sender as Object, e as EventArgs)<br>
Dim strFiles as String() <br>
Dim objFile as System.IO.FileInfo <br>
Dim i as integer <br>
strFiles = System.IO.Directory.GetFiles(Server.MapPath(”/”),”*.*”)<br>
for i = 0 to strFiles.Length - 1<br>
objFile = new System.IO.FileInfo(strFiles(i))<br>
Response.Write(”Name : ” & objFile.Name() & “<br>”)<br>
Response.Write(”Extension : ” & objFile.Extension() & “<br>”)<br>
Response.Write(”Length : ” & Cstr(objFile.Length) & “<br>”)<br>
Response.Write(”Creation Date : ” & Cstr(objFile.CreationTime) & “<br>”)<br>
Response.Write(”<br>”)<br>
next <br>
Response.End<br>
End Sub<br>
</script>

File properties using ASP.net

August 14, 2008 by admin  
Filed under ASP net

The following example will display various properties of a given file isung ASP.net

 

<%@Page Language=”VB” %>
<%@ Import Namespace=”System.IO” %>
<script language=”VB” runat=”server”>

Sub Page_Load(sender as Object, e as EventArgs)
Dim strFiles as String()
Dim objFile as System.IO.FileInfo
Dim i as integer
strFiles = System.IO.Directory.GetFiles(Server.MapPath(”/”),”*.*”)
for i = 0 to strFiles.Length - 1
objFile = new System.IO.FileInfo(strFiles(i))
Response.Write(”Name : ” & objFile.Name() & “<br>”)
Response.Write(”Extension : ” & objFile.Extension() & “<br>”)
Response.Write(”Length : ” & Cstr(objFile.Length) & “<br>”)
Response.Write(”Creation Date : ” & Cstr(objFile.CreationTime) & “<br>”)
Response.Write(”<br>”)
next
Response.End
End Sub
</script>