仓酷云

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

[学习教程] ASP网页编程之ASP法式经由过程FSO文件上传

[复制链接]
谁可相欹 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-16 00:25:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)fso|法式|上传   <%
a=Request.TotalBytes
if a>0 Then
Set c=Createobject("adodb.stream")
c.Type=1
c.Open
c.Write Request.BinaryRead(a)
c.Position=0

d=c.Read
e=chrB(13)&chrB(10)
f=Instrb(d,e)
g=Instrb(f+1,d,e)

set h=Createobject("adodb.stream")
h.Type=1
h.Open
c.Position=f+1
c.Copyto h,g-f-3
h.Position=0
h.type=2
h.CharSet="BIG5"
i=h.Readtext
h.close

j=mid(i,InstrRev(i,"\")+1,g)

if instr("jsp/asp/aspx/exe/php/html/htm/...",right(j,len(j)-instr(j,".")))>0 then
session("error")="您要上传不答应的文件"
response.redirect("error.asp")
end if

j=replace(date,"-","")&right(j,len(j)-instr(j,".")+1)

set fso=server.createobject("scripting.filesystemobject")
if fso.FileExists(server.mappath(j)) then
i=1
msg=true
do while msg
m=left(j,instr(j,".")-1)&"("&i&")"&right(j,len(j)-instr(j,".")+1)
if not fso.FileExists(server.mappath(m)) then
j=m
msg=false
end if
i=i+1
loop
end if
set fso=nothing


k=Instrb(d,e&e)+4
l=Instrb(k+1,d,leftB(d,f-1))-k-2
h.Type=1
h.Open
c.Position=k-1
c.CopyTo h,l
h.SaveToFile server.mappath(j),2
end if
%>
<form enctype=multipart/form-data method=post>
<input type=file name=n />
<input name="submit" type=submit value="提交" />
</form></p>  缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全
老尸 该用户已被删除
沙发
发表于 2015-2-16 01:15:06 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
灵魂腐蚀 该用户已被删除
板凳
发表于 2015-2-26 20:28:23 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
精灵巫婆 该用户已被删除
地板
发表于 2015-3-6 13:02:42 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
小妖女 该用户已被删除
5#
发表于 2015-3-11 18:18:16 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
若相依 该用户已被删除
6#
发表于 2015-3-19 06:39:26 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
分手快乐 该用户已被删除
7#
发表于 2015-3-23 12:22:27 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
透明 该用户已被删除
8#
发表于 2015-3-25 12:17:31 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
愤怒的大鸟 该用户已被删除
9#
发表于 2015-3-30 18:31:42 | 只看该作者
学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。
乐观 该用户已被删除
10#
发表于 2015-3-30 19:39:33 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
简单生活 该用户已被删除
11#
发表于 2015-4-7 12:58:36 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
不帅 该用户已被删除
12#
发表于 2015-4-12 11:20:27 | 只看该作者
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习
小魔女 该用户已被删除
13#
发表于 2015-4-15 18:29:27 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
再见西城 该用户已被删除
14#
发表于 2015-4-17 18:22:44 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
爱飞 该用户已被删除
15#
发表于 2015-4-21 17:05:40 | 只看该作者
掌握asp的特性而且一定要知道为什么。
若天明 该用户已被删除
16#
发表于 2015-4-25 05:50:36 | 只看该作者
另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)
莫相离 该用户已被删除
17#
发表于 2015-4-27 19:48:11 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
活着的死人 该用户已被删除
18#
发表于 2015-4-28 09:13:53 | 只看该作者
Server:这个表示的服务器,操作服务器的一些东西使用这个,如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
变相怪杰 该用户已被删除
19#
发表于 2015-4-28 21:58:18 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
深爱那片海 该用户已被删除
20#
发表于 2015-5-1 07:14:42 | 只看该作者
代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-23 00:07

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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