Program 1. In fact, I now use is a relatively complete. Code See below:
2. Due to the need to write in two days (the whole site), the code is not beautiful, there is no err handle, optimize.
3. FileSystemObject can only use absolute paths. So you need MapPath method.
4. Microsoft Suminfo object supports only local files, not net use ...
5. But he has C + + source code, you can ...
6. I'm sorry that we can't share the whole site with you because it's on the intranet.
7. In order to be responsible for everyone, I read again this paragraph of six months ago code, good rotten. :-)
Gather and use 8. :-)
=================================
<%@ Language=vbscript%>
<%
' *********************************************************
' This file is written by
' kw copyright reserved. :-)
' If you are have any question, directly contacts w/me.
' Some features are just under construction ...
' *********************************************************
%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
<link rel= "stylesheet" type= "Text/css" href= "/css/mycss.css" >
</HEAD>
<BODY>
<script language=javascript>
<!--
function MouseMove ()
{
var srcelement;
Srcelement=window.event.srcelement;
{
Srcelement.classname = "Coolstyle";
}
}
function Mouseout ()
{
var srcelement;
Srcelement=window.event.srcelement;
{
Srcelement.classname = "Normalstyle";
}
}
-->
</SCRIPT>
<script Language=vbscript RUNAT = server>
' Virtual Root
Fileservername = "Fileserver"
VRoot = "/file"
' Get the "Files collection from current folder
Dim fs, F, F1, FC, S
Set fs = CreateObject ("Scripting.FileSystemObject")
' Begin of Function-to get path info from external
' Get Path parameter from external
spath = Request ("spath")
if (spath = "" or spath = ".") Then
spath = "."
Response.Write "<table class = Tablefilename border=0 width= ' 100% ' >"
Response.Write "<tr align=center>"
shellostring = "Hi, guy, I didn ' t get correct path info, so I can only show you the current folder"
Response.Write "<TD>" & shellostring & "</TD></TR></TABLE>"
End If
' Merge absolute path
Sabpath = Server. MapPath (".") & "/" & Spath
Set F = fs. GetFolder (Sabpath)
' End of function-to get path info from external
Set FC = F.files
' Create Suminfo Object
Dim suminfo
Set suminfo = Server.CreateObject ("Iissample.summaryinfo")
' Which kinds of document should be displayed?
'
bdocchecked = Request.Form ("Doc")
bxdocchecked = Request ("Xdoc")
bpptchecked = Request.Form ("ppt")
bxpptchecked = Request ("Xppt")
bxlschecked = Request.Form ("xls")
bxxlschecked = Request ("Xxls")
btxtchecked = Request.Form ("TXT")
bxtxtchecked = Request ("Xtxt")
bzipchecked = Request.Form ("Zip")
bxzipchecked = Request ("Xzip")
&nb
