<%
'==================================
' 附件上传页面
' 更新时间: 2005-10-20
'==================================
On Error Resume Next
%>
<%
Server.ScriptTimeOut = 999
If stat_FileUpLoad = True And memName<>Empty Then
If Request.QueryString("action") = "upload" Then
Dim upl, FSOIsOK
FSOIsOK = 1
Set upl = Server.CreateObject("Scripting.FileSystemObject")
If Err<>0 Then
Err.Clear
FSOIsOK = 0
End If
Dim D_Name, F_Name
If FSOIsOK = 1 Then
D_Name = "month_"&DateToStr(Now(), "ym")
If upl.FolderExists(Server.MapPath("attachments/"&D_Name)) = False Then
upl.CreateFolder Server.MapPath("attachments/"&D_Name)
End If
Else
D_Name = "All_Files"
End If
Set upl = Nothing
Dim FileUP
Set FileUP = New Upload_File
FileUP.GetDate( -1)
Dim F_File, F_Type, sy, FilePath, AntiDown
Set F_File = FileUP.File("File")
sy = FileUp.Form("sy")
AntiDown = FileUp.Form("AntiDown")
'blog_UpLoadSet = "0|0|0|PJBlog|PJBlog|0|1|10|10|FFFFFF|0|10|10|0.5|images/wind.png|120|35|www.pjhome.net|FFFFFF|18|宋体|1|0|000000|0|0"
'防盗链|文件命名|文件命名2|前缀|后缀|水印位置|计数边距|离左边距|离顶边距|边框颜色|边框宽度|水平边距|垂直边距|透明度|图片水印|图宽|图高|文字|字体颜色|字体大小|字体类型|加粗|斜体|阴影颜色|阴影向右偏移量|阴影向下偏移量
' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
Select Case Split(blog_UpLoadSet,"|")(1)
Case 0 '上传日期时间
F_Name = Year(now)&lenNum(Month(now))&lenNum(Day(now))&lenNum(Hour(now))& lenNum(Minute(now))&lenNum(Second(now))
Case 1 '文件原名
F_Name = getF_Name(F_File.FileName)
Case 2 '上传日期时间_文件原名
F_Name = Year(now)&lenNum(Month(now))&lenNum(Day(now))&lenNum(Hour(now))& lenNum(Minute(now))&lenNum(Second(now))&"_"&getF_Name(F_File.FileName)
Case 3 '上传日期时间带-
F_Name = Year(now)&"-"&lenNum(Month(now))&"-"&lenNum(Day(now))&"-"&lenNum(Hour(now))&"-"&lenNum(Minute(now))&"-"&lenNum(Second(Now))&"-"&randomStr(1)
Case Else '原系统默认
F_Name = randomStr(1)&Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)
End Select
Select Case Split(blog_UpLoadSet,"|")(2)
Case 0 '类型
F_Name = F_Name
Case 1 '前缀_类型
F_Name = Split(blog_UpLoadSet,"|")(3)&"_"&F_Name
Case 2 '类型_后缀
F_Name = F_Name&"_"&Split(blog_UpLoadSet,"|")(4)
Case 3 '前缀_类型_后缀
F_Name = Split(blog_UpLoadSet,"|")(3)&"_"&F_Name&"_"& Split(blog_UpLoadSet,"|")(4)
End Select
F_Name = F_Name&"."&F_File.FileExt
F_Type = FixName(F_File.FileExt)
If F_File.FileSize > Int(UP_FileSize) Then
Response.Write("
")
Else
FilePath = "attachments/"&D_Name&"/"&F_Name
F_File.SaveAs Server.MapPath(FilePath)
If UCase(F_Type) = "JPG" Or UCase(F_Type) = "BMP" Or UCase(F_Type) = "GIF" Then
If sy <> "" And IsNumeric(sy) Then Call CreateView(FilePath,sy,blog_UpLoadSet)
End If
Conn.Execute("INSERT INTO blog_Files (FilesPath) VALUES ("""&FilePath&""")")
Dim UploadID : UploadID = Conn.Execute("SELECT ID FROM blog_Files order by ID desc")(0)
If AntiDown = "1" then UploadID = UploadID&"&code="&right(md5(right(Ucase(FilePath),15)),10)
response.Write ""
Response.Write("