www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\source_\person_infopic_updata.asp

    <!--#include FILE="inc/upload_5xsoft.inc"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="per_session.asp"-->
<!--#include file="resultred.asp"-->
<%
 dim upload,file,formName,formPath,iCount
 set upload=new upload_5xSoft ''建立上传对象
 '//////////////上传相片////////////////////////////////////////////////
 set file=upload.file("local_pic")  ''生成一个文件对象
	if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
		file_exs=split(file.FileName,".")
		file_exname=file_exs(UBound(file_exs)) ''文件名
		if not (file_exname<>"gif" or file_exname<>"jpg" or file_exname<>"jpg" or file_exname<>"bmp") then
		result=Server.urlEncode("只能上传格式为gif,jpg或者bmp的图象，请返回")
		Response.Redirect"result.asp?result="&result
		end if
		if file.FileSize/1024>900 then
		result=Server.urlEncode("只能上传大小为900k以内的图象，请返回")
		Response.Redirect "result.asp?result="&result
		end If
		file_name=year(now())&month(now())&day(now())&minute(now())&second(now())&"."&file_exname
		file.SaveAs Server.mappath("\images\person_pic\"&file_name)   ''保存文件
		set file=nothing
		set upload=nothing  ''删除此对象
	set Rs=Server.CreateObject("Adodb.RecordSet")
	sql="select * from job_person where per_id="&session("per_id")
	Rs.Open sql,conn,3,3
    Rs("pic")=file_name
	Rs.Update
	Rs.close
	Response.Redirect "person_myself.asp?result=上传成功"
	end if
	Response.Redirect "person_myself.asp?result=没有上传相片"
 '//////////////上传相片结束///////////////////////////////////////////////
 %>