asp上传类2

最新推荐文章于 2022-07-12 17:25:16 发布

ninja

最新推荐文章于 2022-07-12 17:25:16 发布

阅读量1.5k

点赞数

分类专栏： Asp 文章标签： asp function stylesheet input border class

本文链接：https://blog.csdn.net/ldl22847/article/details/4899641

版权

Asp 专栏收录该内容

80 篇文章 0 订阅

订阅专栏

1.html代码 formname是表单name,editname是文件域name,uppath是上传文件保存路径.

2.upload.asp

<% uppath=request("uppath")&"/" filelx=request("filelx") formName=request("formName") EditName=request("EditName") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link href="css.css" mce_href="css.css" rel="stylesheet" type="text/css"> <mce:script language="javascript"></mce:script> <title>图片上传</title></head> <body> <form name="form1" method="post" action="upfile.asp" enctype="multipart/form-data" > <div id="esave" style="position:absolute; top:18px; left:40px; z-index:10; visibility:hidden"> <TABLE WIDTH=340 BORDER=0 CELLSPACING=0 CELLPADDING=0> <TR><td width=20%></td> <TD bgcolor=#ff0000 width="60%"> <TABLE WIDTH=100% height=120 BORDER=0 CELLSPACING=1 CELLPADDING=0> <TR> <td bgcolor=#ffffff align=center><font color=red>正在上传文件，请稍候...</font></td> </tr> </table> </td><td width=20%></td> </tr></table></div> <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF"> <tr> <td align="center" background="images/admin_bg_1.gif"><b><font color="#ffffff">图片上传 <input type="hidden" name="filepath" value="<%=uppath%>"> <input type="hidden" name="filelx" value="<%=filelx%>"> <input type="hidden" name="EditName" value="<%=EditName%>"> <input type="hidden" name="FormName" value="<%=formName%>"> <input type="hidden" name="act" value="uploadfile"></font></b> </td> </tr> <tr > <td align="center" id="upid" height="80">选择文件: <input type="file" name="file1" size="40" class="tx1" value=""> <input type="submit" name="Submit" value="开始上传" class="button" onClick="javascript:mysub()"> </td> </tr> </table> </form> </body> </html>

3.upfile.asp

4.upload.inc

