www.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>