仓酷云

标题: ASP网页设计无组件上传文件(1) [打印本页]

作者: 若天明 时间: 2015-2-3 23:38
标题: ASP网页设计无组件上传文件(1)
ASP在国内异常流行，因为国内大多使用的是盗版的Windows和盗版的SQLServer，而ASP＋COM＋SQLServer实际上也是一种不错的搭配，其性能也不输于PHP+MYSQL，特别是Windows系统和SQLServer都有图形界面，比APACHE和MYSQL易于维护，因此对于不重视知识产权的国家来说也是一种不错的选择。上传|无组件 file:upload.asp

<%
' Author Philippe Collignon
' Email PhCollignon@email.com

Sub BuildUploadRequest(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
      'Members variable of objects are put in a dictionary object
      Dim UploadControl
      Set UploadControl = CreateObject("Scripting.Dictionary")
      'Get an object name
      Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
      Pos = InstrB(Pos,RequestBin,getByteString("name="))
      PosBeg = Pos+6
      PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
      Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
      PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
      PosBound = InstrB(PosEnd,RequestBin,boundary)
      'Test if object is of file type
      If  PosFile<>0 AND (PosFile<PosBound) Then
         'Get Filename, content-type and content of file
         PosBeg = PosFile + 10
         PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
         FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
         'Add filename to dictionary object
         UploadControl.Add "FileName", FileName
         Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
         PosBeg = Pos+14
         PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
         'Add content-type to dictionary object
         ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
         UploadControl.Add "ContentType",ContentType
         'Get content of object
         PosBeg = PosEnd+4
         PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
         Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
         Else
         'Get content of object
         Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
         PosBeg = Pos+4
         PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
         Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
      End If
      'Add content to dictionary object
UploadControl.Add "Value" , Value
&nbs</p>  asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。

作者: 山那边是海 时间: 2015-2-4 04:40
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 第二个灵魂 时间: 2015-2-8 07:56
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 飘飘悠悠 时间: 2015-2-16 08:39
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 活着的死人 时间: 2015-3-1 20:32
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

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

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

作者: 变相怪杰 时间: 2015-3-16 12:07
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 透明 时间: 2015-3-22 22:35
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: admin 时间: 2015-3-23 11:17
掌握asp的特性而且一定要知道为什么。

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

作者: 再见西城 时间: 2015-3-27 07:09
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

作者: 若天明 时间: 2015-4-1 00:10
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

作者: 小妖女 时间: 2015-4-3 13:52
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

作者: 只想知道 时间: 2015-4-4 06:01
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 愤怒的大鸟 时间: 2015-4-6 06:43
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 分手快乐 时间: 2015-4-11 21:40
虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

作者: 蒙在股里 时间: 2015-4-14 16:15
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

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

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

作者: 灵魂腐蚀 时间: 2015-4-18 04:56
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

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