gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\UpLoadPic.asp
<!--#include FILE="upload.asp"--> <HTML> <HEAD> <TITLE>上传学生图片</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <link rel=stylesheet type=text/css href=sn.css> </HEAD> <BODY bgcolor="menu"> <FORM onSubmit="if(document.forms[0].nlFile.value.length == 0){alert('请选择一张图片再上传');return false;}" action="uploadpic.asp?langtype=cn&a=up" method="post" encType="multipart/form-data"> <table width="100%" border="0" cellspacing="5"> <tr> <td><input type="hidden" name="MAX_FILE_SIZE" value="31457280"> <INPUT name=nlFile type=file size=32> </td> </tr> <tr> <td align="right"><INPUT type=submit value=上传 name=sAction> <INPUT name="button" type=button onClick="javascript: window.close();" value=取消> <% if request("a")="up" then dim upload,file,formName,formPath,iCount set upload=new upload_5xSoft ''建立上传对象 '--------将日期转化成文件名-------- function MakedownName() dim fname fname = now() fname = replace(fname,"-","") fname = replace(fname," ","") fname = replace(fname,":","") fname = replace(fname,"PM","") fname = replace(fname,"AM","") fname = replace(fname,"上午","") fname = replace(fname,"下午","") fname = int(fname) + int((10-1+1)*Rnd + 1) MakedownName=fname end function formPath="upload/" '上传后文件的目录,必须先建好,否则出错 iCount=0 for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName) ''生成一个文件对象 if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 IF cint(file.FileSize/1024)>=150 THEN response.write "上传图片大小不得大于150K,<A HREF='javascript:history.back(1)'>返回</A>" response.end end if newname=MakedownName()&"."&mid(file.FileName,InStrRev(file.FileName, ".")+1) '---------------------------------------------------------- FileExt="jpg*png*bmp*gif*Gif" Path=formPath&newname Ext = LCase(Mid(Path, InStrRev(Path, ".") + 1)) Fileok=split(FileExt,"*") quok=1 For qu=0 to Ubound(Fileok) If Ext = Fileok(qu) Then quok=0 End if Next If quok=1 then response.Write("<script language=javascript>window.alert('上传类型不允许\n请重新上传');</script>") response.End() End if '------------------------------------------------------------------- m= file.SaveAs (Server.mappath(formPath&newname)) ''保存文件 if m= 1 then response.Write("<script language=javascript>window.alert('上传过程中出现问题\n请重新上传');</script>") response.End() end if iCount=iCount+1 else response.write "未找到文件 <A HREF=javascript:history.back(1)>返回</A>" response.end end if next '------------------------------------------------------ Dim str response.Write("<script language=javascript>window.alert('上传学生图片成功!');</script>") str="<script language=javascript>" Str=str + "returnValue = '" + formPath&newname + "';" Str=str + "window.close();" Str=str +"</script>" Response.Write(str) '----------------------------------------------------------- end if %> </td> </tr> </table> </FORM> </BODY> </HTML> <script> function check() { if(document.forms[0].webimg.value.length == 0) alert('请填写图片地址!'); else parent.parent.sSendURL(document.forms[0].webimg.value); } </script>