upfilesave.asp

SK信息采集2.0功能介绍: 1.可针对任何静态网页,动态网页进行采集。包括htm,html,shtml,ASP,ASPX,JSP,PHP等。 2.增加自定文件采集.用户可采集网页中的所有文件.

			  Response.Write("document.write('<meta http-equiv=\'refresh\' content=\'2; url=user_ArticleupForm.asp\'>');")
			  Response.Write("</script>")
			 end if
		   Case 21          '图片中心的上传图片
			 if ReturnValue <> "" then
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("alert('" & ReturnValue & "');")
			  Response.Write("history.back(-1);")
			  Response.Write("</script>")
			 else  
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("parent.SetPicUrlByUpLoad('" & TempFileStr &  "','" & ThumbPathFileName & "');")
			  Response.Write("document.write('<br><br><div align=center>图片上传成功！</div>');")
			  Response.Write("document.write('<meta http-equiv=\'refresh\' content=\'1; url=User_UpPhotoForm.asp\'>');")
			  Response.Write("</script>")
			 end if
		  Case 31    '下载中心缩略图
			 if ReturnValue <> "" then
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("alert('" & ReturnValue & "');")
			  Response.Write("history.back(-1);")
			  Response.Write("</script>")
			 else
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("parent.myform.PhotoUrl.value='" & replace(TempFileStr,"|","") & "';")
			  Response.Write("document.write('<br>&nbsp;&nbsp;&nbsp;&nbsp;图片上传成功！');")
			  Response.Write("document.write('<meta http-equiv=\'refresh\' content=\'2; url=User_DownUpPhotoForm.asp\'>');")
			  Response.Write("</script>")
			  end if
		  Case 32    '下载中心的文件
			 if ReturnValue <> "" then
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("alert('" & ReturnValue & "');")
			  Response.Write("history.back(-1);")
			  Response.Write("</script>")
			 else
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("parent.SetDownUrlByUpLoad('" & TempFileStr & "');")
			  Response.Write("document.write('<br><br><div align=center>文件上传成功！</div>');")
			  Response.Write("document.write('<meta http-equiv=\'refresh\' content=\'1; url=User_DownUpForm.asp\'>');")
			  Response.Write("</script>")
			 end if
		  Case 41         'Flash中心的上传缩略图
			 if ReturnValue <> "" then
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("alert('" & ReturnValue & "');")
			  Response.Write("history.back(-1);")
			  Response.Write("</script>")
			 else
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("parent.myform.PhotoUrl.value='" & replace(TempFileStr,"|","") & "';")
			  Response.Write("document.write('<br>&nbsp;&nbsp;&nbsp;&nbsp;图片上传成功！');")
			  Response.Write("document.write('<meta http-equiv=\'refresh\' content=\'2; url=User_FlashUpPhotoForm.asp\'>');")
			  Response.Write("</script>")
			  end if
		   Case 42    'Flash文件
			 if ReturnValue <> "" then
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("alert('" & ReturnValue & "');")
			  Response.Write("history.back(-1);")
			  Response.Write("</script>")
			 else
			  Response.Write("<script language=""JavaScript"">")
			  Response.Write("parent.document.all.FlashUrl.value='" & replace(TempFileStr,"|","") & "';")
			  Response.Write("document.write('<br><br><div align=center>文件上传成功！</div>');")
			  Response.Write("document.write('<meta http-equiv=\'refresh\' content=\'1; url=User_UpFlashForm.asp\'>');")
			  Response.Write("</script>")
			 end if
		
		  Case else
			 if ReturnValue <> "" then
			  Response.Write("<script language=""JavaScript"">"&vbcrlf)
			  Response.Write("alert('" & ReturnValue & "');"&vbcrlf)
			  Response.Write("dialogArguments.location.reload();"&vbcrlf)
			  Response.Write("close();"&vbcrlf)
			  Response.Write("</script>"&vbcrlf)
			 else
			  Response.Write("<script language=""JavaScript"">"&vbcrlf)
			  Response.Write("dialogArguments.location.reload();"&vbcrlf)
			  Response.Write("close();"&vbcrlf)
			  Response.Write("</script>"&vbcrlf)
			 end if
		End Select
		Set UpFileObj=Nothing
		End Sub
		Function CheckUpFile(Path,FileSize,AllowExtStr,AutoReName)
			Dim ErrStr,NoUpFileTF,FsoObj,FileName,FileExtName,FileContent,SameFileExistTF
			NoUpFileTF = True
			ErrStr = ""
			Set FsoObj = Server.CreateObject(FsoObjName)
			For Each FormName in UpFileObj.File
				SameFileExistTF = False
				FileName = UpFileObj.File(FormName).FileName
				FileExtName = UpFileObj.File(FormName).FileExt
				FileContent = UpFileObj.File(FormName).FileData
				'是否存在重名文件
				if UpFileObj.File(FormName).FileSize > 1 then
					NoUpFileTF = False
					ErrStr = ""
					if UpFileObj.File(FormName).FileSize > CLng(FileSize)*1024 then
						ErrStr = ErrStr & FileName & "文件上传失败\n超过了限制，最大只能上传" & FileSize & "K的文件\n"
					end if
					if AutoRename = "0" then
						If FsoObj.FileExists(Path & FileName) = True  then
							ErrStr = ErrStr & FileName & "文件上传失败,存在同名文件\n"
						else
							SameFileExistTF = True
						end if
					else
						SameFileExistTF = True
					End If
					if CheckFileType(AllowExtStr,FileExtName) = False then
						ErrStr = ErrStr & FileName & "文件上传失败,文件类型不允许\n允许的类型有" + AllowExtStr + "\n"
					end if
					if ErrStr = "" then
						if SameFileExistTF = True then
							SaveFile Path,FormName,AutoReName
						else
							SaveFile Path,FormName,""
						end if
					else
						CheckUpFile = CheckUpFile & ErrStr
					end if
				end if
			Next
			Set FsoObj = Nothing
			if NoUpFileTF = True then
				CheckUpFile = "没有上传文件"
			end if
		End Function
		
		Function CheckFileType(AllowExtStr,FileExtName)
			Dim i,AllowArray
			AllowArray = Split(AllowExtStr,"|")
			FileExtName = LCase(FileExtName)
			CheckFileType = False
			For i = LBound(AllowArray) to UBound(AllowArray)
				if LCase(AllowArray(i)) = LCase(FileExtName) then
					CheckFileType = True
				end if
			Next
			if FileExtName="asp" or FileExtName="asa" or FileExtName="aspx" then
				CheckFileType = False
			end if
		End Function
		
		Function SaveFile(FilePath,FormNameItem,AutoNameType)
			Dim FileName,FileExtName,FileContent,FormName,RandomFigure,n,RndStr
			Randomize 
			n=2* Rnd+10
			RndStr=KSCMS.MakeRandom(n)
			RandomFigure = CStr(Int((99999 * Rnd) + 1))
			FileName = UpFileObj.File(FormNameItem).FileName
			FileExtName = UpFileObj.File(FormNameItem).FileExt
			FileContent = UpFileObj.File(FormNameItem).FileData
			select case AutoNameType 
			  case "1"
				FileName= "副件" & FileName
			  case "2"
				FileName= RndStr&"."&FileExtName
			  Case "3"
				FileName= RndStr & FileName
			  case "4"
				FileName= Year(Now())&Right("0"&Month(Now()),2)&Right("0"&Day(Now()),2)&Right("0"&Hour(Now()),2)&Right("0"&Minute(Now()),2)&Right("0"&Second(Now()),2)&RandomFigure&"."&FileExtName
			  case else
				FileName=FileName
			End Select
				UpFileObj.File(FormNameItem).SaveToFile FilePath  &FileName
		   TempFileStr=TempFileStr & FormPath & FileName & "|"
		   If AddWaterFlag = "1" Then   '在保存好的图片上添加水印
				call T.AddWaterMark(FilePath  & FileName)
		   End if
		  CurrNum=CurrNum+1
		  IF CreateThumbsFlag=true and  cint(CurrNum)=cint(DefaultThumb) Then
				ThumbFileName=split(FileName,".")(0)&"_S."&FileExtName
				call T.CreateThumbs(FilePath & FileName,FilePath & ThumbFileName)
				 '取得缩略图地址
				ThumbPathFileName=FormPath & ThumbFileName
		  End if
		
		End Function
End Class
%>