仓酷云

标题: ASP网页编程之vithink小文件主动完成文件扫瞄下载 [打印本页]

作者: 透明 时间: 2015-1-16 22:57
标题: ASP网页编程之vithink小文件主动完成文件扫瞄下载
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
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 莫相离 时间: 2015-1-20 23:48
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 飘灵儿 时间: 2015-1-30 07:39
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

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

作者: 冷月葬花魂 时间: 2015-2-15 20:32
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 灵魂腐蚀 时间: 2015-3-4 13:26
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

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

作者: 小妖女 时间: 2015-3-19 10:25
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

欢迎光临仓酷云 (http://ckuyun.com/)