<% '---------------------------------------------------------------------- '转发时请保留此声明信息,这段声明不并会影响你的速度! '******************* 无惧上传类 V1.0 ********************************* '作者:梁无惧 '网站:http://www.25cn.com '电子邮件:yjlrb@21cn.com '版权声明:版权所有,源代码公开,各种用途均可免费使用,但是修改后必须把修改后的文件 '发送一份给作者. '*********************************************************************** '*********************************************************************** '上传类强化记录 '修改者：Fssunwin '---------------------------------------------------------------------- '添加以下属性： 'InceptFileType 允许上传的文件类型，以英文逗号“,”分隔。 '添加以下方法： 'FileWidth 图片宽度 'FileHeight 图片高度 '---------------------------------------------------------------------- '*********************************************************************** Dim oUpFileStream Class UpFile_Class Public Form,File,Version,Err Private CHK_FileType,CHK_MaxSize Private Sub Class_Initialize Version = "无惧上传类 Version V1.0" Err = -1 CHK_FileType = "" CHK_MaxSize = -1 Set Form = Server.CreateObject ("Scripting.Dictionary") Set File = Server.CreateObject ("Scripting.Dictionary") Set oUpFileStream = Server.CreateObject ("Adodb.Stream") Form.CompareMode = 1 File.CompareMode = 1 oUpFileStream.Type = 1 oUpFileStream.Mode = 3 oUpFileStream.Open End Sub Private Sub Class_Terminate '清除变量及对像 Form.RemoveAll Set Form = Nothing File.RemoveAll Set File = Nothing oUpFileStream.Close Set oUpFileStream = Nothing End Sub Public Property Get InceptFileType InceptFileType = CHK_FileType End Property Public Property Let InceptFileType(Byval vType) CHK_FileType = vType End Property Public Property Get MaxSize MaxSize = CHK_MaxSize End Property Public Property Let MaxSize(vSize) If IsNumeric(vSize) Then CHK_MaxSize = Int(vSize) End Property Public Sub GetDate() '定义变量 Dim RequestBinDate,sSpace,bCrLf,sInfo,iInfoEnd,tStream,iStart,oFileInfo Dim sFormValue,sFileName,sFormName,RequestSize Dim iFindStart,iFindEnd,iFormStart,iFormEnd,FileBlag '代码开始 RequestSize = Int(Request.TotalBytes) If RequestSize < 1 Then Err = 1 Exit Sub End If Set tStream = Server.CreateObject ("Adodb.Stream") oUpFileStream.Write Request.BinaryRead (RequestSize) oUpFileStream.Position = 0 RequestBinDate = oUpFileStream.Read iFormEnd = oUpFileStream.Size bCrLf = ChrB (13) & ChrB (10) '取得每个项目之间的分隔符 sSpace = MidB (RequestBinDate,1, InStrB (1,RequestBinDate,bCrLf)-1) iStart = LenB (sSpace) iFormStart = iStart+2 '分解项目 Do iInfoEnd = InStrB (iFormStart,RequestBinDate,bCrLf & bCrLf)+3 tStream.Type = 1 tStream.Mode = 3 tStream.Open oUpFileStream.Position = iFormStart oUpFileStream.CopyTo tStream,iInfoEnd-iFormStart tStream.Position = 0 tStream.Type = 2 tStream.CharSet = "gb2312" sInfo = tStream.ReadText '取得表单项目名称 iFormStart = InStrB (iInfoEnd,RequestBinDate,sSpace)-1 iFindStart = InStr(22,sInfo,"name=""",1)+6 iFindEnd = InStr(iFindStart,sInfo,"""",1) sFormName = Mid(sinfo,iFindStart,iFindEnd-iFindStart) '如果是文件 If InStr(45,sInfo,"filename=""",1) > 0 Then Set oFileInfo = new FileInfo_Class '取得文件属性 iFindStart = InStr(iFindEnd,sInfo,"filename=""",1)+10 iFindEnd = InStr(iFindStart,sInfo,"""",1) sFileName = Mid(sinfo,iFindStart,iFindEnd-iFindStart) oFileInfo.FileName = Mid(sFileName,InStrRev(sFileName, "/")+1) oFileInfo.FilePath = Left(sFileName,InStrRev(sFileName, "/")) oFileInfo.FileExt = Lcase(Mid(sFileName,InStrRev(sFileName, ".")+1)) iFindStart = InStr (iFindEnd,sInfo,"Content-Type: ",1)+14 iFindEnd = InStr (iFindStart,sInfo,vbCr) oFileInfo.FileType = Ucase(Mid(sinfo,iFindStart,iFindEnd-iFindStart)) oFileInfo.FileStart = iInfoEnd oFileInfo.FileSize = iFormStart -iInfoEnd -2 oFileInfo.FormName = sFormName If Instr(oFileInfo.FileType,"IMAGE/") Or Instr(oFileInfo.FileType,"FLASH") Then FileBlag = GetImageSize oFileInfo.FileExt = FileBlag(0) oFileInfo.FileWidth = FileBlag(1) oFileInfo.FileHeight = FileBlag(2) FileBlag = Empty End If If CHK_MaxSize > 0 Then If oFileInfo.FileSize > CHK_MaxSize Then Err = 2 Exit Sub End If End If If CheckErr(oFileInfo.FileExt) = False Then Exit Sub File.Add sFormName,oFileInfo Else '如果是表单项目 tStream.Close tStream.Type = 1 tStream.Mode = 3 tStream.Open oUpFileStream.Position = iInfoEnd oUpFileStream.CopyTo tStream,iFormStart-iInfoEnd-2 tStream.Position = 0 tStream.Type = 2 tStream.CharSet = "gb2312" sFormValue = tStream.ReadText If Form.Exists (sFormName) Then _ Form (sFormName) = Form (sFormName) & ", " & sFormValue _ Else _ Form.Add sFormName,sFormValue End If tStream.Close iFormStart = iFormStart+iStart+2 '如果到文件尾了就退出 Loop Until (iFormStart+2) = iFormEnd RequestBinDate = "" Set tStream = Nothing End Sub '==================================================================== '验证上传类型 '==================================================================== Private Function CheckErr(Byval ChkExt) CheckErr=False If CHK_FileType = "" Then CheckErr=True : Exit Function Dim ChkStr ChkStr = ","&Lcase(CHK_FileType)&"," If Instr(ChkStr,","&ChkExt&",")>0 Then _ CheckErr=True _ Else _ Err = 3 End Function '==================================================================== '图像宽高类型读取 '==================================================================== Private Function Bin2Str(Byval Bin) Dim i, Str, Sclow For i = 1 To LenB(Bin) Sclow = MidB(Bin,i,1) If ASCB(Sclow)<128 Then Str = Str & Chr(ASCB(Sclow)) Else i = i+1 If i <= LenB(Bin) Then Str = Str & Chr(ASCW(MidB(Bin,i,1)&Sclow)) End If Next Bin2Str = Str End Function Private Function Num2Str(Byval num,Byval Base,Byval Lens) Dim ImageSize ImageSize = "" While(num>=Base) ImageSize = (num mod Base) & ImageSize num = (num - num mod Base)/Base Wend Num2Str = Right(String(Lens,"0") & num & ImageSize,Lens) End Function Private Function Str2Num(Byval str,Byval Base) Dim ImageSize,i ImageSize = 0 For i=1 To Len(str) ImageSize = ImageSize *Base + Cint(Mid(str,i,1)) Next Str2Num = ImageSize End Function Private Function BinVal(Byval bin) Dim ImageSize,i ImageSize = 0 For i = lenb(bin) To 1 Step -1 ImageSize = ImageSize *256 + ASCB(Midb(bin,i,1)) Next BinVal = ImageSize End Function Private Function BinVal2(Byval bin) Dim ImageSize,i ImageSize = 0 For i = 1 To Lenb(bin) ImageSize = ImageSize *256 + ASCB(Midb(bin,i,1)) Next BinVal2 = ImageSize End Function Private Function GetImageSize() Dim ImageSize(2),bFlag bFlag = oUpFileStream.Read(3) Select Case Hex(BinVal(bFlag)) Case "4E5089": oUpFileStream.Read(15) ImageSize(0) = "png" ImageSize(1) = BinVal2(oUpFileStream.Read(2)) oUpFileStream.Read(2) ImageSize(2) = BinVal2(oUpFileStream.Read(2)) Case "464947": oUpFileStream.Read(3) ImageSize(0) = "gif" ImageSize(1) = BinVal(oUpFileStream.Read(2)) ImageSize(2) = BinVal(oUpFileStream.Read(2)) Case "535746": Dim BinData,sConv,nBits oUpFileStream.Read(5) BinData = oUpFileStream.Read(1) sConv = Num2Str(ASCB(BinData),2 ,8) nBits = Str2Num(Left(sConv,5),2) sConv = Mid(sConv,6) While(Len(sConv)<nBits*4) BinData = oUpFileStream.Read(1) sConv = sConv&Num2Str(ASCB(BinData),2 ,8) Wend ImageSize(0) = "swf" ImageSize(1) = Int(ABS(Str2Num(Mid(sConv,1*nBits+1,nBits),2)-Str2Num(Mid(sConv,0*nBits+1,nBits),2))/20) ImageSize(2) = Int(ABS(Str2Num(Mid(sConv,3*nBits+1,nBits),2)-Str2Num(Mid(sConv,2*nBits+1,nBits),2))/20) Case "535743":'flashmx ImageSize(0) = "swf" ImageSize(1) = 0 ImageSize(2) = 0 Case "FFD8FF": Dim p1 Do Do: p1 = BinVal(oUpFileStream.Read(1)): Loop While p1 = 255 And Not oUpFileStream.EOS If p1>191 and p1<196 Then Exit Do Else oUpFileStream.Read(BinVal2(oUpFileStream.Read(2))-2) Do:p1 = BinVal(oUpFileStream.Read(1)):Loop While p1<255 And Not oUpFileStream.EOS Loop While True oUpFileStream.Read(3) ImageSize(0) = "jpg" ImageSize(2) = BinVal2(oUpFileStream.Read(2)) ImageSize(1) = BinVal2(oUpFileStream.Read(2)) Case Else: If Left(Bin2Str(bFlag),2) = "BM" Then oUpFileStream.Read(15) ImageSize(0) = "bmp" ImageSize(1) = BinVal(oUpFileStream.Read(4)) ImageSize(2) = BinVal(oUpFileStream.Read(4)) Else ImageSize(0) = "(UNKNOWN)" End If End Select GetImagesize = ImageSize End Function End Class '文件属性类 Class FileInfo_Class Public FormName,FileName,FilePath,FileSize,FileType,FileStart,FileExt,FileWidth,FileHeight Private Sub Class_Initialize FileWidth=0 FileHeight=0 End Sub '保存文件方法 Public Sub SaveToFile (Byval Path) Dim Ext,oFileStream Ext = LCase(Mid(Path, InStrRev(Path, ".") + 1)) If Ext <> FileExt Then Exit Sub On Error Resume Next Set oFileStream = CreateObject ("Adodb.Stream") oFileStream.Type = 1 oFileStream.Mode = 3 oFileStream.Open oUpFileStream.Position = FileStart oUpFileStream.CopyTo oFileStream,FileSize oFileStream.SaveToFile Path,2 oFileStream.Close Set oFileStream = Nothing End Sub '取得文件数据 Public Function FileData oUpFileStream.Position = FileStart FileData = oUpFileStream.Read (FileSize) End Function End Class %>

