ASP网页编程之在服务器端挑选文件
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&"<br>"
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),"/"))&"></a>"&"<br>"
endif
foreachiteminsubfolder
response.Write"<ahref=?path="&strSvrPath&getFileName(item)&"/><fontface=wingdings>0</font>"&_
getFileName(item)&"</a><br>"
next
setfiles=folder.Files
foreachiteminfiles
取相对路径
response.Write"<ahref=javascript:selFile("&strSvrPath&getFileName(item)&_
");><fontface=wingdings>3</font>"&getFileName(item)&"</a><br>"
取文件名
response.Write"<ahref=javascript:selFile("&getFileName(item)&");><fontface=wingdings>3</font>"&_
getFileName(item)&"</a><br>"
取绝对某目次的绝对路径,本例为“/myweb/”
response.Write"<ahref=javascript:selFile("&replace(strSvrPath,"/myweb/","")&getFileName(item)&");><fontface=wingdings>3</font>"&_
getFileName(item)&"</a><br>"
next
setfso=nothing
%>
<pid=lblMsg></p>
</body>
</HTML>
</p>对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。 那么，ASP.Net有哪些改进呢？ 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 掌握asp的特性而且一定要知道为什么。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
页:
[1]