photoup.asp

武汉软件园人力资源管理系统完整源代码,希望大家能够多多交流.

<!--#include file="upload_5xsoft.inc"-->
<!--#include file="../Include/conn.asp"-->
<%
dim per_id,file,f

set upload=new upload_5xsoft

per_id=upload.form("p_id")     '接收文本

'Response.Write per_id

set file=upload.file("file")    '接收文件,并实例化对象
'Response.Write file.filesize
'Response.Write file.filetype
'Response.End

if file.filesize>100000 then
Response.Write "<script language='javascript'>"
Response.Write "alert('上传图片尺寸超过限制!');"
Response.Write "window.history.go(-1);"
Response.Write "</script>"
end if

if file.filetype<>"image/pjpeg" and file.filetype<>"image/bmp" and file.filetype<>"image/gif" then
Response.Write "<script language='javascript'>"
Response.Write "alert('上传图片类型错误!');"
Response.Write "window.history.go(-1);"
Response.Write "</script>"
end if

public function SaveTobox(smid)

set dr=server.createobject("adodb.stream")
dr.Mode=3
dr.Type=1
dr.Open
Data_5xsoft.position=file.filestart
Data_5xsoft.copyto dr,file.filesize

dim res
set res=server.CreateObject("adodb.recordset")
res.Open "select personnel_photo from personnel where personnel_id="&smid,conn,1,3

dr.Position=0
res("personnel_photo").AppendChunk dr.Read
res.Update 
res.Close
set res=nothing
dr.Close
set dr=nothing
end function

call SaveTobox(per_id)
set file=nothing
conn.close
set conn=nothing

Response.Write "<SCRIPT LANGUAGE='javascript'>"
Response.Write "document.location='Allshow_emly.asp?id="&per_id&"'"
Response.Write "</SCRIPT>"

%>