Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\filemanager\browser\default\connectors\asp\resize.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\filemanager\browser\default\connectors\asp&file=resize.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%



function getComponent(IdComp)
	dim resizeComponent(13)
	resizeComponent(1) = &quot;AspImage.Image&quot;
	resizeComponent(2) = &quot;Persits.Jpeg&quot;
	resizeComponent(3) = &quot;AspSmartImage.SmartImage&quot;
	resizeComponent(4) = &quot;briz.AspThumb&quot;
	resizeComponent(5) = &quot;softartisans.ImageGen&quot;
	resizeComponent(6) = &quot;Image.Resize&quot;
	resizeComponent(7) = &quot;GraphicsProcessor2002.RasterObject&quot;
	resizeComponent(8) = &quot;GraphicsMill.Bitmap&quot;
	resizeComponent(9) = &quot;csImageFile.Manage&quot;
	resizeComponent(10) = &quot;csXImage.ImageBox&quot;
	resizeComponent(11) = &quot;GflAx.GflAx&quot;
	resizeComponent(12) = &quot;GflAx193.GflAx&quot;
	resizeComponent(13) = &quot;AspNet&quot;
	dim DetectPriority(13)
	DetectPriority(1) = 8
	DetectPriority(2) = 7
	DetectPriority(3) = 9
	DetectPriority(4) = 10
	DetectPriority(5) = 5
	DetectPriority(6) = 1
	DetectPriority(7) = 2
	DetectPriority(8) = 6
	DetectPriority(9) = 3
	DetectPriority(10) = 4
	DetectPriority(11) = 11
	DetectPriority(12) = 12
	DetectPriority(13) = 13
	dim Comp, J, a
	if clng(IdComp) = 0 then
		for J=1 to ubound(DetectPriority)
			select case J
			case 13
				if checkAspNet() then
					comp = 13
				end if
			case else
				err.clear
				on error resume next
				set a = server.CreateObject(resizeComponent(DetectPriority(J)))
				if err.number=0 then
					comp = DetectPriority(J)
					on error goto 0
					exit for
				end if
				on error goto 0
				set a = nothing
			end select
		next
	else
		comp = clng(IdComp)
	end if
	getComponent = comp
end function

function resizeAspImage(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 1
	case &quot;png&quot;
		imgFormat = 3
	case &quot;bmp&quot;
		imgFormat = 2
	case &quot;pcx&quot;
		imgFormat = 7
	case &quot;tga&quot;
		imgFormat = 6
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;AspImage.Image&quot;)
	myImage.PadSize = 0
	myImage.LoadImage nFilePath
	myImage.ImageFormat = imgFormat
	
	if clng(myImage.MaxX)&lt;=clng(nWidth) and clng(myImage.MaxY)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.MaxX),clng(myImage.MaxY),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.ResizeR int(tmp(0)),int(tmp(1))
	
	myImage.FileName = nFilePath
	
	if imgFormat = 1 then
		myImage.JPEGQuality = nJpegQuality
	end if
	myImage.SaveImage
	set myImage = nothing
end function

function resizeAspJpeg(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;, &quot;png&quot;, &quot;bmp&quot;, &quot;gif&quot;, &quot;jpe&quot; 
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;Persits.Jpeg&quot;)
	myImage.Open nFilePath
	
	if clng(myImage.OriginalWidth)&lt;=clng(nWidth) and clng(myImage.OriginalHeight)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.OriginalWidth),clng(myImage.OriginalHeight),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.Interpolation = 2
	myImage.Width = int(tmp(0))
	myImage.Height = int(tmp(1))
	
	dim saveFileName
	if lcase(right(nFilePath,3))&lt;&gt;&quot;jpg&quot; then
		deleteFile nFilePath
		saveFileName = getNewFileName(RemoveExtension(nFilePath) &amp; &quot;.jpg&quot;)
	else
		saveFileName = nFilePath
	end if

	myImage.Quality = nJpegQuality
	
	myImage.Save saveFileName
	set myImage = nothing
end function


