<%
'''''cls_load.asp为那个上传组件
dim sql
if session("autouserid")="" or trim(request("autouserid"))="deleted" then
response.Redirect "log.asp?fm=modadvs.asp"
response.End
else
userid=session("autouserid")
end if
%>
<%
dim upload,file,sfilename,bfilename,formName,sPath,bPath,iCount
set upload=new upload_5xSoft ''建立上传对象
set file=upload.file("jpg") '上传图片
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
bfilename=file.FileName
file.SaveAs Server.mappath("/banner/"&userid&".jpg") ''保存文件
end if
set file=nothing
objconn.execute "update xxrl_auto_user set bannerurl='"&bannerurl&"' where userid='"&userid&"'"
objconn.close
Alert_ReDirect "更新广告成功!","modadvs.asp"
response.End
%>