Как загрузить изображение с NicEdit и классическим Asp - PullRequest
Новая
       29

Как загрузить изображение с NicEdit и классическим Asp

2 голосов
/ 09 декабря 2011

Я хотел бы использовать nicedit для загрузки изображений с классическим ASP. По умолчанию Nicedit загружает изображения в ImageShack, но я хотел бы отправить изображения на мой сервер. Однако у меня возникли проблемы с адаптацией некоторых функций оригинального PHP-скрипта к классическому ASP. Я нашел этот скрипт , который загружает изображение и возвращает информацию об изображении в формате javascript и генерирует индикатор выполнения. 

<script>
    try{
        top.nicUploadButton.statusCb({'done':1,'url':'$link','width':30});
    }
    catch(e) {
        alert(e.message);
    }
</script>

PHP имеет встроенные функции, которые предоставляют индикатор выполнения, и у меня возникают трудности с настройкой индикатора выполнения в vbscript.

Может ли кто-нибудь подсказать мне, что должно быть реализовано, чтобы основные функции этого скрипта оставались в версии asp? Спасибо.

== UPDATE ==

Я сделал скрипт загрузки, который работает хорошо, но мне нужна помощь, чтобы сделать индикатор выполнения. Я обычно использую индикатор выполнения jQuery внутри цикла , но хотел бы помочь, чтобы он работал во время этого процесса загрузки. 

<%
Server.ScriptTimeout = 26000

UplMaxSize = 1048576
sExtL = "jpg,jpeg,png,gif,bmp"

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True
Upload.SetMaxSize UplMaxSize, True 
nCount = Upload.Save
If nCount > 0 Then
Set File  = Upload.Files(1)
sFileName = File.FileName
sWidth    = File.ImageWidth

If Err.Number = 8 Then
    Set uplresult = jsObject()
        uplresult("error") = "O tamanho do arquivo excedeu o limite!"
    uplresult.Flush ' estampa json
    Response.End()
End If

If Not File Is Nothing Then
    ' Save the file to the file system
    sPath = Server.MapPath(".\public\upimages")

    Set oFSO = Server.CreateObject("Scripting.FileSystemObject")

    sExt = oFSO.GetExtensionName(sPath & sFileName)
    If Not (InStr(sExtL,sExt) > 0) Then
        Set uplresult = jsObject()
            uplresult("error") = "Extensão de arquivo inválida!"
        uplresult.Flush ' estampa json
        Response.End()
    End If
    File.SaveAs sPath & "\" & sFileName
    Response.Write("<script>try  {top.nicUploadButton.statusCb({'done':1,'url':'/blog/public/upimages/" & sFileName & "','width':" & sWidth & "});} catch(e) {alert(e.message);}</script>")
End If
End If
%>
...