function resizeAspSmartImage(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;, &quot;bmp&quot;, &quot;gif&quot;
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;AspSmartImage.SmartImage&quot;)
	
	myImage.OpenFile(nFilePath)
	
	if clng(myImage.OriginalWidth)&lt;=clng(nWidth) and clng(myImage.OriginalHeight)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
		
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.OriginalWidth),clng(myImage.OriginalHeight),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.Resample int(tmp(0)), int(tmp(1))
	
	dim saveFileName
	if lcase(right(nFilePath,3))&lt;&gt;&quot;jpg&quot; then
		deleteFile nFilePath
		saveFileName = getNewFileName(RemoveExtension(nFilePath) &amp; &quot;.jpg&quot;)
	else
		saveFileName = nFilePath
	end if

	myImage.Quality = nJpegQuality
	
	myImage.SaveFile saveFileName
	set myImage = nothing
end function

function resizeAspThumb(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;, &quot;bmp&quot;
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;briz.AspThumb&quot;)
	myImage.Load FilePath
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.ResizeQuality = 2
	myImage.Resize int(tmp(0)),int(tmp(1))
	
	dim saveFileName
	if lcase(right(nFilePath,3))&lt;&gt;&quot;jpg&quot; then
		deleteFile nFilePath
		saveFileName = getNewFileName(RemoveExtension(nFilePath) &amp; &quot;.jpg&quot;)
	else
		saveFileName = nFilePath
	end if

	myImage.EncodingQuality = nJpegQuality
	
	myImage.Save saveFileName
	set myImage = nothing
end function

function resizeImgWriter(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;
		imgFormat = 3
	case &quot;png&quot;
		imgFormat = 4
	case &quot;bmp&quot;
		imgFormat = 1
	case &quot;gif&quot;
		imgFormat = 2
	case &quot;tiff&quot;, &quot;tif&quot;
		imgFormat = 6
	case &quot;wmf&quot;
		imgFormat = 7
	case &quot;emf&quot;
		imgFormat = 8
	case &quot;psd&quot;
		imgFormat = 9
	case &quot;pcx&quot;
		imgFormat = 5
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;softartisans.ImageGen&quot;)
	on error resume next
		myImage.LoadImage nFilePath
	'this component don't read tiff with LZW
	if err.number&lt;&gt;0 then
		on error goto 0
		err.clear
		exit function
	end if
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
	
	if imgFormat = 3 then
		myImage.JPEGProgressive = False
		myImage.ImageQuality = nJpegQuality
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.ResizeImage int(tmp(0)),int(tmp(1)),2,0
	
	myImage.SaveImage 0,imgFormat,nFilePath
	set myImage = nothing
end function

function resizeVije(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;, &quot;bmp&quot;, &quot;gif&quot;
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;Image.Resize&quot;)
	myImage.Path = nFilePath
	
	if clng(myImage.GetX)&lt;=clng(nWidth) and clng(myImage.GetY)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if	
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.GetX),clng(myImage.GetY),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.SetX = int(tmp(0))
	myImage.SetY = int(tmp(1))
	
	dim newFileName
	if lcase(right(nFilePath,3))&lt;&gt;&quot;jpg&quot; then
		deleteFile nFilePath
		newFileName = getNewFileName(RemoveExtension(nFilePath) &amp; &quot;.jpg&quot;)
	else
		newFileName = nFilePath
	end if
	
	myImage.Save(newFileName)
	set myImage = nothing
end function


function resizeGraphProc(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 3
	case &quot;bmp&quot;, &quot;gif&quot;, &quot;png&quot;, &quot;tiff&quot;, &quot;tif&quot;, &quot;swf&quot;, &quot;wbmp&quot;
		imgFormat = 0
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;GraphicsProcessor2002.RasterObject&quot;)
	myImage.EnableLZW = True 
	myImage.LoadFile nFilePath
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.Resize  int(tmp(0)), int(tmp(1)), 4
	
	myImage.EncoderOptions(&quot;OutputFileType&quot;) =  &quot;Auto&quot;
	if imgFormat = 3 then
		myImage.EncoderOptions(&quot;JPEGQuality&quot;) = nJpegQuality
	end if
			
	myImage.SaveFile nFilePath
	set myImage = nothing
end function

