formpassing af nyt window
HejsaJeg har et billed system, hvor billederne i en mappe bliver listet, og når man klikker på et billed så åbner det i samme window, men jeg ville gerne have af linkene bliver åbnet i et nyt window, og det window skal kunne tilpasse sig til selve billeds størrelse..
Håber i forstår, hvad jeg mener.
Her kan i se siden:
http://www.andre.aklausen.dk/basket/test.asp
Og nede under her, kan i se kilde koden over siden, så i kan hjælpe mig med af lave det som der står skrevet øverst.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Basketkort . macpack . dk</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK media=all href="style.css"
type=text/css rel=stylesheet>
<script type="text/javascript">
function winStatus(img){
var f = img.src.split('/');
window.status = f[f.length-1].split(".")[0];
return true;
}
</script>
</head>
<body onmouseover=""return winStatus(this);"">
<div align="center">
<p> </p>
<p> </p>
<table width="800" border="0">
<tr>
<td><img src="images/top.gif" width="800" height="127"></td>
</tr>
</table>
<table width="800" height="211" border="0" align="center" cellpadding="0" cellspacing="0" style="border: 1px solid #000000;">
<tr valign="top">
<td><div align="left">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="800" height="60">
<param name="movie" value="menu01.swf">
<param name="quality" value="high">
<embed src="menu01.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="800" height="60"></embed>
</object>
</div> <div align="left"></div></td>
</tr>
<tr valign="top">
<td width="884" height="135" bordercolor="#CCCCCC">
<div align="center">
<%
dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal
image_directory = "images/test"
image_height = "144"
image_width = "100"
Images_pr_Page = "24"
Images_Horizontal = "6"
dim count_image, image, Image_Array
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(image_directory))
For each image in allfiles.files
Image_Array = Image_Array + image.Name & ","
count_image = count_image +1
Next
dim Current_Page, Total_Pages, Total_Images, Page_Name
Page_Name = request.servervariables("script_name")
Total_Images = count_image
Current_Page = request.querystring("page")
If Current_Page = "" or Current_Page = "0" then
Current_Page = "1"
end if
Total_Pages = (Total_Images/Images_pr_Page)
if Total_Pages > int(Total_Pages) then
Total_Pages = int(Total_Pages) + 1
end if
Image_Array = split(Image_Array,",")
dim First_Image, Last_Image
First_Image = ((Current_Page-1)*(Images_pr_Page))+1
If First_Image = "0" then
First_Image = "1"
end if
Last_Image = (Total_Images-First_Image)
if cint(Last_Image) > cint(Images_pr_Page) then
Last_Image = round(First_Image-1) + round(Images_pr_Page)
else
Last_Image = (First_Image + Last_Image)
End if
response.write "<table style=""width:100%;"">" & vbCrLf
dim Count_Image_Prints, td_width
Count_Image_Prints = 0
td_width = int(100 / Images_Horizontal)
dim I
For I = (First_Image-1) to (Last_Image-1)
Count_Image_Prints = Count_Image_Prints + 1
If int(Count_Image_Prints) = int("1") then
response.write "<tr>" & vbCrLf
end if
response.write "<td style=""width:"& td_width &"%;text-align:center;"">" &_
"<img src="""& image_directory &"/"& Image_Array(I) &""" border=""0"" style=""width:"& image_width &"px;height:"& image_height &"px;"" onmouseover=""winStatus(this);"" onmouseout=""window.status='';"" onclick=""location.href=this.src"" />" &_
"</td>" & vbCrLf
If int(Count_Image_Prints) = int(Images_Horizontal) then
response.write "</tr>" & vbCrLf
Count_Image_Prints = 0
end if
Next
response.write "</tr>" & vbCrLf &_
"<tr>" & vbCrLf &_
"<td colspan="""& Images_Horizontal &""" style=""width:100%;text-align:center;"">" & vbCrLf
For I = 1 to Total_Pages
If NOT Cint(Current_Page) = Cint(I) then
response.write " <a href="""& Page_Name &"?page="& I &""">" &_
I &_
"</a> "
else
response.write " ["& I &"] "
end if
Next
response.write "</td>" & vbCrLf &_
"</tr>" & vbCrLf &_
"</table>" & vbCrLf
%>
</div></td></tr>
<tr valign="top">
<td height="14" bordercolor="#CCCCCC"> <div align="center" class="style1"><a href="#" target="_blank" class="style1">Copyright © 2004 - André Christensen </a></div></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
</div>
</body>
</html>
