Fejl på nogle computere
Hej Eksperter,Jeg bruger en filemanager i et CMS-system, det fungere fint på nogle maskiner, men ikke på alle. Jeg får fejl i denne her linie:
<script Language="VBScript">
Sub AnimateWindowStatus
If right(window.status, 1) = " " AND len(window.status) < 100 Then
window.status = Left(window.status, len(window.status) - 1)
window.status = window.status & "| "
Else
window.status = Left(window.status, len(window.status) - 1)
if len(window.status) = 20 Then
window.status = window.status & " "
End If
End If
End Sub
</script>
Jeg tror evt. det kan være en instilling i Explorer men er ikke sikker. Håber I kan hjælpe.
Her kan I se hele scriptet:
<!--#include file ="config.asp"-->
<%
if session("login") = "" OR session("login_type") <> "1" then
response.redirect "../login.asp?fejl=<b>"&strTxtGenWarning1&":</b><br>"&strTxtGenWarningLogin&""
end if
%>
<html>
<head>
<link rel="stylesheet" href="style.css" type="text/css">
<script>
var arrFiles = [
["gif", "ico_gif.gif","open_file.gif"],
["jpg", "ico_jpg.gif","open_file.gif"],
["png", "ico_png.gif","open_file.gif"],
["bmp", "ico_mdb.gif","open_file.gif"],
["htm", "ico_htm.gif","open_file.gif"],
["html","ico_htm.gif","open_file.gif"],
["vbs", "ico_vbs.gif",""],
["js", "ico_js.gif",""],
["css", "ico_css.gif",""],
["txt", "ico_txt.gif","open_file.gif"],
["mpg", "ico_video.gif","open_video.gif"],
["mpeg","ico_video.gif","open_video.gif"],
["wmv", "ico_video.gif","open_video.gif"],
["avi", "ico_video.gif","open_video.gif"],
["wma", "ico_sound.gif","open_audio.gif"],
["wav", "ico_sound.gif","open_audio.gif"],
["mid", "ico_sound.gif","open_audio.gif"],
["mp3", "ico_mp3.gif","open_audio.gif"],
["asp", "ico_asp.gif","open_file.gif"],
["zip", "ico_zip.gif",""],
["pdf", "ico_pdf.gif","open_file.gif"],
["mov", "ico_mov.gif","open_video.gif"],
["swf", "ico_swf.gif","open_file.gif"],
["doc", "ico_doc.gif","open_file.gif"],
["xls", "ico_xls.gif","open_file.gif"],
["mdb", "ico_mdb.gif",""],
["ppt", "ico_ppt.gif",""],
["exe", "ico_exe.gif",""]]
var sAction;
var httpObj = new ActiveXObject("Microsoft.XMLHTTP");
function send(sData,sTarget)
{
httpObj.Open("POST", sTarget, true, "", "");
httpObj.setRequestHeader("Content-Type","text/xml");
httpObj.Send (sData);
window.status = "Load in progress | ";
checkReadyState()
}
function checkReadyState()
{
if (httpObj.readyState == 4)
{
if(httpObj.ResponseXML.xml!="")
{
sError = httpObj.ResponseXML.documentElement.childNodes(1).text
if(sError=="")
{
if(sAction=="svcFileList.asp")
{
if(httpObj.readyState==4)
{
render(httpObj.ResponseXML);
}
}
if(sAction=="svcDelete.asp")
{
if(httpObj.readyState==4)
{
render(httpObj.ResponseXML);
}
}
}
else
{
if(sError=="Session Expired")
{
alert("Session Expired. Please re-login.");
window.navigate("login.asp")
}
}
}
else
{
if(httpObj.readyState==4)
{
txtError.style.display="block";
txtError.value=(httpObj.ResponseText);
}
}
window.status = " ";
}
else
{
AnimateWindowStatus();
window.setTimeout("checkReadyState()", 50);
}
}
/***************************************************
ACTIONS:
***************************************************/
function load()
{
sXML = "<root><folder>\</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
}
function browse(i)
{
sXML = "<root><folder>"+HtmlEncode(eval("inpFolder"+i).value)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
}
function up()
{
sXML = "<root><folder>"+HtmlEncode(inpParent.value)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
}
function locate(i)
{
sXML = "<root><folder>"+HtmlEncode(eval("inpLoc"+i).value)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
}
/***************************************************
DISPLAY
***************************************************/
var oDocSave;
var sLocation;
function render(oDoc)
{
oDocSave = oDoc;
oData=oDoc.documentElement.childNodes(0);
oFolders=oData.childNodes(0);
oFiles=oData.childNodes(1);
sHTML="";
sLocation = oFolders.attributes(0).text;
sLink="";sNavigate="";
for(var i=0;i<sLocation.split("\\").length;i++)
{
sLink+="\\"+sLocation.split("\\")[i];
sHTML += "<INPUT type=hidden name=inpLoc"+i+" value=\""+sLink+"\">"
if(sLocation.split("\\")[i]=="") sDisplayLink="Root";
else sDisplayLink=sLocation.split("\\")[i];
if(i==sLocation.split("\\").length-1)
{
if(sDisplayLink=="Root") sNavigate+=sDisplayLink;
else sNavigate+="\\"+sDisplayLink;
}
else
{
if(sDisplayLink=="Root") sNavigate+="<a href=# onclick=\"locate("+i+")\">"+sDisplayLink+"</a>";
else sNavigate+="\\<a href=# onclick=\"locate("+i+")\">"+sDisplayLink+"</a>";
}
}
idLocation.innerHTML = "Location : " + sNavigate;
sHTML += "<table border=0 cellpadding=0 cellspacing=0 bgcolor=white width=100%>"
sHTML += "<col width=15><col><col><col>"
sHTML += "<tr>"
sHTML += " <td colspan=2 class=table_header style='padding:2;' nowrap valign=top><b>File Name</b> </td>"
sHTML += " <td class=table_header style='padding:2;padding-right:15px;' align=right valign=top><b>Size</b> </td>"
sHTML += " <td class=table_header_main style='padding:2;padding-right:15px;' align=right valign=top> </td>"
sHTML += "</tr>"
sHTML += "<tr><td colspan=4 height=5></td></tr>"
//UP
if(oFolders.attributes.length==2)
{
parent_=oFolders.attributes(1).text;
sHTML += "<tr>"
sHTML += "<td style='padding-top:0;padding-left:7;padding-bottom:2;cursor:hand;' colspan=4>"
sHTML += "<INPUT type=hidden name=inpParent value=\""+parent_+"\">"
sHTML += "<span onclick=\"up()\">...</span></td>";
sHTML += "</tr>"
}
//BROWSE
var sClass = "class='table_row'"
for(var i=0;i<oFolders.childNodes.length;i++)
{
oFolder = oFolders.childNodes(i)
name = oFolder.attributes(0).text;
type_ = oFolder.attributes(1).text;
size = oFolder.attributes(2).text;
created = oFolder.attributes(3).text;
accessed = oFolder.attributes(4).text;
modified = oFolder.attributes(5).text;
path = oFolder.attributes(6).text;
if(sClass=="class='table_row'") sClass="";
else sClass="class='table_row'";
sHTML+= "<tr "+sClass+" style='cursor:default;'>" +
"<td style='padding-left:4'>" +
" <input type=checkbox name=chkFolder value="+i+" onclick=\"realTime()\">" +
"</td>" +
"<td>" +
" <table cellpadding=0 cellspacing=0>" +
" <tr>" +
" <td style='padding-right:5px'>" +
" <img src='ico_folder.gif'>" +
" </td>" +
" <td nowrap style='padding-right:15px'>" +
" <input type=hidden name=inpFolder"+i+" value=\""+path+"\">" +
" <a href=# onclick=\"browse("+i+")\" " +
" title=\"Name: "+name+"\nSize: "+size+"Kb\nCreated: "+created+"\" >" +
name + "</a>" +
" </td>" +
" </tr>" +
" </table>" +
"</td>" +
"<td style='padding-right:15px' align=right>" + size + "Kb</td>" +
"<td style='padding-right:15px' align=right> </td>" +
"</tr>"
}
//FILES
for(var i=0;i<oFiles.childNodes.length;i++)
{
oFile = oFiles.childNodes(i)
name = oFile.attributes(0).text;
type_ = oFile.attributes(1).text;
size = oFile.attributes(2).text;
created = oFile.attributes(3).text;
accessed = oFile.attributes(4).text;
modified = oFile.attributes(5).text;
path = oFile.attributes(6).text;
if(sClass=="class='table_row'") sClass="";
else sClass="class='table_row'";
sHTML+= "<tr "+sClass+" style='cursor:default;'>" +
"<td style='padding-left:4'>" +
" <input type=checkbox name=chkFile value="+i+" onclick=\"realTime()\">" +
"</td>";
sHTML+= "<td>";
sHTML+= "<table cellpadding=0 cellspacing=0>" +
"<tr>" +
"<td style='padding-right:5px'>";
//icons ~~~~~~~~~~~~~~~~~~
if(name.lastIndexOf(".")==-1)
sHTML += "<img src='ico_unknown.gif'>";//unknown
else
{
sExt = (name.substring(name.lastIndexOf(".")+1)).toLowerCase()
bUnknown=true;
for(var j=0;j<arrFiles.length;j++)
{
if(sExt==arrFiles[j][0])
{
bUnknown=false;
sHTML += "<img src=\""+arrFiles[j][1]+"\">";
}
}
if(bUnknown)sHTML += "<img src='ico_unknown.gif'>";
}
//~~~~~~~~~~~~~~~~~~~~~~~~
sHTML+= "</td>" +
"<td nowrap>" +
" <input type=hidden name=inpFile"+i+" value=\""+path+"\">" +
" <a href=# onclick=\"download("+i+")\" " +
" title=\"Name: "+name+"\nSize: "+size+"Kb\nModified: "+modified+"\" >" +
name + "</a>" +
"</td>" +
"<td style='padding-left:7px;padding-right:15px'>";
//open ~~~~~~~~~~~~~~~~~~
if(name.lastIndexOf(".")==-1)
sHTML += ""; //unknown
else
{
sExt = (name.substring(name.lastIndexOf(".")+1)).toLowerCase()
bUnknown=true;
for(var j=0;j<arrFiles.length;j++)
{
if(sExt==arrFiles[j][0])
{
bUnknown=false;
if(arrFiles[j][2]!="")
sHTML += "<img onclick=\"openFile("+i+")\" src=\""+arrFiles[j][2]+"\" style='cursor:hand'>";
else
sHTML += "";
}
}
if(bUnknown)sHTML += "";
}
//~~~~~~~~~~~~~~~~~~~~~~~~
sHTML+= "</td>" +
"</tr>" +
"</table>";
sHTML+= "</td>";
sHTML+= "<td style='padding-right:15px' align=right>" + size + "Kb</td>" +
"<td style='padding-right:15px' align=right> </td>" +
"</tr>";
}
sHTML += "</table>"
//to make
sHTML += "<input type=checkbox name=chkFile style='display:none'>"
sHTML += "<input type=checkbox name=chkFolder style='display:none'>"
doc.innerHTML = sHTML
}
function realTime()
{
var n=0;
var bFolder=false;
for(var i=0;i<chkFolder.length;i++)
{
if(chkFolder(i).checked)
{
n++;
bFolder=true;
}
}
for(var i=0;i<chkFile.length;i++)
{
if(chkFile(i).checked)
{
n++;
}
}
}
function doAddFile()
{
sIn=oDocSave.documentElement.childNodes(0).childNodes(0).attributes(0).text;
modalDialogShow("upload.asp?folder="+sIn.replace(/\+/g, "%2B"),286,110)
if(txtNeedRefresh.value=="yes")
{
sXML = "<root><folder>"+HtmlEncode(sIn)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
txtNeedRefresh.value=""
}
}
function download(i)
{
window.navigate("download.asp?file="+eval("inpFile"+i).value.replace(/\+/g, "%2B"))
}
function openFile(i)
{
sBaseFolder_virtual = "<%=sBaseFolder_virtual%>";
sFile=sBaseFolder_virtual + eval("inpFile"+i).value.replace(/\\/g,"/");
sExt = (sFile.substring(sFile.lastIndexOf(".")+1)).toLowerCase();
if(sExt=="gif" || sExt=="jpg" || sExt=="png" || sExt=="bmp" || sExt=="swf")
window.open(sFile.replace(/\+/g, "%2B"),"view","scrollbars,resizable,width=640,height=480,left=10,top=10");
else if(sExt=="htm" || sExt=="html" || sExt=="asp" || sExt=="pdf" || sExt=="txt" || sExt=="doc" || sExt=="xls")
window.open(sFile.replace(/\+/g, "%2B"),"view","");
else //"mov","mpg","mpeg","wmv","avi","wma","wav","mid","mp3"
window.navigate("http://localhost"+sFile.replace(/\+/g, "%2B"));
}
function doThumbnails()
{
modalDialogShow('gallery.asp',570,400);
}
function doDelete()
{
bNoSelection=true;
sIn=oDocSave.documentElement.childNodes(0).childNodes(0).attributes(0).text;
sXML = "<root>";
sXML+= "<action>delete</action>";
sXML+= "<in>"+HtmlEncode(sIn)+"</in>";
sXML+= "<folders>";
for(var i=0;i<chkFolder.length;i++)
{
if(chkFolder(i).checked)
{
bNoSelection=false;
nIndex=chkFolder(i).value;
sXML+= "<folder>" + HtmlEncode(eval("inpFolder"+nIndex).value) + "</folder>";
}
}
sXML+= "</folders>";
sXML+= "<files>";
for(var i=0;i<chkFile.length;i++)
{
if(chkFile(i).checked)
{
bNoSelection=false;
nIndex=chkFile(i).value;
sXML+= "<file>" + HtmlEncode(eval("inpFile"+nIndex).value) + "</file>";
}
}
sXML+= "</files>";
sXML+= "</root>";
if(bNoSelection)
{
alert("Please make a selection.")
}
else
{
if (confirm("Are you sure you want to delete the selected folders/files ?") == true)
{
sAction = "svcDelete.asp"
send(sXML,"svcDelete.asp");
}
}
}
function doCopyMove()
{
bNoSelection=true;
for(var i=0;i<chkFolder.length;i++)
{
if(chkFolder(i).checked) bNoSelection=false;
}
for(var i=0;i<chkFile.length;i++)
{
if(chkFile(i).checked) bNoSelection=false;
}
if(bNoSelection)
alert("Please make a selection.");
else
modelessDialogShow('copy.asp',375,300);
}
function refresh()
{
sIn=oDocSave.documentElement.childNodes(0).childNodes(0).attributes(0).text;
sXML = "<root><folder>"+HtmlEncode(sIn)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
}
function doRename()
{
bNoSelection=true;
for(var i=0;i<chkFolder.length;i++)
{
if(chkFolder(i).checked) bNoSelection=false;
}
for(var i=0;i<chkFile.length;i++)
{
if(chkFile(i).checked) bNoSelection=false;
}
if(bNoSelection)
alert("Please make a selection.");
else
{
modalDialogShow("rename.asp",240,110)
if(txtNeedRefresh.value=="yes")
{
sIn=oDocSave.documentElement.childNodes(0).childNodes(0).attributes(0).text;
sXML = "<root><folder>"+HtmlEncode(sIn)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
txtNeedRefresh.value=""
}
}
}
function doCreate()
{
modalDialogShow("create.asp",240,110)
if(txtNeedRefresh.value=="yes")
{
sIn=oDocSave.documentElement.childNodes(0).childNodes(0).attributes(0).text;
sXML = "<root><folder>"+HtmlEncode(sIn)+"</folder></root>"
sAction = "svcFileList.asp"
send(sXML,"svcFileList.asp");
txtNeedRefresh.value=""
}
}
function modelessDialogShow(url,width,height)
{
window.showModelessDialog(url,window,
"dialogWidth:"+width+"px;dialogHeight:"+height+"px;edge:Raised;center:Yes;help:No;resizable:No;status:No");
}
function modalDialogShow(url,width,height)
{
window.showModalDialog(url,window,
"dialogWidth:"+width+"px;dialogHeight:"+height+"px;edge:Raised;center:Yes;help:No;resizable:Yes;status:No");
}
</script>
</head>
<body onload="load()">
<table border=0 cellpadding=0 cellspacing=0 width=100% style="margin-top:8; height:85%;">
<tr>
<td colspan=2 id=idLocation style="padding-left:9;padding-bottom:5;padding-top:3;font-size:10px;font-weight:bold"></td>
</tr>
<tr>
<td style="padding-left:10;font-size:10px;font-weight:bold" valign=bottom id=idAction1>
<a href=# onclick="doDelete()">delete</a> |
<a href=# onclick="doCopyMove()">copy/move</a> |
<a href=# onclick="doRename()">rename</a>
</td>
<td style="padding-right:13;font-size:10px;font-weight:bold" align=right valign=bottom>
<span class=link onclick="doThumbnails()">Thumbnails</span> |
<span class=link onclick="doAddFile()">Add File</span> |
<span class=link onclick="doCreate()">Create Folder</span>
</td>
</tr>
<tr>
<td style="padding:8" height=100% colspan=2>
<div id="doc" class=explorer_area style="overflow:auto;width:100%;height:100%;"></div>
</td>
</tr>
<tr>
<td style="padding-left:10;font-size:10px;font-weight:bold" valign=bottom id=idAction2>
<a href=# onclick="doDelete()">delete</a> |
<a href=# onclick="doCopyMove()">copy/move</a> |
<a href=# onclick="doRename()">rename</a>
</td>
<td style="padding-right:13;font-size:10px;font-weight:bold" align=right valign=bottom>
<span class=link onclick="doThumbnails()">Thumbnails</span> |
<span class=link onclick="doAddFile()">Add File</span> |
<span class=link onclick="doCreate()">Create Folder</span>
</td>
</tr>
</table>
<input type="text" ID="txtNeedRefresh" NAME="txtNeedRefresh" style="display:none">
<textarea rows=10 cols=150 ID="txtError" NAME="txtError" style="display:none"></textarea>
<script Language="VBScript">
Sub AnimateWindowStatus
If right(window.status, 1) = " " AND len(window.status) < 100 Then
window.status = Left(window.status, len(window.status) - 1)
window.status = window.status & "| "
Else
window.status = Left(window.status, len(window.status) - 1)
if len(window.status) = 20 Then
window.status = window.status & " "
End If
End If
End Sub
</script>
<script>
function HtmlEncode(sString)
{
sString = sString.replace(/&/g, "&");
sString = sString.replace(/</g,"<");
sString = sString.replace(/>/g,">");
sString = sString.replace(/"/g,'"');
sString = sString.replace(/'/g,"'");
return sString;
}
</script>
</body>
</html>
