ASP网站制作之无组件上传实例

只看该作者 · 发表于 2015-1-16 22:11:18

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

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

x

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.上传|无组件这是我从我之前写过的程序平分离出来的，因为这段代码是针对全体成体程序写的，因而功效十分复杂，并且关于上传的数据也没有严厉的限定，以是不免会呈现如许或那样的毛病。
我贴着篇文章次要是让人人懂得一下无组件上传的思绪，而不是让人人利用的。
<%
Yanhang.00上传程序V1.0
1.0版本的程序是从之前的程序修正过去的，可是大概仍是仍有不敷，假如你发明任何毛病，请写信关照我，感谢！
请在利用前先修正上面的信息
今朝本程序我以为最年夜的不敷就是只能用体系工夫界说文件名，不克不及利用源文件名，这一点我会在今后的版本中改善。
Enjoyyourself!

程序制造：yanhang
email:yanhang@msn.com
手艺撑持：http://yanhang00.yeah.net
本程序要运转在ado2.5以上版本情况下

#####################请修正以下信息#####################################
dimsiteurl,picsavefolder,limitbyte,lsfilename
siteurl="http://www.yours.com"网站地点(开端不要有"/"标记)
picsavefolder="uploadfile/"图片保留文件夹(以"/"标记开头)
limitbyte=300文件巨细限定，单元：k
######################################################################

#####################以下信息请不要修正#################################
ifrequest.totalbytes<192then
%>
<html>
<head>
<title>文件上传</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<BODY>
<FORMname="form2"METHOD=POSTACTION="upload.asp"enctype="multipart/form-data">
请选择文件:
<INPUTTYPE="file"NAME="file">
<INPUTTYPE="submit"value="上传">巨细限定：<%=limitbyte%>k
</FORM>
</BODY>
</html>
<%
else
dimcontentlen
吸收表单信息
contentlen=request.totalbytes
检测文件巨细
ifcontentlen>limitbyte*1024then
response.write"文件凌驾"&limitbyte&"k，不同意上传！"
else
dimcontent
读取上传文件信息
content=request.binaryread(request.totalbytes)
二进制互相转换函数
FunctiongetByteString(StringStr)
Fori=1toLen(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
Next
EndFunction
FunctiongetString(StringBin)
getString=""
ForintCount=1toLenB(StringBin)
getString=getString&chr(AscB(MidB(StringBin,intCount,1)))
Next
EndFunction
处置数据
dimupbeg,upend,lineone,linetwo,linethree,line1,line2,line3
upbeg=1
upend=instrb(upbeg,content,getbytestring(chr(10)))
lineone=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line1=lenb(lineone)
upend=instrb(upbeg,content,getbytestring(chr(10)))
linetwo=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line2=lenb(linetwo)
upend=instrb(upbeg,content,getbytestring(chr(13)))
linethree=midb(content,upbeg,upend-upbeg)
line3=lenb(linethree)

取得文件名
dimpp,checknametemp,checklen,checkname,filename
pp=instrb(1,linetwo,getbytestring(chr(46)))
checknametemp=rightb(linetwo,line2-pp+1)
checklen=instrb(1,checknametemp,getbytestring(chr(34)))
checkname=getstring(leftb(checknametemp,checklen-1))

检测文件后缀
ifcheckname"Content-Disposition:form-data;name="then
ifcheckname=".txt"orcheckname=".doc"orcheckname=".gif"orcheckname=".jpg"orcheckname=".jpeg"orcheckname=".zip"orcheckname=".rar"orcheckname=".bmp"orcheckname=".png"orcheckname=".tiff"then
界说文件名
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname

上传文件
dimalllen,upstream,upstreamend,file
alllen=line1+line2+line3+6
setupstream=server.createobject("adodb.stream")
setupstreamend=server.createobject("adodb.stream")
upstream.type=1
upstreamend.type=1
upstream.open
upstreamend.open
upstream.writecontent
upstream.position=alllen
file=upstream.read(clng(contentlen-alllen-line1-5))
upstreamend.writefile
upstreamend.savetofile(server.mappath(picsavefolder&filename))
upstream.close
upstreamend.close
setupstream=nothing
setupstreamend=nothing

response.write"文件上传乐成！<br>文件名："&siteurl&"/"&picsavefolder&filename

else
response.write"不同意上传"&checkname&"格局文件"
endif
else
response.write"您没有填写文件名"
endif

endif
endif
%>
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。

只看该作者 · 发表于 2015-1-18 21:55:16

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-1-25 21:34:49

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

只看该作者 · 发表于 2015-2-4 04:42:41

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

只看该作者 · 发表于 2015-2-9 15:54:46

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

只看该作者 · 发表于 2015-2-27 09:24:57

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

只看该作者 · 发表于 2015-3-9 00:45:22

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-3-16 19:50:37

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

只看该作者 · 发表于 2015-3-23 01:25:26

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网站制作之无组件上传实例

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

相关帖子