<%Server.ScriptTimeOut=5000%> <%=jbm%>个人信息管理 <%dim upload,file,formName,formPath,iCount,exeec,wjm,zid,js,zzt wjdx = 0 uploadname = "png|gif|bmp|jpg" ''=============================================================================== set Upload=new AnUpLoad ''创建类实例 Upload.SingleSize=clng(2000 * 1024) ''设置单个文件最大上传限制,按字节计；默认为不限制 Upload.MaxSize=clng(1000 * 1024) * 1024 ''设置最大上传限制,按字节计；默认为不限制 Upload.Exe = uploadname ''设置合法扩展名,以|分割,忽略大小写 Upload.Charset="gb2312" ''设置文本编码，默认为gb2312 Upload.GetData() ''获取并保存数据,必须调用本方法 ''=============================================================================== cz=upload.forms("cz") mm=upload.forms("mm") yhm=upload.forms("yhm") qm=upload.forms("qm") sex=upload.forms("sex") aqwt=upload.forms("aqwt") aqda=upload.forms("aqda") lxfs=upload.forms("lxfs") syhm = session(sessionvalue + "yhm") if yhm<>"" then brzp = "icon/" if Upload.ErrorID>0 then ''判断错误号,如果myupload.Err<=0表示正常 response.Write Upload.description cg = "2" else path = server.mappath( brzp ) ''文件保存路径(这里是files文件夹) for i=1 to Upload.files(-1).count ''这里判断你是否选择了文件 ''保存第一个文件(以新文件名保存) set tempCls=Upload.files("file1") Set e = tempCls.SaveToFile(path,0 ) if e.error then response.Write e.description cg = "2" else wjm = brzp & tempCls.FileName kzm = lcase(right(wjm,3)) if instr(".png.gif.bmp.jpg",kzm) = 0 then Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(server.mappath(wjm)) set fso = nothing wjm = "" else cg = "1" end if end if set tempCls=nothing next end if if cg = "1" then zp1 = ",zp='" & wjm & "'" session(sessionvalue + "zp") = wjm end if if mm <> "" then session(sessionvalue + "pass")=mm mm=",pass='" + md5(mm) + "'" end if if cg <> "2" then exec="update yrwl_tb_admin set qm='"&qm&"',sex='"&sex&"',aqwt='"&aqwt&"',aqda='"&aqda&"',lxfs='"&lxfs&"' "+mm+zp1+" where yhm='"&syhm&"'" conn.execute exec session(sessionvalue + "lxfs") = lxfs session(sessionvalue&"aqwt")=aqwt session(sessionvalue&"aqda")=aqda session(sessionvalue + "sex") = sex session(sessionvalue + "zp") = wjm session(sessionvalue + "qm") = qm if lxfs <> "" and instr(lxfs,"@")>0 then title = "恭喜您，修改微论坛资料成功。" ''发送的主题 content = "恭喜您，修改微论坛资料成功。
您的用户名为："+yhm+"
密码为："+session(sessionvalue + "pass")+"
欢迎您常光临微论坛。" ''邮件内容 response.write "" end if%> <%end if end if%>
用户名 ： " readonly="">
个性签名： " style="width:400px;">
新密码 ：
再输密码： 不写则不修改密码。
邮 箱： ">
性 别： /> 男 /> 女 /> 保密
安全问题：
问题答案： ">
照 片： <%if session(sessionvalue + "zp") <> "" then%> " target="_blank"> " /> <%end if%>
最近登陆： <%=session(sessionvalue + "zhsj")%>

<% call close_conn()%>