?? upfile.asp
字號:
<%
'***********************************************************************************' 產(chǎn)品名稱：臺訊企業(yè)全站管理系統(tǒng)（V2006簡體中文版）' 程序開發(fā)：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************%>
<!--#include file="Const.asp"-->
<!--#include file="upload.inc"-->
<%
Dim SavePath,xUpload,xPageName,upload,file,formName,fileExt
Dim upNum,EnableUpload,Forumupload,ranNum,uploadfiletype,msg,FileType
xPageName=request("xPageName")
IF xPageName="Pic" THEN SavePath = "../Upload/Pic"
IF xPageName="PicLoad" THEN SavePath = "../" & request("FileNames")
IF xPageName="Pic" OR xPageName="PicLoad" THEN xUpload = "png|gif|jpg|bmp"
IF xPageName="Flash" THEN SavePath = "../Upload/Flash"
IF xPageName="Flash" THEN xUpload = "swf"
IF xPageName="Media" THEN SavePath = "../Upload/Media"
IF xPageName="Media" THEN xUpload = "rm|mp3|wav|mid|midi|ra|avi|mpg|mpeg|asf|asx|wma|mov"
IF xPageName="Real" THEN SavePath = "../Upload/Real"
IF xPageName="Real" THEN xUpload = "rm|ra|ram|wma"
IF xPageName="DownLoad" OR xPageName="" THEN SavePath = "../Upload"
IF xPageName="DownLoad" OR xPageName="" THEN SavePath = uFileType
IF right(SavePath,1)<>"/" THEN SavePath=SavePath&"/"
xUpload=split(xUpload,"|")
For intTemp=0 to ubound(xUpload)
IF instr(uFileType,xUpload(intTemp)) THEN
UpFileType=xUpload(intTemp) & "|" & UpFileType
End IF
Next
const upload_type=0
MaxFileSize=uFileNu
msg=""
founderr=False
EnableUpload=False
response.Write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><body>"
Select Case upload_type
Case 0
Call upload_0()
Case Else
response.Write "本系統(tǒng)未開放插件功能"
response.End
End Select
response.Write "</body></html>"
sub upload_0()
set upload=new upload_file
For each formName in upload.file
set file=upload.file(formName)
IF file.filesize<1 THEN
msg="請先選擇你要上傳的文件！"
founderr=True
End IF
IF file.filesize>(MaxFileSize*1024) THEN
msg="文件大小超過了限制，最大只能上傳" & CStr(MaxFileSize) & "K的文件！"
founderr=True
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
End IF
IF EnableUpload=False THEN
msg="這種文件類型不允許上傳！"
founderr=True
End IF
strJS="<SCRIPT language=javascript>" & vbcrlf
IF founderr<>True THEN
randomize
ranNum=int(900*rnd)+100
filename=SavePath & year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & ranNum & "." & fileExt
file.SaveToFile Server.mappath(FileName)
msg="上傳文件成功！"
FileName=Replace(FileName,"../","")
IF xPageName="PicLoad" OR xPageName="DownLoad" THEN
IF file.FileSize>0 THEN
response.Write "<script>window.opener.document." & upload.form("FormName") & "." & upload.form("EditName") & ".value='" & FileName & "'</script>"
End IF
Else
arrUploadFiles=split(UpFileType,"|")
For intTemp=0 to ubound(arrUploadFiles)
strJS=strJS & "content=parent.document.UploadFile.a.value;"
FileType=right(fileExt,3)
Select Case FileType
Case "" & arrUploadFiles(intTemp) & "",""
strJS=strJS &"content=content+'" & filename & "';" & vbcrlf
End Select
strJS=strJS & "parent.document.UploadFile.a.value=content;" & vbcrlf
strJS=strJS & "content=parent.document.UploadFile.f.value;"
FileType=right(fileExt,3)
Select Case FileType
Case "" & arrUploadFiles(intTemp) & "",""
strJS=strJS &"content=content+'" & filename & "';" & vbcrlf
End Select
strJS=strJS & "parent.document.UploadFile.f.value=content;" & vbcrlf
Next
End IF
End IF
strJS=strJS & "alert('" & msg & "');" & vbcrlf
IF xPageName="PicLoad" or xPageName="DownLoad" THEN
strJS=strJS & "window.close();" & vbcrlf
Else
strJS=strJS & "window.location = 'Upload.asp?uPageName=" & uPageName & "';" & vbcrlf
End IF
strJS=strJS & "</script>"
response.write strJS
Set file=Nothing
Next
Set upload=Nothing
End sub
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -