求助:根据获取地址浏览器URL,自动创建不存在的目录文件夹。

小獭 2019-01-03 08:46:38
浏览器地址:
http://localhost/Html/a/b/4041.asp

通过获取浏览器地址,
requestURL=Request.ServerVariables("QUERY_STRING")

response.Write(requestURL)

得到:
/Html/a/b/4041.asp

我想实现:

如果html、a、b文件夹不存在,依次就创建该路径的三个文件夹,

即:网站根目录下,创建一个文件夹叫html,“html”文件夹里又创建“a”文件夹,“a”文件夹里又创建了b文件夹。

如果其中文件夹已经存在,则跳过,不创建。

请问ASP程序要怎么实现?

也就是说,我根据每次浏览器的不同地址,创建该浏览器地址所需要的文件夹。
如果当浏览器地址是http://localhost/a/b/4041.asp时,网站根目录下,“a”和“b”两个文件夹则帮我创建这两个文件夹,即创建a文件夹,并在a文件夹里又创建了b文件夹。

依此类推。

谢谢大神们。
...全文
405 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
csdn_aspnet 2019-01-18
  • 打赏
  • 举报
回复

FSO中有个方法是CreateFolder,但是这个方法只能在其上一级文件夹存在的情况下创建新的文件夹,所以我就写了一个自动创建多级文件夹的函数,在生成静态页面等方面使用非常方便.

函数:
  
