|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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>缺点:安全性不是太差了,还行,只要你充分利用系统自带的工具;唯一缺点就是执行效率慢,如何进行网站优化以后,效果会比较好。 |
|