📄 clrattr.asp
字号:
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=GB2312">
</head>
<body bgcolor=white lang=ZH-CN style='tab-interval:21.0pt'>
<div class=Section1>
<h2 align="center"><font size="3">清除文档的只读属性</font></h2>
<h2 align=center style='text-align:center'><span lang=EN-US>
<hr size=2 width="100%" align=center>
</span></h2>
<div class=MsoNormal align=center style='text-align:center'><span lang=EN-US>
<hr size=2 width="100%" align=center>
</span></div>
<%
On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
If Err.Number <> 0 Then
Response.Write "请先安装好 IIS 或 PWS 在执行本程式!"
Response.End
End If
ClearReadonlyAttr fs.GetFolder(Server.MapPath("."))
Sub ClearReadonlyAttr( fd )
For each f In fd.Files
f.Attributes = f.Attributes And &HFFFFFFFE
Next
For each sfd In fd.SubFolders
ClearReadonlyAttr sfd
Next
Response.Write "<LI>" & fd.Path & " ... 已清除!<P>"
End Sub
%></div>
<p align="center"><font size="2"><a href="default.htm">返回首页</a></font></p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -