日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

ASP程序通過FSO文件上傳的實例代碼分享

作者:  來源:  發布時間:2011-6-22 11:42:55  點擊:

下面提供給大家的是關于ASP程序通過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>

相關軟件

相關文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 胖猫图片| 黑色罪案电影免费观看| 永濑佳子| 崔在焕| 殴美影院| 最后的武士| 斯科| 比利小子| 洛可电影《妮娜》在线观看| 我的神我要敬拜你歌谱| 五行字库查询表| 帕瓦德奥特曼| 米莎巴顿| 王艺嘉| 雪天使演员表介绍| 琅琊榜3第三部免费播放| 豪血寺一族2出招表| 真的爱你黄家驹 原唱| 魔镜电影免费观看完整版高清| 这就是中国 纪录片| 田村亮| 哪吒电影1| 新红楼梦惊艳版| 春闺梦里人电影在线观看| 饭店装修效果图| 小绵羊男星是谁| 大师兄 电影| 光明力量2古代封印攻略| 啊嗯啊| 小黑电影| 张念骅| 10000个常用人名| 少妇av精品淑女少妇av免费| 张晋个人资料和简历| 燕子门| 电影《迷雾》完整版免费播放高清 | 香港之夜在线观看完整版| 浙江卫视在线观看tv| 甜姐儿| 刘越| 焕羽电视剧免费播放在线观看|