4 svar · 219 visningar · startad av MrBergman
En dum fråga!
Hur skriver man om detta så man kan lägga in det i en asp-kod?
<a href="#" onClick="
parent.vanster.location='där menyn ligger';
parent.main.location='Den sida som skall öppnas'
return false;
">
Inga frågor är för dumma. :)
Jag tror att denna kod fungarar, dock blev jag osäker hur det gällde enkelfnuttarna. Testa!
<%
Response.Write("<a href=""#"" onClick=""parent.vanster.location='där menyn ligger';parent.main.location='Den sida som skall öppnas'return false;"">")
%>
Får inte detta till att funka...
Håller på att anpassa Macces meny:
<%Dim intParentId,strParentId,arrLinks,intGrpId,Sublink,strClass,strBullet,qstLnkId,qstParentId,strPid,lank
qstLnkId = Request.Querystring("lnkid")
qstParentId = Request.Querystring("parid")
scriptname = Request.ServerVariables("SCRIPT_NAME")
arrLinks = GetRows("SELECT page_id,parent_page_id,linktext FROM tbl_links ORDER BY orderid ")
lank = Request.Querystring("lank")
intGrpId = 1 'de länkar som ska vara på nivå ett är barn till grupp 1 (alltså parent_page_id i databasen är =1)
If Len(qstParentId)<0 AND IsArray(arrLinks) THEN ' om man inte har querystring så öppnas den första länken automatiskt
For I = 0 To Ubound(arrLinks,2)
qstLnkId = arrLinks(0,I)
qstParentId =arrLinks(0,I)
IF intGrpId = arrLinks(1,I) THEN Exit For
Next
END IF
Response.Write "<HTML><HEAD><STYLE TYPE=""text/css"">"&VbCrlf
Response.Write ".catlink {color: #3A3A3A; font-family: verdana,arial; font-size: 10px; text-decoration: none;}"&VbCrlf
Response.Write ".sublink {color: #3A3A3A; font-family: verdana,arial; font-size: 10px; text-decoration: none;}"&VbCrlf
Response.Write ".catlinkactive{color: #000000; font-family: verdana,arial; font-size: 10px; text-decoration: none; Font-weight:bold;}"&VbCrlf
Response.Write ".sublinkactive{color: #000000; font-family: verdana,arial; font-size: 10px; text-decoration: none; Font-weight:bold;}"&VbCrlf
Response.Write "</STYLE></HEAD><BODY>" & VbCrlf
If IsArray(arrLinks) Then
Response.Write "<TABLE border='0' cellspacing='0' cellpadding='1' width='0%' align='left'>"&VbCrlf
Call LinkTree(intGrpId,0)
Response.Write "</TABLE>"
ELSE
Response.Write "Finns inga länkar"&VbCrlf
END IF
Response.Write "</BODY></HTML>"
Sub LinkTree(intParent,intIndent) : Dim X,Z
For X = 0 To Ubound(arrLinks,2)
If arrLinks(1,X) = intParent AND (Cstr(arrLinks(1,X))=Cstr(intGrpId) OR instr(","&qstParentId&",",","&intParent&",")>0) Then
strPid=""
Response.Write VbCrlf & "<TR><TD bgcolor='#ffffff'>"
For Z = 1 To intIndent
Response.Write("<img src='1px.gif' width='6' height='8' align='left'>")
Next
IF intIndent=0 then
Sublink=arrLinks(0,X)
IF cstr(qstLnkId) = cstr(arrLinks(0,X)) THEN
strClass = "catlinkactive"
strBullet = "<img src='icon-active-dot.gif' border=0 align='left'>"
ELSE
strClass = "catlink"
strBullet = "<img src='icon-inactive-dot.gif' border=0 align='left'>"
END IF
ELSE
For Z = 1 To intIndent : strPid=strPid&split(qstParentId,",")(Z-1) & "," : next
Sublink=strPid & arrLinks(0,X)
IF cstr(qstLnkId) = cstr(arrLinks(0,X)) THEN
strClass = "sublinkactive"
strBullet = "<b>- </b>"'kan även vara bild som ovan
ELSE
strClass = "sublink"
strBullet = "- "
END IF
END IF
Response.Write("<a href='"&scriptname&"?lnkid="&arrLinks(0,X) &"&parid="&Sublink&"' class='"&strClass&"'>"&VbCrlf)
Response.Write(strBullet & arrLinks(2,X)& "</a></TD></TR>"&VbCrlf)
Call LinkTree(arrLinks(0,X),intIndent + 1)
End If
Next
End Sub
Function GetRows(ByVal SQL)
Dim arrRecords, rs
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("\meny\links.mdb"))
Set rs = Connection.Execute(SQL)
If Not rs.BOF Or Not rs.EOF Then
arrRecords = rs.GetRows()
ELSE
arrRecords = ""
End If
rs.Close
Set rs = nothing
Connection.Close
Set Connection = nothing
GetRows = arrRecords
End Function
%>
<head>
<base target="huvud">
</head>
Vill då kunna öppna en länk när man klickar på menyn.
Tänkte då att
<a href="#" onClick="
parent.vanster.location='där menyn ligger';
parent.main.location='Den sida som skall öppnas'
return false;
">
skulle funka att sätta in i länken.
Ngn som vet hur man skall göra??
Har skapat en ny kolumn i databasen som jag lägger in länken i, länken läggs sedan in i strängen link.
Om du ska spara länken som den är i en databas måste du först ersätta alla
citationstecken -> ' <- med dubbla citationstecken. -> '' <--
Observer att det är dubbla citationstecken, ingen dubbelfnutt.
Ändra frågan till:
GetRows("SELECT page_id,parent_page_id,linktext,dinURLkolumn FROM tbl_links ORDER BY orderid ")
Sen lägg till funktionen på din menysida
(här heter den andra framen main enl javascriptet nedan....)
Response.Write "<script Language=""JavaScript"">" & Vbcrlf
Response.Write "function load2(URL1,URL2)" & Vbcrlf
Response.Write "{" & Vbcrlf
Response.Write " location.href=URL1;" & Vbcrlf
Response.Write " parent.frames.main.location.href=URL2;" & Vbcrlf
Response.Write "}" & Vbcrlf
Response.Write "</script>" & Vbcrlf
och sen i länken
Response.Write("<A HREF=""javascript:load2('"&scriptname&"?lnkid="&arrLinks(0,X) &"&parid="&Sublink&"', '"&arrLinks(3,X)&"')"" class='"&strClass&"' >")
Response.Write(strBullet & arrLinks(2,X)&"</a></TD></TR>"&VbCrlf)
Mvh Macce