function resizeGraphMill(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 3
	case &quot;bmp&quot;, &quot;gif&quot;, &quot;png&quot;, &quot;tiff&quot;, &quot;tif&quot;, &quot;pcx&quot;, &quot;pdf&quot;, &quot;psd&quot;, &quot;swf&quot;, &quot;wbmp&quot;
		imgFormat = 0
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;GraphicsMill.Bitmap&quot;)
	myImage.IsLzwEnabled = true
	
	myImage.LoadFromFile  nFilePath
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.FormatAutoSelect = true
	
	myImage.Transforms.Resize  int(tmp(0)), int(tmp(1)), 2

	if imgFormat = 3 then
		myImage.Formats.JpegQuality = nJpegQuality
	end if
	
	myImage.SaveToFile nFilePath
	set myImage = nothing
end function

function resizeChestySoftCOM(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 3
	case &quot;gif&quot;, &quot;bmp&quot;, &quot;png&quot;, &quot;psd&quot;, &quot;pcx&quot;, &quot;tif&quot;, &quot;wbmp&quot;
		imgFormat = 0
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;csImageFile.Manage&quot;)
	
	myImage.ReadFile  nFilePath
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if	
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.resample = true

	myImage.Resize  int(tmp(0)), int(tmp(1))

	if imgFormat = 3 then
		myImage.JpegQuality = nJpegQuality
	end if
	
	myImage.WriteFile nFilePath
	set myImage = nothing	
end function

function resizeChestySoftOCX(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 3
	case &quot;bmp&quot;, &quot;png&quot;, &quot;gif&quot;, &quot;wbmp&quot;, &quot;pcx&quot;, &quot;psd&quot;, &quot;tif&quot;
		imgFormat = 0
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;csXImage.ImageBox&quot;)
	
	myImage.LoadFromFile  nFilePath
	
	if clng(myImage.ImageWidth)&lt;=clng(nWidth) and clng(myImage.ImageHeight)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if	
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.ImageWidth),clng(myImage.ImageHeight),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
		
	myImage.resample = true

	myImage.ResizeImage  int(tmp(0)), int(tmp(1))

	if imgFormat = 3 then
		myImage.JpegQuality = nJpegQuality
	end if
	
	myImage.SaveToFile nFilePath
	set myImage = nothing
	
end function

function resizeXnView(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 3
	case &quot;bmp&quot;, &quot;gif&quot;, &quot;tiff&quot;, &quot;tif&quot; ,&quot;png&quot;, &quot;pcx&quot;, &quot;psd&quot;, &quot;pdf&quot;, &quot;eps&quot;
		imgFormat = 0
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;GflAx.GflAx&quot;)
	myImage.enablelzw = True
	myImage.LoadBitmap nFilePath
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if	
	
	dim newFileName
	if lcase(right(nFilePath,4))=&quot;jpeg&quot; then
		deleteFile nFilePath
		newFileName = getNewFileName(RemoveExtension(nFilePath) &amp; &quot;.jpg&quot;)
	else
		newFileName = nFilePath
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
	
	myImage.Resize int(tmp(0)), int(tmp(1))

	if imgFormat = 3 then
		myImage.SaveJPEGQuality = nJpegQuality
	end if
	
	myImage.SaveBitmap newFileName
	set myImage = nothing
end function

