若相依 发表于 2015-2-16 00:27:04

ASP编程:二文件上传,才30行代码

缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。上传   <%
' upload.asp
Function IntMin(n,y)
If n<y and n>0 Then
IntMin=Int(n)
ElseIf y>0 Then
IntMin=Int(y)
Else
IntMin=n
End If
End Function

Function getFormValue(Name)
Dim formSize,formData,DataHeader,DataStart,DataEnd,formNameStart,formNameEnd,formName,firstFilter
formSize=Request.TotalBytes()
formData=Request.BinaryRead(formSize)
firstFilter=true
For i=1 to Len(Name)
tmp=tmp&ChrB(AscB(Mid(Name,i,1)))
Next
Name=tmp
DataEnd=0
DataStart=0
Do While formSize>0
formData=RightB(formData,formSize-DataEnd-DataStart+1)
formSize=formSize-DataEnd-DataStart+1
DataHeader=LeftB(formData,InStrB(formData,Chrb(13)&Chrb(10))-1)
DataStart=InStrB(formData,ChrB(13)&ChrB(10)&ChrB(13)&ChrB(10))+4
DataEnd=InStrB(DataStart+1,formData,DataHeader)-DataStart
If DataStart<0 or DataEnd<=0 Then Exit Do
filteredData=MidB(formData,DataStart,DataEnd-1)
formNameStart=InStrB(formData,ChrB(AscB("n"))&ChrB(AscB("a"))&ChrB(AscB("m"))&ChrB(AscB("e"))&ChrB(AscB("="))&ChrB(AscB("""")))+6
formNameEnd=intMin(InStrB(formNameStart,formData,ChrB(13)&ChrB(10))-formNameStart-1,InStrB(formNameStart,formData,ChrB(AscB(";")))-formNameStart-1)
formName=MidB(formData,formNameStart,formNameEnd)
If Name=formName Then
getFormValue=filteredData
Exit Function
End If
Loop
getFormValue=Name&" Not Found!"
End Function
Response.binaryWrite(getFormValue("loadfromfile"))'这个loadfromfile就是表单名啦~
%>

</p>由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。

精灵巫婆 发表于 2015-2-16 02:49:36

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

愤怒的大鸟 发表于 2015-2-28 19:26:49

最近在学asp,不要问我为什么不直接学.net,因为公司网站是asp做的所以有这个需要,卖了本书asp入门到精通,对里面的六大内置对象老是记不住,还有很多属性和方法看的头晕。

小女巫 发表于 2015-3-1 15:34:55

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

飘灵儿 发表于 2015-3-5 22:41:07

我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。

老尸 发表于 2015-3-6 11:00:06

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

因胸联盟 发表于 2015-3-13 00:07:26

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

乐观 发表于 2015-3-13 21:52:03

不能只是将它停留在纸上谈兵的程度上。

admin 发表于 2015-3-18 03:24:05

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。

兰色精灵 发表于 2015-3-25 09:32:53

ASP的语言不仅仅只是命令格式差不多,而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的,但他就是完全继承了VB所有的功能。

第二个灵魂 发表于 2015-3-30 05:01:22

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。  因为ASP脚本语言非常简单,因此其代码也简单易懂,结合HTML代码,可快速地完成网站的应用程序。

小妖女 发表于 2015-4-7 01:40:20

学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。

透明 发表于 2015-4-26 20:11:34

学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:

金色的骷髅 发表于 2015-5-8 20:46:42

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

简单生活 发表于 2015-6-3 21:02:43

我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。

若天明 发表于 2015-6-4 15:20:41

Session:这个存储跟客户端会话过程的数据,默认20分钟失效

仓酷云 发表于 2015-6-18 21:04:14

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

深爱那片海 发表于 2015-6-28 19:17:48

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)

谁可相欹 发表于 2015-7-3 17:54:16

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

变相怪杰 发表于 2015-7-13 11:55:53

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
页: [1] 2
查看完整版本: ASP编程:二文件上传,才30行代码