' --------------------------------
' 自动创建指定的多级文件夹
' strPath为绝对路径
' 引用请保留版权
' by im286_Anjer
' 2005-4-3
Function AutoCreateFolder(strPath) ' As Boolean
        On Error Resume Next

        Dim astrPath, ulngPath, i, strTmpPath
        Dim objFSO

        If InStr(strPath, "\") <=0 Or InStr(strPath, ":") <= 0 Then
                AutoCreateFolder = False
                Exit Function
        End If
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
        If objFSO.FolderExists(strPath) Then
                AutoCreateFolder = True
                Exit Function
        End If
        astrPath = Split(strPath, "\")
        ulngPath = UBound(astrPath)
        strTmpPath = ""
        For i = 0 To ulngPath
                strTmpPath = strTmpPath & astrPath(i) & "\"
                If Not objFSO.FolderExists(strTmpPath) Then
                        ' 创建
                        objFSO.CreateFolder(strTmpPath)
                End If
        Next
        Set objFSO = Nothing
        If Err = 0 Then
                AutoCreateFolder = True
        Else
                AutoCreateFolder = False
        End If
End Function 
 


调用方法:

MyPath = "C:\a\b\c\"
If AutoCreateFolder(MyPath) Then
        Response.Write "创建文件夹成功"
Else
        Response.Write "创建文件夹失败"
End If 
  • 打赏
  • 举报
回复
SavePath = "/html/a/b/c/"
CreateFolder SavePath '文件夹不存则会创建'

Function CreateFolder(byval s)
Dim Fso,upPath,path
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Fso.FolderExists(Server.MapPath(s)) Then Exit Function
upPath = Replace(Server.MapPath(s),Server.MapPath("/"),"")
upPath = Replace(upPath,"\","/")
If left(upPath,1)<>"/" Then
upPath = "/"&upPath
End If
If right(upPath,1)<>"/" Then
upPath = upPath&"/"
End If
Folder_arr = split(upPath,"/")
path = ""
For i = 1 To Ubound(Folder_arr)-1
path = path&"/"&Folder_arr(i)
Set objFolder = Server.CreateObject("Scripting.FileSystemObject")
If Not objFolder.FolderExists(Server.MapPath(path)) Then
objFolder.CreateFolder(Server.MapPath(path))
End If
Set objFolder = Nothing
Next
Set Fso = Nothing
End Function
写在最前 欢迎。WordPress 对我来说是一个具有特殊意义的项目。大家都能为 WordPress 添砖加瓦,因此作为其中一员我十分自豪。开发者和贡献者为 WordPress 奉献了难以估量的时间,我们都在致力于让 WordPress 更加优秀。现在,感谢您也参与其中。 — Matt Mullenweg 安装:著名的五分钟安装 1.将 WordPress 压缩包解压至一个空文件夹,并上传它。 2.在浏览器中访问 wp-admin/install.php。它将帮助您把数据库链接信息写入到 wp-config.php 文件中。 1.若上述方法不起作用,也没有关系,请用文本编辑器(如写字板)手动打开 wp-config-sample.php 文件,填入数据库信息。 2.将文件另存为 wp-config.php 并上传。 3.在浏览器中访问 wp-admin/install.php。 3.在配置文件就绪之后,WordPress 会自动尝试建立数据库表。若发生错误,请检查 wp-config.php 文件中填写的信息是否准确,然后再试。若问题依然存在,请访问中文支持论坛寻求帮助。 4.若您不设置密码,请牢记生成的随机密码。若您不输入用户名,用户名将是 admin。 5.完成后,安装向导会带您到登录页面。用刚刚设置的用户名和密码登录。若您使用随机密码,在登录后可以按照页面提示修改密码。 升级 自动升级 若您正在使用 WordPress 2.7 或以上版本,您可使用内置的自动升级工具进行升级: 1.在浏览器中打开 wp-admin/update-core.php,按照提示操作。 2.还有别的步骤么 —— 没了! 手动升级 1.在升级之前,请确保备份旧有数据以及被您修改过的文件,例如 index.php。 2.删除旧版程序文件,记得备份修改过的内容。 3.上传新版程序文件。 4.在浏览器中访问 /wp-admin/upgrade.php。 模板结构变化 如果您曾自己制作或者修改主题,可能您需要做一些修改以使模板在跨版本更新后正常工作。 从其他内容管理系统“搬家” WordPress 支持导入多种系统的数据。请先按照上述步骤安装 WordPress。安装后,您可在后台使用我们提供的导入工具。 最低系统需求 •PHP 5.2.4 或更高版本。 •MySQL 5.0 或更高版本。 系统推荐 •启用 mod_rewrite 这一 Apache 模块。 •在您的站点设置至 http://cn.wordpress.org 的链接。 在线资源 若您遇上文档中未有提及的情况,请首先参考我们为您准备的丰富 WordPress 在线资源: WordPress Codex 文档 Codex 是 WordPress 的百科全书。它包含现有版本 WordPress 的海量信息资源。主要文章均包含中文译文。 WordPress 官方博客 在这里,您将接触到 WordPress 的最新升级信息和相关新闻,建议加入收藏夹。 WordPress Planet WordPress Planet 汇集了全球所有 WordPress 相关的内容。 WordPress 中文支持论坛 如果感到束手无策,请将问题提交至中文支持论坛,它有大量的热心的用户和良好的社区氛围。无论求助还是助人,在这里您应该确保自己的问题和答案均准确细致。 WordPress IRC 频道 同样,WordPress 也有即时的聊天室用于 WordPress 用户交流以及部分技术支持。IRC 的详细使用方法可以访问前面几个关于技术支持的站点。(irc.freenode.net #wordpress) XML-RPC 和 Atom 接口 您可以使用诸如 Windows Live Writer、Ecto、Bloggar、Radio Userland(基于 Radio 的 email-to-blog 功能)、NewzCrawler 等支持 blogging API 的工具更新博客。详情请参阅 Codex 上关于 XML-RPC 支持(英文)的内容。 用电子邮件发布文章 您可以通过电子邮件发表站点更新!请前往后台的“写作”设置页面,输入相关信息和 POP3 帐号信息。然后您需设法让 wp-mail.php 定期运行。您可以使用计划任务(Cron job)来实现,或是让某个站点检测服务定期访问您的 wp-mail.php 的 URL。 更新很简单:使用任何邮箱发送内容到指定地址均会被 WordPress 自动发表,并以邮件主题作为文章标题,所以该"指定地址"也最好保密并专用。发表后程序将自动删除邮件。 用户角色 WordPress 2.0 之后的版本加入了更为灵活的用户身份系统,同时移除了之前的用户等级制度。 到 Codex 阅读关于身份和权限的更多内容。 最后 •对 WordPress 有任何建议、想法、评论或发现了 bug,请加入中文支持论坛。 •WordPress 准备了完善的插件 API 接口方便您进行扩展开发。作为开发人员,如果你有兴趣了解并加以利用,请参阅 Codex 上的插件文档。请尽量不要更改核心代码。 分享精神 WordPress 没有数百万的市场运作资金,也没有名人赞助。不过我们有更棒的支持,那就是您!如果您喜欢 WordPress,请将它介绍给自己的朋友,或者帮助他人安装一个 WordPress,又或者写一篇赞扬我们的文章。 WordPress 是 Michel V. 创建的 b2/cafelog 官方后续版本,WordPress 开发团队将其发展为如今的 WordPress。如果您愿意支持我们的工作,欢迎您对 WordPress 进行捐赠。 版权许可 WordPress 基于 GPL 通用许可协议发布。详见 license.txt(英文)。
┌─ 极度学习 ───────────────────────┐ │ │ 感谢你使用 eWebEditor在线文本编辑器王志峰修改版 │ 本代码完全公开和免费,你可以任意复制、传播、修改和使用, │ 但不得公开发表代码 不得用做商业用途,不得向其他使用者收费。 │ │ │ 修改者:王志峰 │ 2009-06-1 │ └────────────────── ───┘ 特此说明:此程序修改自 “eWebEditor在线文本编辑器飞鱼修改版” (网站地址:http://www.fiyu.net) ---------------------------------------------------------------- 程序名称: eWebEditor在线文本编辑器王志峰修改版v0.1.4 软件类别: JSP源码 / 在线文本编辑器 软件语言: 简体中文 授权方式: 免费版 系统平台: JSP+XML+BEAN 程序修改: 王志峰 程序简介: eWebEditor是基于网页的、所见即所得的在线HTML编辑器。她能够在网页上实现许多桌面编辑软件(如:Word)所具有的强大可视编辑功能;现在您使用的是来自eWebSoft在线文本编辑器飞鱼修改版(JSP) 针对使用中发现的一些问题所进行的修订版本。 ---------------------------------------------------------------- 【程序主要功能】 所见即所得 即通过编辑器编辑的文字、图片等HTML标记输出到页面的效果和编辑时显示的效果一致,让使用者方便地对编辑的内容进行修改、排版等。 自动转换为HTML代码 在编辑状态编辑的文字、图片等内容都在后台自动转换为可被浏览器识别的HTML标记语言,使用者更能在代码状态在对代码标记进行修改。 简单易用 编辑器的编辑及使用方法与FrontPage、Dreamweaver等著名主页制作软件类似。无需任何HTML语法知识、儍瓜式的操作让即使没有主页制作经验的使用者也能快速上手。 方便快捷 使用所见即所得的编辑器能快捷、方便地编辑出效果一流的图文效果,如果使用纯手工编写代码的方法编辑则需要浪费大量时间及精力。 ---------------------------------------------------------------- 【安装使用】 部署方式: 1、把文件夹下除WEB-INF文件夹的全部文件复制到您的网站根目录下; 2、把WEB-INF文件夹下的style.xml和button.xml复制到网站根目录的WEB-INF下; 3、把WEB-INF文件夹下的lib目录中的jar文件复制到网站根目录的WEB-INF的lib目录; 4、把WEB-INF文件夹下的class目录中的文件复制到网站根目录的WEB-INF的class目录; 5、把WEB-INF文件夹下的web.xml文件中的一下部分粘贴到网站根目录的WEB-INF的web.xml中; defaultroot debugjsp Added to compile JSPs with debug info org.apache.jasper.servlet.JspServlet classdebuginfo true 3 debugjsp <url-pattern>*.jspurl-pattern> 6、重新启动服务器即可。 演示应用:请参考index.jsp和submit.jsp。 界面修改:一般只修改/WEB-INF目录下面的style.xml和button.xml就可以了。 ==================================================== 上传图片路径设置: //此处设置上传文件保存路径,注意路径要由ROOT开始===3处====================== //修改此处需修改WEB-INF/Style.xml文件对应处/UploadFile/ //修改此处需修改eWebEditor.jsp文件对应处 //修改此处需修改upload.jsp文件对应处 例如要传到根目录的/www/images/upload/下面: upload.jsp中 String sUploadFilePath="/www/images/upload/"; Style.xml中 /www/images/upload/ eWebEditor.jsp 中 String sUploadFilePath="/www/images/upload/"; 这样就好了。 建议: 删除演示文件index.jsp和submit.jsp 有什么问题欢迎到深度论坛来提! ===================================== 【版本更新说明】 ·修订图片、flash、多媒体以及附件上传后路径问题; 【特别感谢】 · “eWebSoft在线文本编辑器飞鱼修改版”作者(网站地址:http://www.fiyu.net) · 网友 QQ:Stone.Sun (http://ff.139l.com) 【声明】 您可以自由复制、传播、使用但未经作者允许请勿用于商业场合。使用本软件造成的一切后果作者一概不负责任! 1、本软件及相关文档的版权及其他权利都归“原作者”所有并保留一切权利。除了授权许可协议所提供的明确书面许可外,拥有本程序及相关文档并不赋予您任何有关这些版权或其他知识产权的许可。 2、本软件仅供学习。你可以任意使用、拷贝和分发,但严禁用于商业用途和一切盈利目的,违者必究。我们尊重原作者,保留本软件的一切权利。 3.我们保证本软件不含有任何破坏性代码和木马程序,但在用户使用中可能出现的任何损失我们不付任何责任。 4.本软件不承诺提供任何技术支持和服务,如果您自身不具备相应技术,可到论坛求助或联系我们提供商业服务。 ☆ 本程序为 王志峰 修改 

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