|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。上传材料来历精髓区稻草老农等人
submit.htm
<html><title>example</title>
<body>
<formname="form1"method="post"action="upload.asp"enctype="multipart/form-data">
<inputtype=filename="file1">
<inputtype=submitname="submit"value="提交">
</form>
</body>
</html>
upload.asp
<%@Language=VBScript%>
<%
functionbinarytoasi(byvalvarstr)
asi=""
fori=1to3
asi=asi&chr(ascb(midb(varstr,i,1)))
next
binarytoasi=asi
endfunction
formsize=request.totalbytes
formdata=request.binaryread(request.totalbytes)取得上传数据
bcrlf=chrB(13)&chrB(10)
divider=leftB(formdata,clng(instrb(formdata,bcrlf))-1)
Position=instrb(formdata,bcrlf&bcrlf)+4上传文件数据入手下手位
filesize=instrb(Position+1,formdata,divider)-Position-4上传文件数据长度
exnamestart=instrb(1,formdata,chrb(46),1)+1
exnameend=instrb(exnamestart,formdata,chrb(34),1)
exname=midb(formdata,exnamestart,exnameend-exnamestart)
setdr=CreateObject("Adodb.Stream")
dr.Mode=3:dr.Type=1:dr.Open
setdr1=CreateObject("Adodb.Stream")
dr1.Mode=3:dr1.Type=1:dr1.Open
dr.Writeformdata
dr.Position=Position-1
dr.CopyTodr1,filesize
dr1.SaveToFile"d:/mailtemp/temp_"&session("userid")&"."&binarytoasi(exname),2文件保留
setdr=nothing:setdr1=nothing
%>
</p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。 |
|