Noen som kan hjelpe meg?
Her er HTML FILEN
<!--#include file ="admin_include/admin_global_variables.asp"-->
<!--#include file ="admin_include/admin_sjekklogginn.asp"-->
<%
imgFolder = "admin_gallery"
if Request.QueryString("action")="del" then
If Session("BrukerNivå") <> 1 Then
error = "- Du har ikke tilgang til å slette! \n"
End if
If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil oppstod! \n<% =error %>');
window.history.back();">
</body></html><%
Response.End
End If
filepath = request.QueryString("file")
Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = objFSO1.GetFile(Server.MapPath(filepath))
MyFile.Delete
Response.Redirect "admin_image_persits.asp?catid="& request.QueryString("catid")
end if
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<html>
<head>
<title>Sett inn/Last opp bilde</title>
<style>
BODY
{
FONT-FAMILY: Verdana;FONT-SIZE: xx-small;
}
TABLE
{
FONT-SIZE: xx-small;
FONT-FAMILY: Tahoma
}
INPUT
{
font:8pt verdana,arial,sans-serif;
}
select
{
height: 22px;
top:2;
font:8pt verdana,arial,sans-serif
}
.bar
{
BORDER-TOP: #99ccff 1px solid; BACKGROUND: #336699; WIDTH: 100%; BORDER-BOTTOM: #000000 1px solid; HEIGHT: 20px
}
</style>
<LINK rel="stylesheet" type="text/css" href="admin_css/wp.css">
<META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW">
<%
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "admin_upload_persits_framebar.asp?to=10&" & PID
%>
<SCRIPT LANGUAGE="JavaScript">
function ShowProgress()
{
strAppVersion = navigator.appVersion;
if (document.MyForm.FILE.value != "" || document.MyForm.FILE.value != "" || document.MyForm.FILE.value != "")
{
if (strAppVersion.indexOf('MSIE') != -1 && strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
{
if( strAppVersion.indexOf("Macintosh") != -1 && strAppVersion.charAt(0) >= 3 )
{
window.open('<% = barref %>&b=NN','','width=374,height=180', true);
}
else
{
winstyle = "dialogWidth=370px; dialogHeight:180px; center:yes";
window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
}
}
else
{
window.open('<% = barref %>&b=NN','','width=374,height=180', true);
}
}
return true;
}
</SCRIPT>
</head>
<%
strHTML = ""
set objFSO = server.CreateObject ("Scripting.FileSystemObject")
set objMainFolder = objFSO.GetFolder(server.MapPath(imgFolder))
catid = CStr(request("catid"))
if catid="" then catid = objMainFolder.path
strMappeNavn= catid
cutindex = InStrRev(strMappeNavn,"\")
if cutindex > 0 then
strMappeNavn= Right(strMappeNavn, Len(strMappeNavn)-cutIndex)
end if
set objTempFSO = server.CreateObject ("Scripting.FileSystemObject")
set objTempFolder = objTempFSO.GetFolder (catid)
set objTempFiles = objTempFolder.files
strHTML = strHTML & "<table border=0 cellpadding=3 cellspacing=0 width=240>"
for each objTempFile in objTempFiles
set basePath = objFSO.GetFolder(server.MapPath(imgFolder))
PhysicalPathWithoutBase = Replace(objTempFile.path,basePath.path,"")
sTmp = replace(PhysicalPathWithoutBase,"\","/")
sCurrImgPath = imgFolder & sTmp
strHTML = strHTML & "<tr bgcolor=Gainsboro>"
strHTML = strHTML & "<td valign=top>" & objTempFile.name & "</td>"
'strHTML = strHTML & "<td valign=top>" & objTempFile.type & "</td>"
strHTML = strHTML & "<td valign=top>" & FormatNumber(objTempFile.size/1000,0) & " kb</td>"
strHTML = strHTML & "<td valign=top style=""cursor:hand;"" onclick=""selectImage('" & sCurrImgPath & "')""><u><font color=blue>velg</font></u></td>"
strHTML = strHTML & "<td valign=top style=""cursor:hand;"" onclick=""deleteImage('" & sCurrImgPath & "')""><u><font color=blue>slett</font></u></td></tr>"
next
strHTML = strHTML & "</table>"
Function createCategoryOptions(pi_objFolder)
dim objFolder
dim objFolders
set objFolders = pi_objfolder.SubFolders
for each objFolder in objFolders
createCategoryOptions objFolder
next
if pi_objFolder.attributes and 2 then
'hidden folder then do nothing
else
set basePath = objFSO.GetFolder(server.MapPath(imgFolder))
Response.Write Replace(pi_objFolder.path,basePath.path,"")
if CStr(catid)=CStr(pi_objFolder.path) then
strOptions = strOptions & "<option value=""" & pi_objFolder.path & """ selected>" & Replace(pi_objFolder.path,basePath.path,"") & "</option>" & vbCrLf
else
strOptions = strOptions & "<option value=""" & pi_objFolder.path & """>" & Replace(pi_objFolder.path,basePath.path,"") & "</option>" & vbCrLf
end if
end if
strOptions = strOptions & vbCrLf
createCategoryOptions = strOptions
End Function
function ConstructPath(str)
str = mid(str,len(server.MapPath ("./"))+1)
ConstructPath = replace(str,"\","/")
end function
strAction = Request.QueryString("Action")
If strAction = "createfolder" Then
strMappe = Request.Form("txtMappe")
If strMappe = "" Then
Response.Redirect "admin_image_persits.asp"
End if
strPath = server.MapPath(imgFolder) & "\" & strMappe
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.CreateFolder(strPath)
set f=nothing
set fs=nothing
End if
If strAction = "deletefolder" Then
strMappe = Request.Form("txtMappe")
If strMappe = "" Then
Response.Redirect "admin_image_persits.asp"
End if
If strMappe = "design_background" Then
error = error & "- Du kan ikke slette mappen design_background! \n"
End if
If strMappe = "design_bullet" Then
error = error & "- Du kan ikke slette mappen design_bullet! \n"
End if
If strMappe = "design_employee" Then
error = error & "- Du kan ikke slette mappen design_employee! \n"
End if
If strMappe = "design_menu" Then
error = error & "- Du kan ikke slette mappen design_menu! \n"
End if
If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil oppstod! \n<% =error %>');
window.history.back();">
</body></html><%
Response.End
End If
strPath = server.MapPath(imgFolder) & "\" & strMappe
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(strPath)
fo.Delete
set fo=nothing
set fs=nothing
End if
%>
<body onload="checkImage()" link=Blue vlink=MediumSlateBlue alink=MediumSlateBlue leftmargin=5 rightmargin=5 topmargin=5 bottommargin=5 bgcolor=Gainsboro>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign=top>
<!-- Content -->
<table border=0 cellpadding=3 cellspacing=3 align=center>
<tr>
<td align=center style="BORDER-TOP: #336699 1px solid;BORDER-LEFT: #336699 1px solid;BORDER-RIGHT: #336699 1px solid;BORDER-BOTTOM: #336699 1px solid;" bgcolor=White>
<div id="divImg" style="overflow:auto;width:150;height:170"></div>
</td>
<td valign=top>
<form method=post action=<%=Request.ServerVariables("SCRIPT_NAME")%> id=form2 name=form2>
<table border=0 height=25 cellpadding=0 cellspacing=0><tr>
<td><b>Velg mappe : </b></td>
<td>
<select id=catid name=catid onchange="form2.submit()" class="form_knapper2">
<%=createCategoryOptions(objMainFolder)%>
</select>
</td></tr>
</form>
<form method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>?Action=createfolder" name="createfolder">
<table border=0 height=25 cellpadding=0 cellspacing=0 ID="Table4" width="260"><tr>
<td width="80"><b>Opprett mappe:</b></td>
<td>
<INPUT type="text" name="txtMappe" class="form_txtfield"> <INPUT type="submit" value="OK" class="form_knapper2" id=submit2 name=submit2>
</td></tr>
</form>
<%
Set fso = server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(server.MapPath(imgFolder))
Set fc = f.SubFolders
%>
<form method="post" name="deletefolder">
<table border=0 height=25 cellpadding=0 cellspacing=0 ID="Table4" width="260"><tr>
<td width="80"><b>Slett mappe:</b></td>
<td>
<select id=catid name="txtMappe" class="form_knapper2">
<%
For Each folder in fc
%>
<option value="<%=folder.name%>"><%=folder.name%></option>
<%
Next
%>
</select> <a href="#" onclick="if(confirm('Du sletter nå mappen og alt innholdet!')){document.deletefolder.action='<%=Request.ServerVariables("SCRIPT_NAME")%>?Action=deletefolder';document.deletefolder.submit()};return false"><input type="button" name="Submit2" value="OK" class="form_knapper2"></a>
</td></tr>
</table>
</form>
<table border=0 cellpadding=0 cellspacing=0 width=260>
<tr><td>
<div class="bar" style="padding-left: 5px;">
<font size="2" face="tahoma" color="white"><b>Fil Navn</b></font>
</div>
</td></tr>
</table>
<div style="overflow:auto;height:120;width:260;BORDER-LEFT: #316AC5 1px solid;BORDER-RIGHT: LightSteelblue 1px solid;BORDER-BOTTOM: LightSteelblue 1px solid;">
<%=strHTML%>
</div>
<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="admin_image_persits_progress.asp?<% = PID %>">
Last opp bilde : <br>
<INPUT type="FILE" id="FILE" name="FILE" size=22 class="form_txtfield"><br>
<input name="inpcatid" ID="inpcatid" type=hidden>
<input name="catid" ID="catid" type=hidden><br>
<INPUT TYPE="RADIO" NAME="ResizeOption" VALUE="O" CHECKED>Behold orginal størrelse.<br>
<INPUT TYPE="RADIO" NAME="ResizeOption" VALUE="B" <% If Request("ResizeOption") = "B" Then Response.Write "CHECKED" %>>Sett bredde til
<INPUT TYPE="TEXT" NAME="NewWidth" SIZE="5" VALUE="<%=strMaxImageWidth%>" onfocus="document.MyForm.ResizeOption[1].checked = true" class="form_txtfield"> pixler, sikrer bxh forhold.<br>
<INPUT TYPE="RADIO" NAME="ResizeOption" VALUE="H" <% If Request("ResizeOption") = "H" Then Response.Write "CHECKED" %>>Sett høyde til
<INPUT TYPE="TEXT" NAME="NewHeight" SIZE="5" VALUE="<%=strMaxImageHeight%>" onfocus="document.MyForm.ResizeOption[2].checked = true" class="form_txtfield"> pixler, sikrer b/h forhold.
<br>
<INPUT TYPE="button" value="Last opp" onclick="inpcatid.value=form2.catid.value;MyForm.submit();return ShowProgress();" class="form_knapper2" id=button4 name=button4>
</FORM>
</td>
</tr>
<tr>
<td colspan=2>
<hr>
<table border=0 width=340 cellpadding=0 cellspacing=1>
<tr>
<td>Bilde sti : </td>
<td colspan=3>
<INPUT type="text" id="inpImgURL" name=inpImgURL size=39 class="form_txtfield">
<!--<font color=red>(you can type your own image path here)</font>-->
</td>
</tr>
<tr>
<td>Alt tekst : </td>
<td colspan=3><INPUT type="text" id="inpImgAlt" name=inpImgAlt size=39 class="form_txtfield"></td>
</tr>
<tr>
<td>Justering : </td>
<td>
<select ID="inpImgAlign" NAME="inpImgAlign" class="form_knapper2">
<option value="" selected><Ikke satt></option>
<option value="absBottom">absBottom</option>
<option value="absMiddle">absMiddle</option>
<option value="baseline">baseline</option>
<option value="bottom">bottom</option>
<option value="left">left</option>
<option value="middle">middle</option>
<option value="right">right</option>
<option value="textTop">textTop</option>
<option value="top">top</option>
</select>
</td>
<td>Bilde ramme :</td>
<td><select id=inpImgBorder name=inpImgBorder class="form_knapper2">
<option value=0>0</option>
<option value=1>1</option>
<option value=2>2</option>
<option value=3>3</option>
<option value=4>4</option>
<option value=5>5</option>
</select>
</td>
</tr>
<tr>
<td>Bredde :</td>
<td><INPUT type="text" ID="inpImgWidth" NAME="inpImgWidth" size=2 class="form_txtfield"></td>
<td>Horisontal Spacing :</td>
<td><INPUT type="text" ID="inpHSpace" NAME="inpHSpace" size=2 class="form_txtfield"></td>
</tr>
<tr>
<td>Høyde :</td>
<td><INPUT type="text" ID="inpImgHeight" NAME="inpImgHeight" size=2 class="form_txtfield"></td>
<td>Vertikal Spacing :</td>
<td><INPUT type="text" ID="inpVSpace" NAME="inpVSpace" size=2 class="form_txtfield"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align=center colspan=2>
<table cellpadding=0 cellspacing=0 align=center><tr>
<td><INPUT type="button" value="Avbryt" onclick="self.close();" ID="Button1" NAME="Button1" class="form_knapper2"> </td>
<td>
<span id="btnImgInsert" style="display:none">
<INPUT type="button" value="Sett inn" onclick="InsertImage();self.close();" ID="Button2" NAME="Button2" class="form_knapper2">
</span>
<span id="btnImgUpdate" style="display:none">
<INPUT type="button" value="Update" onclick="UpdateImage();self.close();" ID="Button3" NAME="Button3" class="form_knapper2">
</span>
</td>
</tr></table>
</td>
</tr>
</table>
<!-- /Content -->
<br>
</td>
</tr>
</table>
<script language="JavaScript">
function deleteImage(sURL)
{
if (confirm("Slette dette bilde ?") == true)
{
window.navigate("admin_image_persits.asp?action=del&file="+sURL+"&catid="+form2.catid.value);
}
}
function selectImage(sURL)
{
inpImgURL.value = sURL;
divImg.style.visibility = "hidden"
divImg.innerHTML = "<img id='idImg' src='" + sURL + "'>";
var width = idImg.width
var height = idImg.height
var resizedWidth = 150;
var resizedHeight = 170;
var Ratio1 = resizedWidth/resizedHeight;
var Ratio2 = width/height;
if(Ratio2 > Ratio1)
{
if(width*1>resizedWidth*1)
idImg.width=resizedWidth;
else
idImg.width=width;
}
else
{
if(height*1>resizedHeight*1)
idImg.height=resizedHeight;
else
idImg.height=height;
}
divImg.style.visibility = "visible"
}
function checkImage()
{
oName=window.opener.oUtil.oName
obj = eval("window.opener."+oName)
if (obj.imgSrc()!="") selectImage(obj.imgSrc())//preview image
inpImgURL.value = obj.imgSrc()
inpImgAlt.value = obj.imgAlt()
inpImgAlign.value = obj.imgAlign()
inpImgBorder.value = obj.imgBorder()
inpImgWidth.value = obj.imgWidth()
inpImgHeight.value = obj.imgHeight()
inpHSpace.value = obj.imgHspace()
inpVSpace.value = obj.imgVspace()
if (obj.imgSrc()!="") //If image is selected
btnImgUpdate.style.display="block";
else
btnImgInsert.style.display="block";
}
function UpdateImage()
{
oName=window.opener.oUtil.oName
eval("window.opener."+oName).UpdateImage(inpImgURL.value,inpImgAlt.value,inpImgAlign.value,inpImgBorder.value,inpImgWidth.value,inpImgHeight.value,inpHSpace.value,inpVSpace.value);
}
function InsertImage()
{
oName=window.opener.oUtil.oName
eval("window.opener."+oName).InsertImage(inpImgURL.value,inpImgAlt.value,inpImgAlign.value,inpImgBorder.value,inpImgWidth.value,inpImgHeight.value,inpHSpace.value,inpVSpace.value);
}
/***************************************************/
</script>
<input type=text style="display:none;" id="inpActiveEditor" name="inpActiveEditor" contentEditable=true>
</body>
</html>
