?? qqcf_upfile.asp
字號:
<%
' 乘風電影 Access版
' 制 作：乘 風
' 開發網站：乘風原創程序
' 網站網址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下載：http://www.qqcf.com/?action=down
' 功 能：
' 1.系統做免費或收費的電影網站都可以，支持免費，點數，包月等方式觀看和下載電影
' 2.支持全站生成htm靜態頁面，生成速度極快，全自動生成
' 3.支持防盜鏈，可完全整合Helix和Servu服務器，完善的防盜鏈機制
' 4.在后臺可以自由管理網站上的廣告
' 5.支持網站上的注冊用戶在線支付購買電影點數，也可升級包月等方式
' 6.可以完全整合原有網站上的注冊用戶使用，無需在電影系統重新注冊直接登陸即可
%>
<!--#Include File="Conn.asp"-->
<!--#include FILE="QQCF_MyFunction.asp"-->
<!--#include FILE="QQCF_UpFile_Class.asp"-->
<%If Request("Action")="" Then%>
<body leftmargin="0" topmargin="0">
<%
If Session("CFFilmAdmin")="" Then
Response.Write "請重新登錄"
Response.End
End If
%>
<form name="form1" method="post" action="?Action=upsave" enctype="multipart/form-data">
<input type=file name="img">
<input type=submit name="submit" value="上傳">
</form>
<%End If%>
<%If Request("Action")="upsave" Then%>
<%
If Cint(GetMySet("UploadType"))=1 Then
Const UpFileType="jpg|gif" '允許的上傳文件類型
Const MaxFileSize="200" '允許的最大上傳文件多少K
FormName="img"'上傳的表單名稱
SavePath="upload" '存放上傳文件的目錄
If Right(SavePath,1)<>"/" Then SavePath=SavePath&"/" '在目錄后加(/)
FileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)
set upfile=new upfile_class ''建立上傳對象
upfile.NoAllowExt="asp;exe;htm;html;aspx;cs;vb;js;" '設置上傳類型的黑名單
upfile.GetData (10240000) '取得上傳數據,限制最大上傳10M
Set File=UpFile.File(FormName)
If file.filesize<100 Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('請先選擇你要上傳的文件！');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Response.End
End If
If File.filesize>(MaxFileSize*1024) Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('上傳的文件大小超過限制！');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Response.End
End If
FileExt=Lcase(File.FileExt)
ForumUpload=Split(UpFileType,"|")
For I=0 To Ubound(ForumUpload)
If fileEXT=Trim(Forumupload(i)) Then
EnableUpload=True
Exit For
End If
Next
If FileExt="asp" Or FileExt="asa" or FileExt="aspx" Then EnableUpload=False
If EnableUpload=False Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('對不起,不支持這類文件上傳!');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Response.End
End If
FilePath=SavePath&FileName&"."&FileExt
FileName1=FileName&"."&FileExt
UpFile.SaveToFile FormName,Server.MapPath(FilePath)
Set UpFile=nothing
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "parent.document.form.filmpic.value='" & SavePath&FileName1 & "';" & vbcrlf
Response.Write "alert('上傳成功!');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
End If
If Cint(GetMySet("UploadType"))=2 Then
Dim Count
on Error Resume Next
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False '不能復蓋
Upload.IgnoreNoPost = True
Upload.SetMaxSize 200*1024, True '限制大小
Count = Upload.Save
If Err.Number = 8 Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('上傳的文件大小超過限制！');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Else
If Err <> 0 Then
Response.Write "錯誤信息: " & Err.Description
Else
If Count < 1 Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('請先選擇你要上傳的文件!');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Response.End
End If
For Each file in Upload.Files '列出所有上傳文件
FileExt = Replace(File.ext,".","")
If CheckFileExt(FileExt)=False Then
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "alert('文件格式不正確!');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Response.End
End If
'文件變量付值
FileName1=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&FileExt
FileName="QQCF_AdPic/"&FileName1
File.saveas Server.MapPath(FileName) '上傳保存文件
Response.Write "<script language='javascript'>" & VbCRlf
Response.Write "parent.document.form.filmpic.value='" & SavePath&FileName1 & "';" & vbcrlf
Response.Write "alert('上傳成功!');" & VbCrlf
Response.Write "history.go(-1);" & vbCrlf
Response.Write "</script>" & VbCRLF
Next
End If
End If
Set Upload =Nothing
End If
Function FixName(UpFileExt)
If IsEmpty(UpFileExt) Then Exit Function
FixName = Lcase(UpFileExt)
FixName = Replace(FixName,Chr(0),"")
FixName = Replace(FixName,".","")
FixName = Replace(FixName,"asp","")
FixName = Replace(FixName,"asa","")
FixName = Replace(FixName,"aspx","")
FixName = Replace(FixName,"cer","")
FixName = Replace(FixName,"cdx","")
FixName = Replace(FixName,"htr","")
End Function
Function CheckFileExt(FileExt)
Dim ForumUpload,i
ForumUpload="jpg,gif,swf"
ForumUpload=Split(ForumUpload,",")
CheckFileExt=False
For i=0 to UBound(ForumUpload)
If LCase(FileExt)=Lcase(Trim(ForumUpload(i))) Then
CheckFileExt=True
Exit Function
End If
Next
End Function
%>
<%End If%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -