在线用户    站点地图 技术论坛 文档中心 站点导航 资源下载 语言参考 教程专题 站点统计 业务项目 使用帮助
您的位置
MSDN参考新加了CSS2参考,全中文,制作精良。245k下载。           新加了sxf_sxf推荐的"动态网页专家指导" 下载!          新加了lsg2002lsg推荐的"ASP.NET高级编程(PDF)" 下载!          新加了DHTML代码预览!!,功能强大哦!欢迎试用          新加了网友lincong为大家提供的SQL Server 2000 程序员指南,有点大,但同时也就说明内容全咯!           新加了网友ibra为大家提供的北大的JAVA课件,很适合初学者入门           新加了一个java的连接缓冲池代码示例           新加了人月神话电子版下载!软件工程巨著哦~~           更新了评分标准,引入了“专家分”概念,相信可以更好的激励大家的学习!详情请看“使用帮助”           新加了由网友GGG提供的“IIS超级管理手册”,值得一看哦!(虽然我没看过 :P )           新加了“英雄榜”,欢迎测试!           “无组件上传·从原理剖析到实践”已经全部完成,源码全部开放,有兴趣的朋友请到文档中心一探究竟。  您的位置  首页>技术论坛>ASP>F0013793 在同一窗口中打开页面中的链接 在新窗口中打开页面中的链接 将ASPCHINA设为首页 将ASPCHINA加入书签    
 LOGIN HERE
用户:
密码: 忘记密码
记住密码 用户注册 游客进入

论坛首页
|--web开发
   |--ASP
   |--JSP
   |--ASP.net
   |--DHTML
   |--RUBY
|--软件开发
   |--C++
      |--Code here
   |--JAVA
   |--VB
   |--Delphi
   |--XML
|--.net技术
   |--C#
   |--VB.net
|--Yup开发组
|--站务&投诉
   |--站长专区
|--硬件&网络
|--休息室
|--数据库技术
 进入精华区 我要发言



 如何在程序中实现改变文件的权限(比如将其改为只读)back to ASP forum  
作者:[gst_特烦恼的人],未注册用户分数:0
日期:2002/8/30 8:45:00类别:ASP, 技术问题
回复:7次浏览:1494次
状态:无分贴

在用asp设计的程序中,如何在程序中实现改变文件的权限(比如将其改为只读)??????    

reply[F0013793]
 



 
 re [1] 如何在程序中实现改变文件的权限(比如将其改为只读)ASP forum  
- miles02-08-30 09:11  

<%
Dim fso, f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile("c:\xxx.xxx")

' 判断当前是不是只读。
if not (f.attributes and 1) then
  f.attributes = f.attributes + 1
end if
%>


关键是最后一句。1代表readonly。其他的看下面:


Normal 0 Normal file. No attributes are set.
ReadOnly 1 Read-only file. Attribute is read/write.
Hidden 2 Hidden file. Attribute is read/write.
System 4 System file. Attribute is read/write.
Directory 16 Folder or directory. Attribute is read-only.
Archive 32 File has changed since last backup. Attribute is read/write.
Alias 1024 Link or shortcut. Attribute is read-only.
Compressed 2048 Compressed file. Attribute is read-only.

reply[F0013807]
 



 
 re [2] 如何在程序中实现改变文件的权限(比如将其改为只读)ASP forum  
- [gst_guest]02-09-11 11:11  

第一次来,这里真的很棒呀。miles下面这段能详细解释一下吗?多谢!!!

Normal 0 Normal file. No attributes are set.
ReadOnly 1 Read-only file. Attribute is read/write.
Hidden 2 Hidden file. Attribute is read/write.
System 4 System file. Attribute is read/write.
Directory 16 Folder or directory. Attribute is read-only.
Archive 32 File has changed since last backup. Attribute is read/write.
Alias 1024 Link or shortcut. Attribute is read-only.
Compressed 2048 Compressed file. Attribute is read-only.

reply[F0016317]
 



 
 re [3] 如何在程序中实现改变文件的权限(比如将其改为只读)ASP forum  
- miles02-09-11 11:28  

谢谢,呵呵

0-普通
1-只读
2-隐藏
4-系统
16-目录
32-存档
1024-快捷方式
2048-压缩

如果有多个,就加起来,例如,只读隐藏就是:
1+2=3

reply[F0016335]
 



 
 re [4] 如何在程序中实现改变文件的权限(比如将其改为只读)ASP forum  
- [gst_guest]02-09-11 12:14  

谢谢!!!

reply[F0016386]
 



 
 re [5] 如何在程序中实现改变文件的权限(比如将其改为只读)ASP forum  
- miles02-09-11 12:15  


reply[F0016387]
 



 
 为什么我的表单提交后总也显示不出页面,,请帮帮忙ASP forum  
- fuen02-09-12 11:20  

http://www.ostrich-ink.com/guestbook/send_submit.asp?t=NewTopic

  re [2] 为什么我的表单提交后总也显示不出页面 back to ASP forum 
作者:fuen 2002-9-12 11:02:27 

--------------------------------------------------------------------------------

<%@ Language=VBScript %>
<!--#include file=include/conn.asp-->
<%
t=Request.QueryString ("t")

title=trim(Request.Form("title"))
if title="" then
%>
<script language=javascript>
history.back()
alert("请输入留言标题!")
</script>
<%
Response.End
end if

content=trim(Request.Form("content"))
if content="" then
%>
<script language=javascript>
history.back()
alert("请输入留言内容!")
</script>
<%
Response.End
end if

author=trim(Request.Form("author"))
if author="" then
%>
<script language=javascript>
history.back()
alert("请填写你的名字!")
</script>
<%
Response.End
end if

email=trim(Request.Form("email"))
if email="" then
%>
<script language=javascript>
history.back()
alert("请输入你的电子邮件地址!")
</script>
<%
Response.End
end if

session("author")=author
session("email")=email

set rs=server.CreateObject("adodb.recordset")
select case t
case "NewTopic"
rs.Source="select * from Topic"
rs.Open rs.Source,conn,1,3

NowTime=now()

rs.AddNew
rs("title")=title
rs("content")=content
rs("author")=author
rs("email")=email
rs("time")=NowTime
rs("lasttime")=NowTime

rs.Update

Response.Redirect "index.asp"
case "ReTopic"

TopicID=Request.Form("TopicID")
rs.Source="select top 1 * from ReTopic"
rs.Open rs.Source,conn,1,3

NowTime=Now()

rs.AddNew
rs("ParentTopicID")=TopicID
rs("title")=title
rs("content")=content
rs("time")=NowTime
rs("author")=author
rs("email")=email

rs.Update

conn.execute("Update Topic Set LastTime='" & NowTime & "' where TopicID=" & TopicID)

Response.Redirect "TopicDetail.asp?TopicID=" & TopicID

End Select
rs.Close
set rs=nothing

conn.close
set conn=nothing

%>

reply[F0016717]
 



 
 re [1] 为什么我的表单提交后总也显示不出页面,,请帮帮忙ASP forum  
- miles02-09-12 11:28  

有错误提示么?先检查你的库文件的路径对不对。就是在你包含的include/conn.asp里打开库的部分。

reply[F0016720]
 



您的位置
  (c)2000-2021 Yup Studio, all rights reserved.  
205.0781