<% If Request("t")="1" Then Upfile_Main() Else Main() End If Sub Main() Dvbbs.LoadTemplates("usermanager") Dvbbs.Stats=Dvbbs.MemberName&template.Strings(1) Dvbbs.Head() Dim PostRanNum Randomize PostRanNum = Int(900*rnd)+1000 Session("UploadCode") = Cstr(PostRanNum) %>

<% End Sub Sub Upfile_Main() Dvbbs.LoadTemplates("usermanager") Dvbbs.Stats = Dvbbs.MemberName & Template.Strings(1) Dvbbs.Head() %> <% UploadFile %> <% End Sub '--------------------------------------------------------------- '头像上传开始 '--------------------------------------------------------------- Sub UploadFile() '----------------------------------------------------------------------------- '提交验证 '----------------------------------------------------------------------------- If Not Dvbbs.ChkPost Then Exit Sub End If If Session("upface")="done" Then Response.Write "您已经上传了头像" Exit Sub End If If SysSetting(Dvbbs.Forum_UploadSetting(0)) = False or Clng(Dvbbs.Forum_Setting(53)) = 0 Then Response.Write "本系统未开放上传了头像功能" Exit Sub End If If Dvbbs.UserID>0 Then If Clng(Dvbbs.UserSession.documentElement.selectSingleNode("userinfo/@userpost").text)>Clng(Dvbbs.Forum_Setting(54)) Then UpUserFace() '删除旧的头像文件 Else Response.Write "只有文章数多于"& Dvbbs.Forum_Setting(54) &"篇才可以自定义头像！" Exit Sub End If End If '----------------------------------------------------------------------------- Dim Upload,FilePath,FormName,File,F_FileName Dim UserID UserID = "" If Dvbbs.UserID>0 Then UserID = Dvbbs.UserID&"_" FilePath = "UploadFace/" Set Upload = New UpFile_Cls Upload.UploadType = Cint(Dvbbs.Forum_UploadSetting(2)) '设置上传组件类型 Upload.UploadPath = FilePath '设置上传路径 Upload.MaxSize = Int(Dvbbs.Forum_UploadSetting(1)) '单位 KB Upload.InceptMaxFile = 1 '每次上传文件个数上限 Upload.InceptFileType = "gif,jpg,bmp,jpeg,png" '设置上传文件限制 Upload.RName = UserID Upload.ChkSessionName = "UploadCode" '执行上传 Upload.SaveUpFile If Upload.ErrCodes<>0 Then Response.write "错误："& Upload.Description & "[ 重新上传 ]" Exit Sub End If If Upload.Count > 0 Then For Each FormName In Upload.UploadFiles Set File = Upload.UploadFiles(FormName) F_FileName = FilePath & File.FileName Response.Write "" If File.FileWidth>0 and File.FileHeight>0 Then Response.Write "" Response.Write "" End If Session("upface")="done" Response.Write "图片"& F_FileName &"上传成功!" Set File = Nothing Next Else Response.write "请正确选择要上传的文件。[ 重新上传 ]" Exit Sub End If Set Upload = Nothing End Sub '删除旧头像 Sub UpUserFace() If Dvbbs.UserID=0 Then Exit Sub If not IsNumeric(Dvbbs.UserID) Then Exit Sub on Error Resume Next Dim objFSO,OldUserFace OldUserFace = Server.MapPath("UploadFace/"&Dvbbs.UserID&"_")&"*.*" Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'If objFSO.FileExists(OldUserFace) Then objFSO.DeleteFile OldUserFace If Err<>0 Then Err.Clear 'End If Set objFSO = Nothing End Sub '系统设置 Function SysSetting(Setting) SysSetting = False Select Case Clng(Setting) Case 1 : SysSetting = True Case 2 : If Dvbbs.UserID > 0 Then SysSetting = True End Select End Function %>