editface.asp

来自「=== === === === === === === === === 项目：」· ASP 代码 · 共 26 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<!--#include file="global.asp" -->
<!--#include file="inc/upload.inc"-->
<%
'upload
dim upload,file,formName,iCount,fname
set upload=new upload_5xSoft ''建立上传对象

iCount=0
for each formName in upload.file ''列出所有上传了的文件
	set file=upload.file(formName)  ''生成一个文件对象
	if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
		fname = Session("cardno") & "." & GetExtendName(file.FileName)
		file.SaveAs Server.mappath("upload/"&fname)   ''保存文件
		executeUpdate("Update Borrowers Set picture='"&fname&"' Where cardno=" & Session("cardno"))
		iCount=iCount+1	
		i=i+1
		set file=nothing
	end if
next
set upload=nothing  ''删除此对象
addLog "","","用户更新头像。"
freshTo "头像已经修改。","Profile.asp"
%>