<!-- #Include file="include/setup.asp" -->
<!--#include file ="include/admin_sjekklogginn.asp"-->
<!--#include file ="include/common.asp"-->
<!--#include file ="include/upload.asp"-->
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
strImageID = Request.QueryString("ImageID")
If strImageID = "1" Then
error = "Du kan ikke slette dette bilde! "
End if
If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('BEKLAGER! <% =error %>');
window.history.back();">
</body></html><%
Response.End
End If
if Request.QueryString("action")="del" then
strSQL = "DELETE FROM tblImages where ImageID=" & strImageID & " AND ImageKID=" & strKID
adoCn.Execute strSQL
end if
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
if Request.QueryString("action")="upload" then
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
ByteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
BuildUploadRequest RequestBin
Dim aux, aux1, FILEFLAG
Dim ImageName, ContentType, FilePathName, FileName, Value
ImageName=UploadRequest.Item("ImageName").Item("Value")
ImageName=replace(ImageName, "'", "''")
on error resume next
ContentType =UploadRequest.Item("File").Item("ContentType")
FILEFLAG = err.number
on error goto 0
if FILEFLAG = 0 then
ContentType = UploadRequest.Item("File").Item("ContentType")
FilePathName = UploadRequest.Item("File").Item("FileName")
FileName = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
Value = UploadRequest.Item("File").Item("Value")
else
FileName = ""
end if
If Len(ImageName) < 5 Then
error = error & "Filnavnet må minst ha 5 tegn. "
End If
If Len(ImageName) > 50 Then
error = error & "Filnavnet må ikke overskride 50 tegn. "
End If
'Sjekker om filen er større en 50 KB
If ByteCount > 50000 Then
error = error & "Filen er for stor. "
End if
'Sjekker om filen er mindre en 500 BYTES
If ByteCount < 500 Then
error = error & "Filen er for liten. "
End if
' Dersom error ikke er "", har det oppstått minst en feil. Skriv ut feilmelding
If error <> "" Then
Response.Clear
%><html>
<body onload="window.alert('En feil skjedde! <% =error %>');
window.history.back();">
</body></html><%
Response.End
End If
if filename<>"" then
adoCn.Execute("INSERT INTO tblimages (ImageKID, ImageName, FileName, MimeType) VALUES ('" & strKID & "','" & ImageName & "','" & FileName & "', '" & ContentType & "')")
adoRs.open "select top 1 * from tblImages order by ImageID DESC", adoCn, 1, 3
if not adoRs.eof then
adoRs.Fields("Bindata").appendChunk value & chrB(0)
adoRs.Update
adoRs.close
end if
end if
set UploadRequest = nothing
End If
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%>
<html>
<head>
<title><%=tittel_admin%></title>
</head>
<body style="FONT-FAMILY: Verdana;FONT-SIZE: x-small;">
<link rel="stylesheet" type="text/css" href="css/style.css">
<font size="3"><b>Bilder</b></font> <br>
<form method="post" action="admin_BildeListe.asp?action=upload" name="ImageForm" enctype="multipart/form-data">
<table border="0">
<tr><td class="tekst">Navn : </td><td><input name="ImageName" size="30" style="FONT-FAMILY: Verdana; Background-color:#EFEDDE; border-width:1; border-style:solid;FONT-SIZE: 8pt;"></td></tr>
<tr><td class="tekst">Bilde : </td><td><input type="File" name="File" size="30" style="FONT-FAMILY: Verdana; Background-color:#EFEDDE; border-width:1; border-style:solid;FONT-SIZE: 8pt;"></td></tr>
<tr><td> </td><td><input type="submit" value="Last opp bilde" style="FONT-FAMILY: Verdana; Background-color:#EFEDDE; border-width:1; border-style:solid;FONT-SIZE: 8pt;" id="submit1" name="submit1"></td></tr>
</table>
</form>
<ul>
<%
strSQL = "Select * From tblImages where ImageKID=" & strKID & "order by ImageID Desc"
adoRs.Open strSQL, adoCn, 3, 1, &H0001
If adoRs.RecordCount = 0 Then Response.End
Dim ShowPage
ShowPage = CInt(Request.QueryString("ShowPage"))
Dim PageSize
PageSize = 10
adoRs.PageSize = PageSize
Dim NumOfPages
NumOfPages = adoRs.PageCount
If ShowPage < 1 then
ShowPage = 1
ElseIf ShowPage > NumOfPages Then
ShowPage = NumOfPages
End If
adoRs.AbsolutePage = ShowPage
Dim i
i = 0
Do While Not adoRs.EOF and not i = PageSize%>
<li>
<%=adoRs("ImageName")%> (<%=adoRs("FileName")%>)
[ <span style="cursor:hand;TEXT-DECORATION: underline" onclick="DelImage(<%=adoRs("ImageID")%>);">Slette</span> ]
<br>
<img style="cursor:hand;" onclick="SelectImage(<%=adoRs("ImageID")%>)" src="admin_BildeSe.asp?ImageID=<%=adoRs("ImageID")%>" width="150" border="2">
</li>
<%
i = i + 1
adoRs.MoveNext
Loop%>
</ul>
<%
Response.Write "<hr>"
Response.write "<table width=400 align=center><tr><td align=right>"
Dim k
for k=1 to NumOfPages
if k=ShowPage then
Response.Write k & " "
else
Response.Write "<a href='admin_BildeListe.asp?ShowPage=" & k & "'>" & k & "</a> "
end if
Next
Response.write "</td></tr></table>"
%>
<script language="JavaScript">
function DelImage(ImageID)
{
if (confirm("Slette dette bildet ?") == true)
{
window.navigate("admin_BildeListe.asp?action=del&ImageID="+ImageID);
}
}
function SelectImage(ImageID)
{
window.opener.doCmd(this,"InsertImage","admin_BildeSe.asp?ImageID="+ImageID);
self.close();
}
</script>
</body>
</html>
<%
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
Ny bruger
Nybegynder
Opret
Preview
