photoup.asp.bak

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

<!--#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()
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")
rs.Open "select images from save_image",conn,1,3
If rs.eof And rs.bof then
dr.Position=0
rs.addnew
rs("images").AppendChunk dr.Read
rs.Update 
rs.Close
set rs=Nothing
Else
response.write "<script language=javascript>alert('上传失败,稍后再试!');history.go(-1);</script>"
End If

dr.Close
set dr=nothing
end function

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

Response.Write "<SCRIPT LANGUAGE='javascript'>location.href='R_resume.asp?stage=0';</SCRIPT>"
'Response.Write "document.location='Allshow_emly.asp?id="&per_id&"'"
'Response.Write "</SCRIPT>"
%>