photoup.asp

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

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

set upload=new upload_5xsoft

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

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

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 rs
set rs=server.CreateObject("adodb.recordset")
Dim strAction
strAction=Trim(request.querystring("action"))
Select Case strAction
Case "addresume"
rs.Open "select * from save_image where 1=2",conn,1,3
If rs.eof And rs.bof then
dr.Position=0
rs.addnew
rs("resume_image").AppendChunk dr.Read
rs.Update 
rs.Close
rs.open "select top 1 image_id from save_image order by image_id desc",conn,3,3 '找出刚刚存入表中的图片的id
session("image_id")=rs("image_id")
rs.Close
set rs=Nothing
Else
response.write "<script language=javascript>alert('上传失败,稍后再试!');window.close();</script>"
End If
dr.Close
set dr=nothing
set file=nothing
conn.close
set conn=nothing
Response.Write "<center>上传成功！<br><br><a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a></center>"


Case "editresume"
Dim intResId
intResId=Trim(request.querystring("resid"))
rs.Open "select resume_photo from resume where resume_id="&intResId,conn,1,3
'If rs.eof And rs.bof then
dr.Position=0
rs("resume_photo").AppendChunk dr.Read
rs.Update 
rs.Close
set rs=Nothing
'Else
''response.write "<script language=javascript>alert('上传失败,稍后再试!');window.close();</script>"
'End If
dr.Close
set dr=nothing
set file=nothing
conn.close
set conn=nothing
Response.Write "<center>上传成功！<br><br><a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a></center>"
End Select 
%>