ASP网页编程之在服务器端挑选文件

只看该作者 · 发表于 2015-1-16 23:34:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。服务器　　一个在服务器端选择文件的小程序，在要拔出服务器真个文件，比方服务器端已上传的图片，大概是菜单办理当选摘要实行的文件，都是有效的，固然，还能够改作它用，就看你的必要了。

　　限于工夫，没能打它做成像windows的翻开文件窗口一样的效果，哪位网友做了，告知一声啊，迟些我本人抽得出工夫也会做的，但愿能与人人一同前进。

<%@Language=VBScriptcodePage="936"%>
<%optionexplicit%>

<%
functiongetFileName(strPath)
dimfilename
filename=mid(strPath,instrrev(strPath,"")+1)
getFileName=filename
endfunction
%>

<HTML>
<HEAD>
<title>NotelessValley(lijun.org)程序示例</title>
<metaname="vs_targetSchema"content="http://schemas.microsoft.com/intellisense/ie5">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<metaname="GENERATOR"Content="MicrosoftVisualStudio.NET7.0">
<styletype=text/CSS>
BODY
{
font-size:16px;
border-top-style:none;
font-family:Verdana,宋体;
border-right-style:none;
border-left-style:none;
background-color:white;
border-bottom-style:none;
}
A
{
text-decoration:none;
}
A:hover
{
text-decoration:underline;
}
</style>

<scriptlanguage=javascript>
functionselFile(filename){
lblMsg.innerText=filename;
}
</script>
</HEAD>
<body>
<%
dimstrSvrPath,strCurrentDirectory
strSvrPath=request.QueryString("path")
ifstrSvrPath=""then
strSvrPath=request.ServerVariables("SCRIPT_NAME")
strSvrPath=mid(strSvrPath,1,instrrev(strSvrPath,"/"))在这里设定初始目次，此处我设为根目次
endif
strCurrentDirectory=server.MapPath(strSvrPath)
response.Write"以后目次："&strSvrPath&" "

dimfso,folder,subfolder,files,item
setfso=server.CreateObject("scripting.filesystemobject")
setfolder=fso.GetFolder(strCurrentDirectory)
setsubfolder=folder.SubFolders

ifstrSvrPath"/"then
response.Write"<ahref=?path="&mid(strSvrPath,1,instrrev(mid(strSvrPath,1,len(strSvrPath)-1),"/"))&">[ToParentDirectory]</a>"&" "
endif
foreachiteminsubfolder
response.Write"<ahref=?path="&strSvrPath&getFileName(item)&"/><fontface=wingdings>0"&_
getFileName(item)&"</a> "
next

setfiles=folder.Files
foreachiteminfiles
取相对路径
response.Write"<ahref=javascript:selFile("&strSvrPath&getFileName(item)&_
");><fontface=wingdings>3"&getFileName(item)&"</a> "
取文件名
response.Write"<ahref=javascript:selFile("&getFileName(item)&");><fontface=wingdings>3"&_
getFileName(item)&"</a> "
取绝对某目次的绝对路径,本例为“/myweb/”
response.Write"<ahref=javascript:selFile("&replace(strSvrPath,"/myweb/","")&getFileName(item)&");><fontface=wingdings>3"&_
getFileName(item)&"</a> "
next
setfso=nothing
%>
<pid=lblMsg>
</body>
</HTML>

对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。

只看该作者 · 发表于 2015-1-20 09:58:06

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

只看该作者 · 发表于 2015-1-24 08:27:14

那么，ASP.Net有哪些改进呢？

只看该作者 · 发表于 2015-1-27 18:17:06

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

只看该作者 · 发表于 2015-2-3 18:31:18

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-2-3 19:47:01

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

只看该作者 · 发表于 2015-2-9 04:26:20

掌握asp的特性而且一定要知道为什么。

只看该作者 · 发表于 2015-2-26 22:09:30

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

只看该作者 · 发表于 2015-3-8 18:15:06

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

只看该作者 · 发表于 2015-3-22 22:09:27

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之在服务器端挑选文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子