javascript og ASP
Hejsa - jeg forsøger lige en gang til med lidt flere point, og håber det hjælper, da det er vigtigt for mig at få det til at lykkes :-)Jeg har en asp fil, der ser ud som følgende:
----------------
<!-- #include file="protect.inc" -->
<%
' -- show.asp --
' Generates a list of uploaded files
Response.Buffer = True
' Connection String
Dim connStr
Dim taeller
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("blomst.mdb")
%>
<html>
<head>
<!-- Minus AutoDato -->
<title>BrugersideM1</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
<LINK HREF="../Stylesheets/Stylesheet.css" REL="stylesheet" TYPE="text/css">
<LINK HREF="Scripts/startVindue.js" REL="stylesheet" TYPE="text/css">
</head>
<body>
<center>
<H1><B> lalitha</B></H1>
</center>
<center><IMG SRC="../../Billeder/AdskilTop.gif" BORDER="0" WIDTH="450" HEIGHT="38" ALIGN="bottom" ALT=""></center><br>
<table width="600" border="0" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID],[File Name],[File Size],[Content Type]," & _
"[Kategori],[StortID] from Files Where [File Name] Like 'th_%' And [Kategori] Like 'th-1Med'" & _
"order by [Kategori] asc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr>"
taeller=0
While Not rs.EOF
taeller=taeller+1
taellernavn=taellernavn+1
Response.Write "<td align=""center"">"
Response.Write "<a href=""billede.asp?ID=" & rs("stortID") & """>"
Response.Write "<img BORDER=0 src=""file.asp?ID=" & rs("ID") & """>" & "<br>"
Response.Write "</a>"
If taeller=5 Then
taeller = 0
Response.Write "</td></tr></table><table width=""600"" border=""0"" align=""center""> <tr><td align=""center"">"
End If
rs.MoveNext
Wend
Response.Write "</td></tr>"
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>
</table>
</body>
</html>
------------
I ovennævnte asp fil henter jeg endnu en asp fil, der henter billederne fra min access database én af gangen.
Filen ser ud som følgende:
<%
' -- file.asp --
' Retrieves binary files from the database
Response.Buffer = True
' ID of the file to retrieve
Dim ID
ID = Request("ID")
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("blomst.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [File Data],[Content Type] from Files where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType = rs("Content Type")
Response.BinaryWrite rs("File Data")
End If
rs.Close
Set rs = Nothing
%>
--------
Jeg har en javscriptfil, der ser ud som følgende:
<!--
function startVindue(theURL,winName,width,height,features) {
var window_width = width;
var window_height = height;
var window_top = (screen.height-window_height)/2;
var window_left = (screen.width-window_width)/2;
newWindow=window.open(''+ theURL + '',''+ winName + '','width=' + window_width + ',height=' + window_height + ',top=' + window_top + ',left=' + window_left + ',' + features + '');
newWindow.focus();
}
-->
Nu til mit problem, jeg linker til javascriptfilen i mit første asp dokument, da jeg vil bruge den, når jeg henter de enkelte billeder i følgende sætning
Response.Write "<a href=""billede.asp?ID=" & rs("stortID") & """>"
Jeg har forsøgt mig frem med at tilføje de forskellige javascript elementer på følgende måde:
Response.Write "<A HREF=""java script:void();"" onClick=""startVindue('billede.asp?ID=" & rs("stortID") & "','Farver','940','675','scrollbars=yes')"">"
Gør jeg det - lister den stadig billederne - men trykker jeg på et billede sker der intet som helst.
Det skal tilføjes - bruger jeg asp filerne uden javascriptet, gør den som den skal - men åbner bare i samme vindue.
Nogen der kan få føjet ind, så når jeg trykker på linket, skal den åbne det i en popup boks?
simsen :-)
