muser_save.asp

shopxp网上购物系统v6.6已经调试,百分百可用

<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!-- #include file="Session.asp" -->
<!--#include file="upload_5xsoft.inc"-->
<%
function GetExtendName(FileName)
  dim ExtName
  ExtName = LCase(FileName)
  ExtName = right(ExtName,3)
  ExtName = right(ExtName,3-Instr(ExtName,"."))
  GetExtendName = ExtName
end function

dim upload,file,formName,formPath 
set upload=new upload_5xSoft

formPath="nUser_logo"
if right(formPath,1)<>"/" then formPath=formPath&"/"

for each formName in upload.file
	set file=upload.file(formName)
	filesize=file.FileSize

	if filesize>0 then
		if filesize>51200 then
			response.write "<BR><BR><center>图片大小限制在50K以下<center>"
			response.end
		end if
		vfname=UserID
	
		FileExt1=GetExtendName(file.FileName)
		if FileExt1<>"jpg" and FileExt1<>"gif" then
			response.write "<BR><BR><center>只能上传gif,jpg类型的图片<center>"
			response.end
		end if
		fname = vfname & "." & GetExtendName(file.FileName)
		file.SaveAs Server.mappath(formPath&fname)
	end if
next

sql="select * from kheu_nUser where user_id="&UserID
set rsr=server.createobject("adodb.recordset")
rsr.open sql,conn,1,3

if filesize>0 then
rsr("user_face")=fname
end if

rsr.update
rsr.close
conn.close
response.redirect "mUser.asp"

%>