5.css.css

td { FONT-SIZE:9pt; LINE-HEIGHT:150%; COLOR: #353535 } body { FONT-SIZE:9pt; LINE-HEIGHT:150%; BACKGROUND-COLOR:#f7f7f7 COLOR: #666666; SCROLLBAR-3DLIGHT-COLOR: buttonhighlight; SCROLLBAR-ARROW-COLOR: #333333; SCROLLBAR-TRACK-COLOR: #eeeeee; BORDER-BOTTOM: #ffffff 0pt solid; FONT-STYLE: normal; FONT-FAMILY: "宋体"; SCROLLBAR-DARKSHADOW-COLOR: buttonshadow; } a:link { color: #333333; text-decoration: none } a:visited { color: #333333; text-decoration: none } a:active { c olor: #333333; text-decoration: none } a:hover { color: #ff0000; text-decoration: none; position: relative; right: 0px; top: 1px } A:unknown LINK { TEXT-DECORATION: none } .list_link { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #8d1c1c; TEXT-DECORATION: none } .wenbenkuang { BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #999999 1px solid; COLOR: #333333; BORDER-BOTTOM: #999999 1px solid; FONT-FAMILY: "宋体" } .wbkuang { BORDER-RIGHT: #14B24B 1px solid; BORDER-TOP: #14B24B 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #14B24B 1px solid; COLOR: #333333; BORDER-BOTTOM: #14B24B 1px solid; FONT-FAMILY: "宋体" } .go-wenbenkuang { BORDER-RIGHT: #666666 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: #ffffff 1px solid; PADDING-LEFT: 1px; FONT-SIZE: 9pt; PADDING-BOTTOM: 1px; BORDER-LEFT: #ffffff 1px solid; CURSOR: hand; COLOR: #333333; PADDING-TOP: 1px; BORDER-BOTTOM: #666666 1px solid; FONT-FAMILY: "宋体"; HEIGHT: 19px; BACKGROUND-COLOR: #CDCDCD } .table-zuoyou { BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid } .table-shangxia { BORDER-TOP: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid } .table-you { BORDER-RIGHT: #cccccc 1px solid } .table-zuo { BORDER-LEFT: #cccccc 1px solid } .table-shang { BORDER-TOP: #cccccc 1px solid } .table-xia { BORDER-BOTTOM: #cccccc 1px solid } .table-xu { BORDER-BOTTOM: #cccccc 1px dotted } .matrix { FONT-SIZE: 12px } .matrix A { COLOR: #93393a } .matrix_sub { BORDER-RIGHT: #c9c9c9 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: 0px; PADDING-LEFT: 4px; BACKGROUND-IMAGE: url(_images/botton2.gif); PADDING-BOTTOM: 4px; BORDER-LEFT: #c9c9c9 1px solid; COLOR: #000000; PADDING-TOP: 1px; BORDER-BOTTOM: #c9c9c9 1px solid; BACKGROUND-COLOR: #f7f7f7 } .matrix_header { BORDER-RIGHT: #c9c9c9 1px solid; BORDER-TOP: #c9c9c9 1px solid; PADDING-LEFT: 5px; BACKGROUND-IMAGE: url(_images/botton2.gif); PADDING-BOTTOM: 6px; BORDER-LEFT: #c9c9c9 1px solid; COLOR: #00469e; PADDING-TOP: 6px; BORDER-BOTTOM: #838383 1px solid; BACKGROUND-COLOR: #ffffff } .matrix_info { BORDER-RIGHT: #c9c9c9 1px solid; PADDING-RIGHT: 4px; PADDING-LEFT: 4px; PADDING-BOTTOM: 4px; BORDER-LEFT: #c9c9c9 1px solid; PADDING-TOP: 4px; BORDER-BOTTOM: #eae9e9 1px solid; BACKGROUND-COLOR: #f7f7f7 } .matrix_info_header { BORDER-RIGHT: #c9c9c9 1px solid; PADDING-RIGHT: 4px; BORDER-TOP: #c9c9c9 1px solid; PADDING-LEFT: 4px; PADDING-BOTTOM: 4px; BORDER-LEFT: #c9c9c9 1px solid; PADDING-TOP: 4px; BORDER-BOTTOM: #eae9e9 1px solid; BACKGROUND-COLOR: #ebeaea } .matrix_content { COLOR: #353535; BACKGROUND-COLOR: #ffffff } .matrix_left { BORDER-LEFT: #c9c9c9 1px solid } .error { BORDER-RIGHT: #ff0000 2px solid; BORDER-TOP: #ff0000 2px solid; BORDER-LEFT: #ff0000 2px solid; WIDTH: 95%; BORDER-BOTTOM: #ff0000 2px solid; BACKGROUND-COLOR: #ffdede } .error TD { FONT-SIZE: 12px; COLOR: #ff0000 } .error .title { BACKGROUND-COLOR: #ff9393 } .error .title TD { FONT-WEIGHT: bold; FONT-SIZE: 12px; COLOR: #ffffff } .select { BORDER-TOP: #c4c4c4 1px solid; BORDER-LEFT: #c4c4c4 1px solid } .tableBorder { BORDER-RIGHT: #AAAAE0 1px solid; BORDER-TOP: #AAAAE0 1px solid; BORDER-LEFT: #AAAAE0 1px solid; WIDTH: 98%; BORDER-BOTTOM: #AAAAE0 1px solid; BACKGROUND-COLOR: #FBF4F4 } .color { FONT-SIZE: 12px; COLOR: #d7fd62; TEXT-DECORATION: none } .line { FONT-SIZE: 12px; LINE-HEIGHT: 25px; TEXT-DECORATION: none } .unnamed1 { FONT-SIZE: 12px; COLOR: #000000; TEXT-DECORATION: none } .unnamed2 { FONT-SIZE: 12px; LINE-HEIGHT: 25px; TEXT-DECORATION: none } TABLE.menuend { margin: 0px; padding: 0px; } a.menu, a.menu:LINK, a.menu:VISITED{ color: #777; font-weight: bold; font-size: 12px; font-family: 宋体,Arial; text-decoration: none; background-color: #eee; text-transform: uppercase; float: left; padding: 4px 8px; border-top: 1px solid #ccc; border-right: 1px solid #ccc; border-bottom: none; border-left: 1px solid #888 } a.menu:hover { color: white; text-decoration: none; background-color: #d03838; float: left; border-top: 1px solid #d03838; border-right: 1px solid #d03838; border-left: 1px solid #888 } a.menuselect:visited{ color: white; font-weight: bold; font-size: 12px; font-family: 宋体,Arial; text-decoration: none; background-color: #0092C3; text-transform: uppercase; float: left; padding: 4px 8px; border-top: 1px solid #0092C3; border-right: 1px solid #0092C3; border-left: 1px solid #888} a.menuselect { color: white; font-weight: bold; font-size: 12px; font-family: 宋体,Arial; text-decoration: none; background-color: #0092C3; text-transform: uppercase; float: left; padding: 4px 8px; border-top: 1px solid #0092C3; border-right: 1px solid #0092C3; border-left: 1px solid #888 } a.menuselect:hover { color: white; font-weight: bold; font-size: 12px; font-family: 宋体,Arial; text-decoration: none; text-transform: uppercase; float: left; padding: 4px 8px; border-top: 1px solid #0092C3; border-right: 1px solid #0092C3; border-left: 1px solid #888 } .menutop { BORDER-left:#CC0033 1px solid; BORDER-top:#CC0033 1px solid; BORDER-right:#CC0033 1px solid; } .menumiddle { BORDER-left:#CC0033 1px solid;BORDER-right:#CC0033 1px solid; } .menubottom { BORDER-bottom:#CC0033 1px solid;BORDER-left:#CC0033 1px solid; BORDER-right:#CC0033 1px solid; } .menuvoer { BORDER-bottom:#CC0033 1px solid;BORDER-left:#CC0033 1px solid; BORDER-right:#CC0033 1px solid; BORDER-top:#CC0033 1px solid;} table { font-size: 12px; line-height: 22px; color: #333333; text-decoration: none; } A.a01 { font-size: 12px; color: #ffffff; text-decoration: none; filter: Shadow(Color=#333333, Direction=90); } A.a01:hover { font-size: 12px; color: #FFFF00; text-decoration: none;} A { font-size: 12px; line-height: 22px; color: #333333; text-decoration: none; } A:hover { font-size: 12px; line-height: 22px; color: #ff0000; text-decoration: none; position: relative; right: 0px; top: 1px } .form { font-size: 12px; color: #333333; text-decoration: none; background-color: FFFBFB; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-color: #666666; border-right-color: #FFFFFF; border-bottom-color: #FFFFFF; border-left-color: #666666; } .form2 { font-size: 12px; color: #FFFF00; text-decoration: none; background-color: FF92BD; border: 1px solid #FFFFFF; } .form3 { font-size: 12px; color: #333333; text-decoration: none; background-color: FBFBFF; border-top-width: 1px; border-right-width: 1px; border-bottom-width: 1px; border-left-width: 1px; border-top-style: solid; border-right-style: solid; border-bottom-style: solid; border-left-style: solid; border-top-color: #666666; border-right-color: #FFFFFF; border-bottom-color: #FFFFFF; border-left-color: #666666; } .form4 { font-size: 12px; color: #FFFFFF; text-decoration: none; background-color: 278BC2; border: 1px solid #FFFFFF; } .button { font-size: 12px; color: #FF0000; text-decoration: none; background-color: #FFCC00; border-top: 1px solid #FFFFFF; border-right: 1px solid #666666; border-bottom: 1px solid #666666; border-left: 1px solid #FFFFFF; } .date { font-family: "Arial", "Helvetica", "sans-serif"; font-size: 10px; color: #FF6666; text-decoration: none; } .bg01 { background-repeat: no-repeat; } .unnamed2 { font-size: 12px; filter: DropShadow(Color=FF79AE, OffX=1, OffY=1, Positive=1); color: #FFFFFF; } .clogin .c1 { border:0; width:50px; height:18px; padding:2px 0 0; font-size:12px; background:url(images/input_bg.gif); } .clogin .c2 { border:0; width:80px; height:18px; padding:2px 0 0; font-size:12px; background:url(images/input_bg2.gif); }

ninja

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
1
评论
asp上传类2

1.html代码 formname是表单name,editname是文件域name,uppath是上传文件保存路径. 2.upload.asp<%uppath=request("uppath")&"/" filelx=request("filelx") formName=request("formName") Edit
复制链接

扫一扫