ASP Source Code

ASP File: jscript/general/fileio/info.asp

 
   ASP Script
   Comments
   HTML and Text

<%@ language=jscript %>
<%//Response.expires=0%>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Developer Studio">

<title>Document Title</title>
</head>
<body>
<%
var fs
var fi
var dir1
var filename1
var content

var Attributes=""

var datecreated=""
var datelastaccessed=""
var datelastmodified=""
var drive=""
var name=""
var parentfolder=""
var path=""
var shortname=""
var shortpath=""
var size=""
var type1=""
 

 
var newline
newline="\n"
content="File Property are:"+newline
content =content +"Attributes: " +Attributes +newline
content = content +"DateCreated : " +datecreated +newline
content =content +"DateLastAccessed : " +datelastaccessed +newline
content =content +"DatelastModified : " +datelastmodified +newline
content =content +"Drive : " +drive +"\n"//newline
content =content +"Name : " +name +"\n"//newline
content =content +"ParentFolder : " +parentfolder +"\n"//newline
content =content +"Path : " +path +"\n"//newline
content =content +"ShortName : " +shortname +"\n"//newline
content =content +"ShortPath : " +shortpath +"\n"//newline
content =content +"Size : " +size +newline
content =content +"Type : " +type1+newline

 
   fs=Server.CreateObject("Scripting.FileSystemObject")
var tempvar

tempvar =new String (fs.GetFile(Server.MapPath("default.html")).ParentFolder )
  if (tempvar.indexOf("/") !=-1)
  dir1=tempvar.concat ("/")
else
  dir1=tempvar.concat ("\\")

  filename1="test.txt"

 
  if(Request.Form("dir").Count!=0)
          dir1 =Request.Form("dir")

  if(Request.Form("filename").Count!=0){
       filename1 =Request.Form("filename")
      //set fs =server.CreateObject("Scripting.FileSystemObject")

var fi =fs.GetFile(dir1+filename1)
Attributes = fi.Attributes
  datecreated =fi.Datecreated
datelastaccessed = fi.DateLastAccessed
  datelastmodified =fi.DatelastModified
  drive =fi.Drive
  name= fi.Name
  parentfolder=fi.ParentFolder
  path =fi.Path
  shortname=fi.ShortName
  shortpath=fi.ShortPath
  size=fi.Size
  type1=fi.Type
content= "FILE PROPERTIES ARE : " +newline
content =content +"Attributes : " +Attributes +newline
content =content +"DateCreated : " +datecreated +newline
content =content +"DateLastAccessed : " +datelastaccessed +newline
content =content +"DatelastModified : " +datelastmodified +newline
content =content +"Drive : " +drive +newline
content =content +"Name : " +name +newline
content =content +"ParentFolder : " +parentfolder +newline
content =content +"Path : " +path +newline
content =content +"ShortName : " +shortname +newline
content =content +"ShortPath : " +shortpath +newline
content =content +"Size : " +size +newline
content =content +"Type : " +type1 +newline

    
}
     
%>



<form name="Form1" Method="Post" Action="info.asp">
           <p>Directory : <input type="text" name="dir" cols="25" value="<%  = dir1 %>">
           <p>File Name : <input type="text" name="filename" cols="25" value="<%=filename1 %>">
          
           <p>File Property:<br> <textarea rows="10" name="Con" cols="40"><%=content %></textarea>
           <input type="button" name="ok" value="File Properties" onClick="Ok_OnClick(this.form)">
</form>
<hr>
<a href="infofolder.asp">Folder Property </a> <br>

<a href="default.html">Go Back </a>
<SCRIPT  Language="JavaScript">
function Ok_OnClick(form)
{
     
      form.submit();
}
</SCRIPT>

</body>
</html>