仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 380|回复: 9
打印 上一主题 下一主题

[学习教程] ASP教程之在webclass中利用文件上传功效

[复制链接]
只想知道 该用户已被删除
跳转到指定楼层
#
发表于 2015-1-16 22:58:18 | 只看该作者 回帖奖励 |正序浏览 |阅读模式

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

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

x
ASP一般认为只能运行在IIS上,正如前面所提到的,这并不是十分正确,事实上,ASP也能运行在Apache上。ApacheASP可在任意Apache服务器上运行有限的ASP功能,所需做的,只需打开mod_perl。web|上传在webclass中利用文件上传功效

webclass实例:http://www.shinco.com/jjx/wcnews/news.asp
很多文件上传组件其实不能在vb中一般利用,我测试了chinaaspfileup,aspSmartupload,aspuploadenterprise,inotesupload等组件,均不克不及正
常利用。其次要缘故原由,是由于在vb中没有促发组件的OnStartPage历程。我们没法改写这些组件,以是要本人编码来办理这个成绩,记得之前有网友谈过这个成绩,但没有代码贴出来。
实在之前chinaasp上有个编写web体例上载文件的组件的贴子(我一下找不了,这是我转贴的地点http://www.shinco.com/jjx/activeubb/NewsDetail.asp?id=134,略微改写一下就可以在webclass中利用了

将原onstartpage历程改成
PublicSubOnStartPage(PassedRequestAsRequest)

------------------界说部分变量----------------------
DimvarByteCount
Dimi
---------------------------------------------------

------------------创建ASP工具-----------------------
SetMyRequest=PassedRequest
---------------------------------------------------

------------------读取客户端传来的全体数据-----------
varByteCount=MyRequest.TotalBytes
lngArrayLen=varByteCount-1
ReDimbinArray(varByteCount-1)
binArray=MyRequest.BinaryRead(varByteCount)
---------------------------------------------------

--------------------猎取定界符---------------------
intDjfLen=0
DoUntilbinArray(intDjfLen+1)=13
intDjfLen=intDjfLen+1
Loop
ReDimbinDjf(intDjfLen)
Fori=0TointDjfLen
binDjf(i)=binArray(i)
Next
---------------------------------------------------
EndSub

在webclass中利用

dimuploadasnewuploadfile
upload.onstartpage(request)

然后就能够用该类供应的办法了举行操纵了,这个组件的功效比chinaaspupload要差些。但已充足利用了

其他修改

1、为了能用getthevalue办法准确获得inputtype为checkbox,radio等的值,在

FindtheName中到场毛病处置
PrivateFunctionFindTheName(nmAsString)AsLong
OnErrorGoToFindTheNameError
******************************参数申明*****************************
**
*nm:要寻觅的Form元素名*
*前往值:乐成――找到时的地点,失利――-1*
**
*******************************************************************

------------------界说部分变量----------------------
DimsAsLong
DimeAsLong
DimiAsLong

DimbinTmp()AsByte
DimstrNameAsString
---------------------------------------------------

------------------寻觅要获得值的Form元素名------------------------
s=0
DoWhile1
s=FindTheDjf(s)
Ifs-1Then
s=s+intDjfLen+41
e=s
DoWhilebinArray(e+1)34
e=e+1
Loop
ReDimbinTmp(e-s)
Fori=sToe
binTmp(i-s)=binArray(i)
Next
strName=StrConv(binTmp,64)
IfStrComp(nm,strName)=0Then
FindTheName=e+1
ExitDo
EndIf
Else
FindTheName=-1
ExitDo
EndIf
Loop
--------------------------------------------------------------
ExitFunction
FindTheNameError:
FindTheName=-1

EndFunction

2、删除类声明中的
PrivateMyScriptingContextAsScriptingContext界说




</p>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。
莫相离 该用户已被删除
9#
发表于 2015-3-22 00:20:01 | 只看该作者
那么,ASP.Net有哪些改进呢?
再见西城 该用户已被删除
8#
发表于 2015-3-15 11:53:26 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
变相怪杰 该用户已被删除
7#
发表于 2015-2-25 09:10:18 | 只看该作者
兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的
小魔女 该用户已被删除
6#
发表于 2015-2-8 10:30:23 | 只看该作者
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
深爱那片海 该用户已被删除
5#
发表于 2015-2-2 22:06:38 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
简单生活 该用户已被删除
地板
发表于 2015-1-30 17:29:04 | 只看该作者
掌握asp的特性而且一定要知道为什么。
若天明 该用户已被删除
板凳
发表于 2015-1-30 13:11:31 | 只看该作者
下载一个源代码,然后再下载一个VBScript帮助,在源代码中遇到不认识的函数或是其他什么程序,都可以查帮助进行解决,这样学习效率很高。
愤怒的大鸟 该用户已被删除
沙发
发表于 2015-1-28 22:48:38 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
分手快乐 该用户已被删除
楼主
发表于 2015-1-20 06:51:23 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-11-16 07:30

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表