function resizeXnView193(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	dim imgExt, imgFormat, myImage
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;
		imgFormat = 3
	case &quot;bmp&quot;, &quot;gif&quot;, &quot;tiff&quot;, &quot;tif&quot; ,&quot;png&quot;, &quot;pcx&quot;, &quot;psd&quot;, &quot;pdf&quot;, &quot;eps&quot;
		imgFormat = 0
	case else
		exit function
	end select

	set myImage = server.CreateObject(&quot;GflAx193.GflAx&quot;)
	myImage.enablelzw = True
	myImage.LoadBitmap nFilePath
	
	if clng(myImage.Width)&lt;=clng(nWidth) and clng(myImage.Height)&lt;=clng(nHeight) then
		set myImage = nothing
		exit function
	end if	
	
	dim newFileName
	if lcase(right(nFilePath,4))=&quot;jpeg&quot; then
		deleteFile nFilePath
		newFileName = getNewFileName(RemoveExtension(nFilePath) &amp; &quot;.jpg&quot;)
	else
		newFileName = nFilePath
	end if
	
	dim tmp
	tmp = split(getNewImageSize(clng(myImage.Width),clng(myImage.Height),nWidth,nHeight,nAspectRatio),&quot;,&quot;)
		
	myImage.Resize int(tmp(0)), int(tmp(1))

	if imgFormat = 3 then
		myImage.SaveJPEGQuality = nJpegQuality
	end if
	
	myImage.SaveBitmap newFileName
	set myImage = nothing
	
end function

function resizeAspNet(nFilePath, nWidth, nHeight, nJpegQuality, nAspectRatio)
	
	checkAspNet()

	dim imgExt, objXMLHTTP
	imgExt = lcase(mid(nFilePath,instrRev(nFilePath,&quot;.&quot;)+1))
	select case imgExt
	case &quot;jpg&quot;, &quot;jpeg&quot;, &quot;bmp&quot;, &quot;gif&quot;, &quot;tiff&quot;, &quot;tif&quot; ,&quot;png&quot;, &quot;ems&quot;, &quot;wms&quot;
	case else
		exit function
	end select
	Set objXMLHTTP = Server.CreateObject(getXmlObject())	
	dim url, resultCode
	url = &quot;http://&quot; &amp; Request.ServerVariables(&quot;HTTP_HOST&quot;) &amp; &quot;/FckEditor/filemanager/browser/default/connectors/asp/ResizeAspNet.aspx?oldFilePath=&quot; &amp; nFilePath &amp; &quot;&amp;newFilePath=&quot; &amp; nFilePath &amp; &quot;&amp;width=&quot; &amp; nWidth &amp; &quot;&amp;height=&quot; &amp; nHeight &amp; &quot;&amp;imageQuality=&quot; &amp; nJpegQuality &amp; &quot;&amp;keepAspect=&quot; &amp; nAspectRatio
	objXMLHTTP.open &quot;post&quot;, url, false
	objXMLHTTP.Send
	resultCode = objXMLHTTP.responseText
	set objXMLHTTP = nothing
	if lcase(resultCode)&lt;&gt;&quot;done&quot; then
		writeAlert( resultCode )
	end if
end function

function getNewImageSize(imageW,imageH,maxW,maxH,mKeep)
	dim percW, percH, newW, newH
	if clng(maxW) = 0 then
		maxW = imageW
	end if
	if clng(maxH) = 0 then
		maxH = imageH
	end if
	if mKeep = &quot;-1&quot; then
		percW = imageW / maxW
		percH = imageH / maxH
		if percW &gt; percH then
			newW = clng(abs(int(-(imageW / percW))))
			newH = clng(abs(int(-(imageH / percW))))
		else
			newW = clng(abs(int(-(imageW / percH))))
			newH = clng(abs(int(-(imageH / percH))))
		end if
	else
		if imageH &lt; newH then
			newH = imageH
		end if
		if imageW &lt; newW then
			newW = imageW
		end if
	end if
	if clng(newW) &gt; clng(maxW) then
		newW = maxW
	end if
	if clng(newH) &gt; clng(maxH) then
		newH = maxH
	end if
	'response.Clear()
	'response.Write imageW &amp; &quot;-&quot; &amp; imageH &amp; &quot;-&quot; &amp; maxW &amp; &quot;-&quot; &amp; maxH &amp; &quot;-&quot; &amp; mKeep &amp; &quot;-&quot; &amp; newW &amp; &quot;-&quot; &amp; newH
	'response.End()
	getNewImageSize = newW &amp; &quot;,&quot; &amp; newH
end function



function checkAspNet()
	dim ok, resultTest, objXMLHTTP
	Set objXMLHTTP = Server.CreateObject(getXmlObject())
	dim url, resultCode
	url = &quot;http://&quot; &amp; Request.ServerVariables(&quot;HTTP_HOST&quot;) &amp; &quot;/FckEditor/filemanager/browser/default/connectors/asp/ResizeAspNet.aspx?TestAspNet=yes&quot;
	objXMLHTTP.open &quot;get&quot;, url, false
	objXMLHTTP.Send
	resultCode = objXMLHTTP.responseText
	if trim(resultCode) &lt;&gt; &quot;&quot; and instr(resultCode,&quot;@ Page Language&quot;) = 0 then
		resultTest = true
	else
		url = &quot;http://&quot; &amp; Request.ServerVariables(&quot;HTTP_HOST&quot;) 
		objXMLHTTP.open &quot;get&quot;, url, false
		objXMLHTTP.Send
		if clng(objXMLHTTP.status)&lt;&gt;200 then
			msg = &quot;WARNING!!\n\n&quot;
			msg = msg &amp; &quot;Error on DwZone AspUpload extension\n&quot;
			msg = msg &amp; &quot;There is a problem on the Server settings\n&quot;
			msg = msg &amp; &quot;Your server is unable to find himselfe\n&quot;
			msg = msg &amp; &quot;To verify:\n&quot;
			msg = msg &amp; &quot;Open a browser directly on the server desktop\n&quot;
			msg = msg &amp; &quot;Type in the browser address bar the url: &quot; &amp; url &amp; &quot;\n&quot;
			msg = msg &amp; &quot;and verify if you see your site\n&quot;
			msg = msg &amp; &quot;To work the extension need the server is able to find this Url\n&quot;
			msg = msg &amp; &quot;Verify and resolve the problem&quot;
			writeAlert( msg )
		end if
		resultTest = false
	end if
	set objXMLHTTP = nothing
	
	checkAspNet = resultTest
	
end function


sub deleteFile(filePath)
	dim RG_FS, FL
	set RG_FS = server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
	if RG_FS.FileExists(filePath) then
		set FL = RG_FS.getFile(filePath)
		FL.delete
	end if
	set RG_FS = nothing
end sub

function getNewFileName(filePath)
	dim iCounter, RG_FS
	iCounter = 0
	dim newFilePath
	newFilePath = filePath
	set RG_FS = server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
	while RG_FS.FileExists(newFilePath)
		iCounter = iCounter + 1
		newFilePath = RemoveExtension( filePath ) &amp; &quot;(&quot; &amp; iCounter &amp; &quot;).&quot; &amp; &quot;.jpg&quot;
	wend
	set RG_FS = nothing
	getNewFileName = newFilePath
end function

function dwzIsImage(image)
	dim retStr
	dim tmp
	retStr = false
	tmp = lcase(right(image,4))
	if tmp = &quot;.gif&quot; or tmp = &quot;.jpg&quot; or tmp = &quot;.png&quot; or tmp = &quot;.bmp&quot; then
		retStr = true
	end if
	if lcase(right(image,5)) = &quot;.jpeg&quot; then
		retStr = true
	end if
	dwzIsImage = retStr
end function

function dwzIsMedia(media)
	dim retStr, tmp3, tmp4, cfr, J, lista
	retStr = false
	tmp3 = lcase(right(media,3))
	tmp4 = lcase(right(media,4))
	lista = split(&quot;avi|mpg|mpeg|mp1|mp2|mp3|mp5|wma|wmv|wav|mid|midi|rmi|rm|ram|rmvb|mov|qt&quot;,&quot;|&quot;)
	for J=0 to ubound(lista)
		if len(lista(J))=3 then
			cfr = tmp3
		else
			cfr = tmp4
		end if
		if lcase(cfr) = lista(J) then
			retStr = true
			exit for
		end if
	next
	dwzIsMedia = retStr
end function


function objWork(obj)
	dim retStr, objTest
	on error resume next
	Set objTest = Server.CreateObject(obj)
	if err.number&lt;&gt;0 then
		retStr = false
	else
		retStr = true
	end if
	on error goto 0
	err.clear
	objWork = retStr
end function

function dwzGetImageFormat(filePath)
	dim retStr, ext
	retStr = &quot;NOT&quot;
	if instrRev(filePath,&quot;.&quot;)&gt;0 then
		select case lcase(mid(filePath,instrRev(filePath,&quot;.&quot;)))
		case &quot;.gif&quot;
			retStr = &quot;GIF&quot;
		case &quot;.jpg&quot;
			retStr = &quot;JPG&quot;
		case &quot;.jpeg&quot;
			retStr = &quot;JPEG&quot;
		case &quot;.bmp&quot;
			retStr = &quot;BMP&quot;
		case &quot;.png&quot;	
			retStr = &quot;PNG&quot;
		end select
	end if
	dwzGetImageFormat = retStr
end function

function getImageSize(nFilePath, byref iWidth, byref iHeight, component)
	iWidth = -1
	iHeight = -1
	dim myImage
	on error resume next
	
	select case component
	case 1
		set myImage = server.CreateObject(&quot;AspImage.Image&quot;)
		myImage.LoadImage nFilePath
		'myImage.ImageFormat = imgFormat
		iWidth = myImage.MaxX
		iHeight = myImage.MaxY
		set myImage = nothing
	case 2
		set myImage = server.CreateObject(&quot;Persits.Jpeg&quot;)
		myImage.Open nFilePath
		iWidth = myImage.OriginalWidth
		iHeight = myImage.OriginalHeight
		set myImage = nothing	
	case 3
		set myImage = server.CreateObject(&quot;AspSmartImage.SmartImage&quot;)
		myImage.OpenFile(nFilePath)
		iWidth = myImage.OriginalWidth
		iHeight = myImage.OriginalHeight
		set myImage = nothing	
	case 4
		set myImage = server.CreateObject(&quot;briz.AspThumb&quot;)
		myImage.Load nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 5
		set myImage = server.CreateObject(&quot;softartisans.ImageGen&quot;)
		myImage.LoadImage nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 6
		set myImage = server.CreateObject(&quot;Image.Resize&quot;)
		myImage.Path = nFilePath
		iWidth = myImage.GetX
		iHeight = myImage.GetY
		set myImage = nothing
	case 7
		set myImage = server.CreateObject(&quot;GraphicsProcessor2002.RasterObject&quot;)
		myImage.EnableLZW = True 
		myImage.LoadFile nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 8
		set myImage = server.CreateObject(&quot;GraphicsMill.Bitmap&quot;)
		myImage.IsLzwEnabled = true
		myImage.LoadFromFile  nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 9
		set myImage = server.CreateObject(&quot;csImageFile.Manage&quot;)
		myImage.ReadFile  nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 10
		set myImage = server.CreateObject(&quot;csXImage.ImageBox&quot;)
		myImage.LoadFromFile  nFilePath
		iWidth = myImage.ImageWidth
		iHeight = myImage.ImageHeight
		set myImage = nothing
	case 11
		set myImage = server.CreateObject(&quot;GflAx.GflAx&quot;)
		myImage.enablelzw = True
		myImage.LoadBitmap nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 12
		set myImage = server.CreateObject(&quot;GflAx193.GflAx&quot;)
		myImage.enablelzw = True
		myImage.LoadBitmap nFilePath
		iWidth = myImage.Width
		iHeight = myImage.Height
		set myImage = nothing
	case 13
		dim objXMLHTTP
		Set objXMLHTTP = Server.CreateObject(getXmlObject())	
		dim url, resultCode
		url = &quot;http://&quot; &amp; Request.ServerVariables(&quot;HTTP_HOST&quot;) &amp; &quot;/FckEditor/filemanager/browser/default/connectors/asp/getImageSize.aspx?FilePath=&quot; &amp; nFilePath
		'response.Clear()
		'response.write url
		'response.End()
		objXMLHTTP.open &quot;post&quot;, url, false
		objXMLHTTP.Send
		resultCode = objXMLHTTP.responseText
		set objXMLHTTP = nothing
		if lcase(left(resultCode,4))&lt;&gt;&quot;size&quot; then
			url = &quot;http://&quot; &amp; Request.ServerVariables(&quot;HTTP_HOST&quot;) 
			objXMLHTTP.open &quot;get&quot;, url, false
			objXMLHTTP.Send
			if clng(objXMLHTTP.status)&lt;&gt;200 then
				msg = &quot;WARNING!!\n\n&quot;
				msg = msg &amp; &quot;Error on DwZone AspUpload extension\n&quot;
				msg = msg &amp; &quot;There is a problem on the Server settings\n&quot;
				msg = msg &amp; &quot;Your server is unable to find himselfe\n&quot;
				msg = msg &amp; &quot;To verify:\n&quot;
				msg = msg &amp; &quot;Open a browser directly on the server desktop\n&quot;
				msg = msg &amp; &quot;Type in the browser address bar the url: &quot; &amp; url &amp; &quot;\n&quot;
				msg = msg &amp; &quot;and verify if you see your site\n&quot;
				msg = msg &amp; &quot;To work the extension need the server is able to find this Url\n&quot;
				msg = msg &amp; &quot;Verify and resolve the problem&quot;
				writeAlert( msg )
			else
				writeAlert( resultCode )					
			end if
		else
			dim tmp
			if instr(resultCode,&quot;,&quot;)&gt;1 then
				tmp = split(resultCode,&quot;,&quot;)
				iWidth = tmp(1)
				iHeight = tmp(2)
				if not isnumeric(iWidth) then
					iWidth = -1
					iHeight = -1
				end if
				if not isnumeric(iHeight) then
					iWidth = -1
					iHeight = -1
				end if
			end if
		end if
	end select	
	on error goto 0
end function


function writeAlert( sHTML )
	response.Clear()
	%&gt;
	&lt;script language=&quot;javascript&quot;&gt;
	var a = &quot;DwZone_Error&quot;;
	var msg = &quot;WARNING!!\n\n&quot;;
	msg += &quot;One error on the load images/files\n&quot;;
	msg += &quot;May be you don't have the write permission on the Upload Folder\n&quot;;
	msg += &quot;Click to view the error details\n&quot;;
	alert(msg);
	var oWindow = window.open( '', null);
	myText = unescape('&lt;%=server.URLEncode(sHTML)%&gt;');
	oWindow.document.write( myText.replace(/\+/g,&quot; &quot;) );
	oWindow.document.close();
	&lt;/script&gt;
	&lt;%
	'response.write(&quot;&lt;script language=javascript&gt;alert('&quot; &amp; str &amp; &quot;')&lt;/sc&quot; &amp; &quot;ript&gt;&quot;)
	response.End()
end function


function getXmlObject()
	dim objList(5)
	dim objXml, objFind, x, url, msg, resultStatus
	objList(0) = &quot;Microsoft.XMLHTTP&quot;
	objList(1) = &quot;Msxml2.ServerXMLHTTP40&quot;
	objList(2) = &quot;MSXML2.XMLHTTP&quot;
	objList(3) = &quot;MSXML2.ServerXMLHTTP&quot;
	objList(4) = &quot;WinHTTP.WinHTTPRequest.5&quot;
	objList(5) = &quot;Msxml2.ServerXMLHTTP.4.0&quot;
	objFind = false
	for x=0 to 5
		if objWork(objList(x)) then
			Set objXml = Server.CreateObject(objList(x))
			on error resume next
			url = &quot;http://&quot; &amp; Request.ServerVariables(&quot;HTTP_HOST&quot;) &amp; &quot;/FckEditor/filemanager/browser/default/connectors/asp/ResizeAspNet.aspx?TestAspNet=yes&quot;
			objXml.open &quot;post&quot;, url, false
			objXml.Send 
			resultStatus = objXml.status
			on error goto 0
			set objXml = nothing
			if clng(resultStatus) = 200 then
				objFind = true
				exit for
			end if
		end if
	next
	if not objFind then
		msg = &quot;WARNING!!&lt;BR&gt;&lt;BR&gt;&quot;
		msg = msg &amp; &quot;Error on DwZone HTML Editor extension (Code status: &quot; &amp; resultStatus &amp; &quot;)&lt;br&gt;&quot;
		msg = msg &amp; &quot;There is a problem on the Server settings&lt;br&gt;&quot;
		msg = msg &amp; &quot;Your server is unable to find himselfe&lt;br&gt;&quot;
		msg = msg &amp; &quot;To verify:&lt;br&gt;&quot;
		msg = msg &amp; &quot;Open a browser directly on the server desktop&lt;br&gt;&quot;
		msg = msg &amp; &quot;Type in the browser address bar the url: &quot; &amp; url &amp; &quot;&lt;br&gt;&quot;
		msg = msg &amp; &quot;and verify if you see your site&lt;br&gt;&quot;
		msg = msg &amp; &quot;To work the extension need the server is able to find this Url&lt;br&gt;&quot;
		msg = msg &amp; &quot;and in your server the XMLHTTP microsoft component must have right permissions&lt;br&gt;&quot;
		msg = msg &amp; &quot;Verify and resolve the problem&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&quot; &amp; objXml.responseText
		response.Clear()
		writeAlert( msg )
		response.End()		
	end if
	getXmlObject = objList(x)
end function

%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Cfilemanager%5Cbrowser%5Cdefault%5Cconnectors%5Casp">Íàçàä</a>]