📄 newdir.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>建文件夹</title>
<style type="text/css">
<!--
body {font-size:9pt}
-->
</style>
</HEAD>
<BODY>
<%olddirpath=finddir(server.mappath(Request.ServerVariables("SCRIPT_NAME")))
if Request("newdirpath") <> "" then
newdirpath=olddirpath & trim(Request("newdirpath"))
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder(newdirpath)
CreateFolderDemo = f.Path
Response.Write "文件夹" & Request("newdirpath") & "创建成功，它的实际路径是 " & newdirpath & "<br><br>"
end if
%>
<FORM action=<%=Request.ServerVariables("SCRIPT_NAME")%> method=post id=form1 name=form1>
当前文件夹是：<%=olddirpath%><br>
请输入要新建的文件夹的名字<input type=text name=newdirpath>
<INPUT type=submit value="确定" id=submit1 name=submit1>
<INPUT type=reset value="重填" id=reset1 name=reset1> <br><br>
正确的写法：<br>
newdir<br>
dir/newdir<br>
错误的写法：<br>
/newdir<br>
newdir/<br>
</FORM>
<%
Function finddir(filepath)
finddir=""
for i=1 to len(filepath)
if left(right(filepath,i),1)="/" or left(right(filepath,i),1)="\" then
abc=i
exit for
end if
next
if abc <> 1 then
finddir=left(filepath,len(filepath)-abc+1)
end if
end Function
%>
</BODY>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -