📄 saveuploadfile.asp
字号:
<!-- #include File="Inc.asp" -->
<!-- #include File="Inc/Upload_Cls.asp" -->
<%
Const FilePath = "./UploadFile/TopicFile"
Const FacePath = "./UploadFile/Head"
Dim Upload,ReturnString,Temp,Flag
BBS94KK.Fun.CheckMake'禁止外部提交
Flag = Request.QueryString("Flag")
If Not BBS94KK.FoundUser Then BBS94KK.GoToErr(10)
Set Upload = New Upload_Cls
If Flag="0" Then
If BBS94KK.BbsCache(7)="0" Then upload.ErrPrint"本论坛设置禁止上传"
End If
Temp=BBS94KK.Execute("Select Count(*) From[KK_UpFile] where UserName='"&BBS94KK.MyName&"' And DATEDIFF('d',[UpTime],'"&BBS94KK.NowBbsTime&"')<1")(0)
If IsNull(Temp) Then Temp=BBS94KK.BbsCache(8)
If Int(Temp) => Int(BBS94KK.BbsCache(8)) Then Upload.MaxFile=0
Upload.FileTypeFlag = BBS94KK.UploadType
If Flag = "0" Then
Upload.SaveData FilePath,"",0
ReturnString = "[UPLOAD=" & Upload.FileTypeName & "," & Upload.FileSizeKB & "," & Upload.ReWidth & "," & Upload.Width & "," & Upload.Height & "]" & Upload.FileName & "[/UPLOAD]"
BBS94KK.Execute("insert into [KK_UpFile](FileName,FileType,FileSize,UpTime,UserName) values ('"&Upload.FileName & "','" & upload.FileTypeName & "'," & upload.FileSize & ",'"& BBS94KK.NowBBSTime &"','" & BBS94KK.MyName & "')")
Response.Write("<body leftmargin=""0"" topmargin=""0"" onload=""javascript:parent.kk.content.value+='"&ReturnString&"';"">")
Else
Upload.SaveData FacePath,BBS94KK.MyID,1
ReturnString = "ViewFile.asp?Path=Face&FileName=" & Upload.FileName
Response.Write("<body leftmargin=""0"" topmargin=""0"" onload=""javascript:parent.form.PicUrl.value='"&ReturnString&"';parent.form.Pic.src='"&ReturnString&"';parent.form.PicW.value='"&Upload.Width&"';parent.form.PicH.value='"&Upload.Height&"';"">")
End If
Upload.ErrPrint "上传成功"
Set Upload=Nothing
Set BBS94KK=Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -