分享
 
 
 

图片上传的asp代码

王朝vc·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

文件夹名称:

upload:[upload0.asp,upp.asp,uploadx.asp,imag:存放上传的图片/文件的文件夹]

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

upload0.asp

<form method="POST" action="upp.asp" enctype="multipart/form-data" >

<p> photo:

<input type="file" name="fruit" size="20">

<!--要同时上传多个文件就把上面的代码:<input type="file" name="fruit" size="20">多复制几次呵呵-->

<input type="submit" value="upload" name="subbutt">

<input type="reset" value="reset" name="rebutt">

</form> <%=request("file")%>

</html>

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ upp.asp

<%@ LANGUAGE = VBScript %>

<%Server.ScriptTimeOut=100000 %>//设置上传文件的最大运行时间

<!-- #include file="uploadx.asp" -->

<%

dim filename

path = Server.MapPath("./imag/")

filename = SaveFile("fruit",path,6000,0)//设置上传文件的最大上限

If filename<>"" Then

If filename <> "*TooBig*" Then

Response.redirect "upload0.asp?message="& filename &" "

Else

Response.redirect "upload0.asp?message=文件超出限制太大(<=6000K)"

End IF

End IF

%>

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ uploadx.asp

<%

Dim FormData, FormSize, Divider, bCrLf

FormSize = Request.TotalBytes

FormData = Request.BinaryRead(FormSize)

bCrLf = ChrB(13) & ChrB(10)

Divider = LeftB(FormData, InStrB(FormData, bCrLf) - 1)

Function SaveFile(FormFileField, Path, MaxSize, SavType)

Dim StreamObj,StreamObj1

Set StreamObj = Server.CreateObject("ADODB.Stream")

Set StreamObj1 = Server.CreateObject("ADODB.Stream")

StreamObj.Mode = 3

StreamObj1.Mode = 3

StreamObj.Type = 1

StreamObj1.Type = 1

SaveFile = ""

StartPos = LenB(Divider) + 2

FormFileField = Chr(34) & FormFileField & Chr(34)

If Right(Path,1) <> "\" Then

Path = Path & "\"

End If

Do While StartPos > 0

strlen = InStrB(StartPos, FormData, bCrLf) - StartPos

SearchStr = MidB(FormData, StartPos, strlen)

If InStr(bin2str(SearchStr), FormFileField) > 0 Then

FileName = bin2str(GetFileName(SearchStr,path,SavType))

If FileName <> "" Then

FileStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4

FileLen = InStrB(StartPos, FormData, Divider) - 2 - FileStart

If FileLen <= MaxSize*1024 Then

FileContent = MidB(FormData, FileStart, FileLen)

StreamObj.Open

StreamObj1.Open

StreamObj.Write FormData

StreamObj.Position=FileStart-1

StreamObj.CopyTo StreamObj1,FileLen

If SavType =0 Then

SavType = 1

End If

StreamObj1.SaveToFile Path & FileName, SavType

StreamObj.Close

StreamObj1.Close

If SaveFile <> "" Then

SaveFile = SaveFile & "," & FileName

Else

SaveFile = FileName

End If

Else

If SaveFile <> "" Then

SaveFile = SaveFile & ",*TooBig*"

Else

SaveFile = "*TooBig*"

End If

End If

End If

End If

If InStrB(StartPos, FormData, Divider) < 1 Then

Exit Do

End If

StartPos = InStrB(StartPos, FormData, Divider) + LenB(Divider) + 2

Loop

End Function

Function GetFormVal(FormName)

GetFormVal = ""

StartPos = LenB(Divider) + 2

FormName = Chr(34) & FormName & Chr(34)

Do While StartPos > 0

strlen = InStrB(StartPos, FormData, bCrLf) - StartPos

SearchStr = MidB(FormData, StartPos, strlen)

If InStr(bin2str(SearchStr), FormName) > 0 Then

ValStart = InStrB(StartPos, FormData, bCrLf & bCrLf) + 4

ValLen = InStrB(StartPos, FormData, Divider) - 2 - ValStart

ValContent = MidB(FormData, ValStart, ValLen)

If GetFormVal <> "" Then

GetFormVal = GetFormVal & "," & bin2str(ValContent)

Else

GetFormVal = bin2str(ValContent)

End If

End If

If InStrB(StartPos, FormData, Divider) < 1 Then

Exit Do

End If

StartPos = InStrB(StartPos, FormData, Divider) + LenB(Divider) + 2

Loop

End Function

Function bin2str(binstr)

Dim varlen, clow, ccc, skipflag

skipflag = 0

ccc = ""

varlen = LenB(binstr)

For i = 1 To varlen

If skipflag = 0 Then

clow = MidB(binstr, i, 1)

If AscB(clow) > 127 Then

ccc = ccc & Chr(AscW(MidB(binstr, i + 1, 1) & clow))

skipflag = 1

Else

ccc = ccc & Chr(AscB(clow))

End If

Else

skipflag = 0

End If

Next

bin2str = ccc

End Function

Function str2bin(str)

For i = 1 To Len(str)

str2bin = str2bin & ChrB(Asc(Mid(str, i, 1)))

Next

End Function

Function GetFileName(str,path,savtype)

Set fs = Server.CreateObject("Scripting.FileSystemObject")

str = RightB(str,LenB(str)-InstrB(str,str2bin("filename="))-9)

GetFileName = ""

FileName = ""

For i = LenB(str) To 1 Step -1

If MidB(str, i, 1) = ChrB(Asc("\")) Then

FileName = MidB(str, i + 1, LenB(str) - i - 1)

Exit For

End If

Next

If savtype = 0 and fs.FileExists(path & bin2str(FileName)) = True Then

hFileName = FileName

rFileName = ""

For i = LenB(FileName) To 1 Step -1

If MidB(FileName, i, 1) = ChrB(Asc(".")) Then

hFileName = LeftB(FileName, i-1)

rFileName = RightB(FileName, LenB(FileName)-i+1)

Exit For

End If

Next

For i = 0 to 9999

'hFileName = hFileName & str2bin(i)

If fs.FileExists(path & bin2str(hFileName) & i & bin2str(rFileName)) = False Then

FileName = hFileName & str2bin(i) & rFileName

Exit For

End If

Next

End If

Set fs = Nothing

GetFileName = FileName

End Function

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有