Tables indeni asp koder
Jeg har nu fået en side op hvor man kan uploade til og slette igen. Som sletknap har jeg benyttet en simpel jpg-fil. Problemet er bare at det ikke ser pænt ud når jpg-filen står vilkårlige steder alt afhængig af hvor stort filnavnet er på den fil der skal slettes. Jeg vil gerne have at jpg-filen skal kunne være det samme sted ved alle filerne. dvs. 2 cm til højre el. lign. Det er svært at forklare så her er et link til siden.¨http://www.tekken.dk
Man skal logge ind men koden står på siden.
Kode: k
Pass: k
Filen som jeg benytter til at vise min folder med filer hedder visfolder.asp og er som flg.
<html>
<title> Lemtech Manager </title>
<FORM METHOD="POST" ACTION="/scripts/aspSmartUpload/Sample1.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="27"><BR>
<input name="submit" type="image" src="images/ok.gif">
</FORM>
<body bgcolor="#F5F5DC">
<%
Dir = "aspSmartUpload/Upload/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(Dir))
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 800 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
%>
<%
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
Response.Write "<a href='aspSmartUpload/Upload/" & Image.Name & "' target='_blank'>" & "<FONT face='verdana,arial,helvetica' color=black size='2'>" & Image.Name & "</a>" & "<a href='sletfil.asp?fil=" & Image.Name & "'>" & "<img src='images/delete5.jpg' border=0 title=Delete file>" & "</a><br></font>"
End If
Next
Set objFS = Nothing
%>
Det er den der Response.Write som jeg gerne vil have i tables, men jeg er stadig ikke så god til asp og ved derfor ikke hvordan den skal indvikles i koden..
