editphoto.asp

我的课程设计

<!--#include file="conn.asp" -->
<!--#include file="inc/upload_5xsoft.inc" -->
<!--#include file="ADOFunctions.asp"-->
<%
set upload=new upload_5xSoft
set file=upload.file("file1")
formPath="upload/"
if file.filesize>1000 then
fileExt=lcase(right(file.filename,3))
if fileExt="asp" then
Response.Write"文件类型非法"
end if
end if
filename=formPath&session("cardnumber")&"."&fileExt
filename1=session("cardnumber")&"."&fileExt
if file.FileSize>0 then 
file.SaveAs Server.mappath(FileName)
Dim rs,strsql,cnumber
strsql="Select picture From borrowers Where cardno='" &Session("cardnumber")& "'"
set rs=GetSQLRecordset(strsql,"book.mdb","borrowers")
rs("picture")=filename1
rs.update
rs.close
set file=nothing
set upload=nothing

set rs=nothing
end if
response.Redirect("perinfo.asp")
%>