Javascript + ASP
Hvordan bygger jeg nedenstående link med swapImage onclick-funktionen ind i scriptet nederst på siden.
<a href=\"#\" onClick=\"MM_swapImage(\'Image1\',\'\',\'folder_2.gif\',1)\"><img src=\"folder_1.gif\" width=\"19\" height=\"16\" border=\"0\" name=\"Image1\"></a>
Jeg har smidt javascriptet ind imellem <head> og </head>
Problemet er når jeg skal kalde javascriptet fra linket i: strSvar
Jeg har markeret stedet i scriptet med ----
hvor swap-funktionen skal kaldes.
<!--#include file=\"functions.inc\"-->
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
strSQL = \"SELECT * FROM Forums WHERE (ID = \" & Request(\"ForumId\") & \")\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intForumID = rs(\"ID\")
strForum = rs(\"Forum\")
strDescription = rs(\"Description\")
End If
strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ID = \" & Request(\"Id\") & \") AND (OrgThread = True)\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
intMessageID = rs(\"ID\")
strSubject = Server.HTMLEncode(rs(\"Subject\"))
strName = Server.HTMLEncode(rs(\"Name\"))
strEmail = Server.HTMLEncode(rs(\"Email\"))
dtmFormDate = rs(\"FormDate\")
dtmFormTime = rs(\"FormTime\")
strComment = Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\"<br>\")
End If
strSQL = \"SELECT *, Format$([date],\'dd/mm/yyyy\') AS FormDate, Format$([date],\'hh:mm\') AS FormTime FROM Entries WHERE (ReplyId = \" & Request(\"Id\") & \") AND (OrgThread = False) ORDER BY ID DESC\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
strSvar = strSvar & \"<li><font face=Verdana size=1><strong><a href=\"\"viewmsg.asp?Id=\" & intMessageID & \"&ForumID=\" & intForumID & \"&Showsub=\" & rs(\"ID\") & \"\"\">Re: \" & strSubject & \"</a> <em>(\" & Server.HTMLEncode(rs(\"Name\")) & \", \" & rs(\"FormDate\") & \" \" & rs(\"FormTime\") & \")</em></strong></font></li>\"
If Len(Request(\"Showsub\")) > 0 And Clng(Request.QueryString(\"Showsub\")) = Clng(rs(\"ID\")) Then
---- strSvar = strSvar & \"<br><font face=Verdana size=1>\" & Replace(Server.HTMLEncode(rs(\"Comment\")),vbCrLf,\"<br>\") & \"</font><br> \"
End If
rs.MoveNext
Loop
End If
rs.Close
myConn.Close
Set myConn = Nothing
%>
<html>
<head>
<title>ASPForum [ Læs besked ]</title>
<script language=\"JavaScript\">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf(\"#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v3.0
var p,i,x; if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<body bgcolor=\"#ffffff\" text=\"#000000\" link=\"#000000\" vlink=\"#000000\" alink=\"#FFFFFF\"
topmargin=\"2\" leftmargin=\"0\" marginwidth=\"0\" marginheight=\"2\">
<div align=\"center\"><center>
<table border=\"0\" width=\"400\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#ffffff\" height=\"176\">
<tr>
<td colspan=\"3\" bgcolor=\"#efefef\"><font face=\"Verdana\" size=\"2\"
color=\"#990000\"><strong>Forum: </strong><%=strForum%> - <%=strSubject%> </font></td>
</tr>
<tr>
<td valign=\"top\" colspan=\"2\">
<div align=\"center\"><font face=\"Verdana\" color=\"#990000\"
size=\"2\"><a href=\"default.asp\">[Indgang]</a>
<a href=\"forumthreads.asp?ForumId=<%=intForumID%>\">[Emner]</a></font>
</div><hr>
</td>
</tr>
<tr>
<td valign=\"top\" width=\"281\"><font face=\"Verdana\" color=\"#668097\" size=\"2\"><strong>Emne:</strong></font></td>
<td valign=\"top\" width=\"119\"><font face=\"Verdana\" color=\"#668097\" size=\"2\"><strong>Indlæg:</strong></font></td>
</tr>
<tr>
<td colspan=\"3\" height=\"113\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#ffffff\">
<tr>
<td width=\"250\" align=\"left\"><font face=\"Verdana\" size=\"1\" ><strong><%=strSubject%></strong></font></td>
<td width=\"150\" rowspan=\"2\" valign=\"top\" align=\"right\" >
<table width=\"120\" border=\"0\">
<tr>
<td><font face=\"Verdana\" size=\"1\"><%=dtmFormDate%>-<%=dtmFormTime%></font></td>
</tr>
<tr>
<td><font face=\"Verdana\" size=\"1\" ><%=strName%></font></td>
</tr>
<tr>
<td><font face=\"Verdana\" size=\"1\"><a href=\"mailto:<%=strEmail%>\"><img src=\"images\\brev.gif\" width=\"18\" height=\"11\" border=\"0\"></a></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width=\"250\" valign=\"top\" height=\"57\" ><font face=\"Verdana\" size=\"1\"><%=strComment%><br>
<a href=\"forumpost.asp?ForumId=<%=intForumID%>&MessageId=<%=intMessageID%>\"><small><b>[Besvar]</b></small></a></font></td>
</tr>
<tr>
<td align=\"left\" colspan=\"2\">
<hr noshade size=\"1\" color=\"#000000\">
</td>
</tr>
<tr>
<td bgcolor=\"#efefef\" align=\"left\" colspan=\"2\"><font face=\"Verdana\" color=\"#990000\"><strong><small><%=strSvar%></small></strong></font></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
</body>
</html>
