<% Server.ScriptTimeOut=300 dim FilePath,FacePath FilePath = MNBoard.Info(36) FacePath = MNBoard.Info(37) Dim Upload,ReturnString,Temp,Flag MNBoard.CheckMake'禁止外部提交 Flag = Request.QueryString("Flag") If Not MNBoard.FoundUser Then MNBoard.GoToErr(10) Set Upload = New Upload_Cls If MNBoard.Info(30)="0" Then upload.ErrPrint"本论坛设置禁止上传" If Flag="0" Then If SESSION(CacheName& "MyGradeInfo")(14)="0" Then upload.ErrPrint"您没有上传的等级权限" Else If SESSION(CacheName& "MyGradeInfo")(17)="0" Then upload.ErrPrint"您没有上传头像的等级权限" End If Temp=MNBoard.Execute("Select Count(*) From[i_UpFile] where UserName='"&MNBoard.MyName&"' And DATEDIFF('d',[UpTime],'"&MNBoard.NowBbsTime&"')<1")(0) If IsNull(Temp) Then Temp=SESSION(CacheName& "MyGradeInfo")(15) If Int(Temp) => Int(SESSION(CacheName& "MyGradeInfo")(15)) Then Upload.MaxFile=0 Upload.FileTypeFlag = Replace(MNBoard.Info(34)&"|"&MNBoard.Info(35),"||","") If Flag = "0" Then Upload.SaveData FilePath,"",0 ReturnString = "
[UPLOAD=" & Upload.FileTypeName & "," & Upload.FileSizeKB & "," & Upload.ReWidth & "," & Upload.Width & "," & Upload.Height & "]" & Upload.FileName & "[/UPLOAD]" MNBoard.Execute("insert into [i_UpFile](FileName,FileType,FileSize,UpTime,UserName) values ('"&Upload.FileName & "','" & upload.FileTypeName & "'," & upload.FileSize & ",'"& MNBoard.NowBBSTime &"','" & MNBoard.MyName & "')") Response.Write("") Else Upload.SaveData FacePath,MNBoard.MyID,1 ReturnString = "ViewFile.asp?Path=Face&FileName=" & Upload.FileName Response.Write("") End If Upload.ErrPrint "上传成功" Set Upload=Nothing Set MNBoard =Nothing %>