photoup.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 23 行

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/upload.asp"-->
<!--#include file="../inc/conn.asp"-->
<%
set upload=new upload_5xSoft ''建立上传对象
	formPath="../Photo/"'上传目录
	'开始上传图片
		set file1=upload.file("File1")
		filename1=upload.form("ID")
		if file1.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
			file1.SaveAs Server.mappath(formPath&filename1&".jpg")   ''保存文件
		'上传图片成功
			sql="Update tbioaUser set Photo='"&filename1&".jpg' where ID="& filename1
			oConn.execute (sql)
			response.write "<script language='javascript'>opener.location.reload();window.close();</script>"
		else
			response.write "请选择要上传的图片文件<br><br>正在自动返回……<script language='javascript'>window.setTimeout(""this.location = 'javascript:history.back()';"",1000);</script>"
		end if
response.end

%>
<!--#include file="../inc/conn_close.asp"-->