ASP网页编程之vithink小文件主动完成文件扫瞄下载

只看该作者 · 发表于 2015-1-16 22:57:11

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

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

x

asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！下载
<html>
<head>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<body>
　<scriptsrc=http://www.mithink.com/js/top.js></script>
<tableid="table16"cellSpacing="0"cellPadding="0"width="765"border="0">
<tr>
<tdvAlign="bottom"align="middle"colSpan="2">
<tableid="table21"cellSpacing="0"cellPadding="0"width="765"align="center"border="0">
<tr>
<td><%
SetFSO=CreateObject("Scripting.FileSystemObject")
hu=Replace(Server.MapPath("index.asp"),"index.asp","")本体系地点目次
SetTestFolder=FSO.GetFolder(hu)
GenerateTestInformation=GenerateAllFolderInformation(TestFolder)
FunctionGenerateAllFolderInformation(Folder)
DimS,SubFolders,SubFolder,Files,File,i
tmpStr=""
SetSubFolders=Folder.SubFolders

IfSubFolders.Count0Then
i=1
ForEachSubFolderInSubFolders
i=i+1
tmpStr=tmpStr&GenerateFolderInformation(SubFolder,i)
Next
EndIf
Response.WritetmpStr&"</table><br>"
tmpStr=""
SetFiles=Folder.Files
tmpStr=tmpStr&"<tableborder=0width=100%cellspacing=1cellpadding=4align=leftstyle=word-break:break-all>"
tmpStr=tmpStr&""
IfNot(Folder.IsRootFolder)Then
tmpStr=tmpStr&""
EndIf
tmpStr=tmpStr&""
tmpStr=tmpStr&""

IfFiles.Count0Then
i=1
ForEachFileInFiles
i=i+1
tmpStr=tmpStr&GenerateFileInformation(File,i)
Next
EndIf
Response.WritetmpStr&"</table>"
EndFunction

FunctionUrlEnCode(Path)
UrlEnCode=Replace(Server.URLEncode(Path),"","/")
EndFunction
FunctionCloseFSO
FSO.Close
SetFSO=Nothing
EndFunction
FunctionGenerateFileInformation(File,i)
DimS,RowColor
RowColor=""
IfiMod2=0ThenRowColor="bgcolor=#9999dd"
IfiMod20ThenRowColor="bgcolor=#aaaaee"

S="<tr><td"&RowColor&">"&File.Name&"</td>"
S=S&"<td"&RowColor&">"&FormatNumber(File.Size/1024,0)&"KB</td>"
S=S&"<tdalign=center"&RowColor&">"
S=S&"<ahref="&File.Name&">↓</a></td></tr>"
GenerateFileInformation=S
EndFunction

函数称号：GenerateFolderInformation()
功效申明：形貌文件夹确当前形态

FunctionGenerateFolderInformation(Folder,i)
DimS,RowColor
RowColor=""
IfiMod2=0ThenRowColor="bgcolor=#dddddd"

S=""

GenerateFolderInformation=S
EndFunction
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<scriptsrc=http://www.mithink.com/js/bottom1.js></script>
</body>
</html>

asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.

只看该作者 · 发表于 2015-1-20 06:30:57

交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

只看该作者 · 发表于 2015-1-20 23:48:33

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

只看该作者 · 发表于 2015-1-30 07:39:30

你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

只看该作者 · 发表于 2015-2-6 08:39:41

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

只看该作者 · 发表于 2015-2-15 20:32:36

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

只看该作者 · 发表于 2015-3-4 13:26:16

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

只看该作者 · 发表于 2015-3-11 19:42:19

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

只看该作者 · 发表于 2015-3-19 10:25:05

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

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

[学习教程] ASP网页编程之vithink小文件主动完成文件扫瞄下载

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

相关帖子

浏览过的版块