Översätta lite javascript till asp?

6 svar · 265 visningar · startad av Jesper T 18 mars 2003

Jesper TMedlem sedan nov. 20017 144 inlägg

Trådstart18 mars 2003 17:32#1

Har lite javascript som jag tänkte översätta till asp.

<table border="0" bordercolor="#000000" cellpadding="0" cellspacing="1">
<tbody>
<tr>
<script language="JavaScript">
c = new Array();								
c[1] = "FF";				
c[2] = "CC";				
c[3] = "99";				
c[4] = "66";				
c[5] = "33";				
c[6] = "00";				
d = 0;								
for (i=1;i <=6;i++)
{					
if (i >1)
{					
document.write( "</tr>\n<tr>\n");					
}					
for (m=1;m <=6;m++)
{								
for (n=1;n <=6;n++)
{								
d++;							
colour = c[i] + c[m] + c[n];			 
document.write("<td bgcolor=\"#"+colour+"\" width=7 class=\"text\"><a href=\"#\" onClick=\"changeColor('"+colour+"')\"><img src=\"images/pixel.gif\" width=7 height=7 name=\"a"+d+"\" border=0></td>\n");
}					
}				
}	
</script>        
</tr>        
</tbody>       
</table>

Det är någon slags färgsnurra. Idéer?

@ndersMedlem sedan juni 200032 967 inlägg

18 mars 2003 17:38#2

Snabb omskrivning:

<table border="0" bordercolor="#000000" cellpadding="0" cellspacing="1">
<tbody>
<tr>
<%
c = Array("FF", "CC", "99", "66", "33", "00")
d = 0								

for i = 1 to 6
	if i > 1 then
		Response.write "</tr>" & vbCrLf & "<tr>" & vbCrLf
	end if
	for m = 1 to 6
		for n = 1 to 6
			d = d + 1
			colour = c(i) & c(m) & c(n)
			Response.Write "<td bgcolor=""#" & colour & """ width=7 class=""text""><a href=""#"" onClick=""changeColor('" & colour & "');""><img src=""images/pixel.gif"" width=7 height=7 name=""a" & d & """ border=0></td>" & vbCrLf
		next
	next
next
%>
</script>        
</tr>        
</tbody>       
</table>

red: nu specificerade du ju iofs inte vad du ville ha det i för språk, så jag antog att det var VBScript du ville ha det i. Det hade inte varit helt svårt att "översätta" till JScript, om man nu tycker det skulle vara sköj.

mvh

Jesper TMedlem sedan nov. 20017 144 inlägg

18 mars 2003 17:43#3

Snabbare får man leta efter, tack @nders!
VbScript var det ja förståss.

@ndersMedlem sedan juni 200032 967 inlägg

18 mars 2003 17:44#4

Jag har inte testat koden, så du får gärna rapportera om det funkar enligt önskemål.

mvh,

JosefMedlem sedan mars 20023 561 inlägg

18 mars 2003 17:45#5

Liten omskrivning:

<script language=VBScript>
c = Array("FF", "CC", "99", "66", "33", "00")
d = 0
For i = 1 to 6
	If i > 1 Then
		Response.Write("</tr><tr>")
                End If
	For m = 1 to 6
		For n = 1 to 6
			d = d + 1
			colour = c(i) & c(m) & c(n)
			Response.Write("<td bgcolor='#" & colour & "' width=7 class='text'><a href='#' onClick='changeColor('" & colour & "')'><img src='images/pixel.gif' width=7 height=7 name='a" & d & "' border=0></td>")
		Next
	Next
Next
</script>

Jesper TMedlem sedan nov. 20017 144 inlägg

18 mars 2003 17:51#6

Javascriptet verkar ju dock vara bra mycket snabbare
Kanske svårt att jämföra visserligen.

<table border="0" bordercolor="#000000" cellpadding="0" cellspacing="1">
<tbody>
<tr>
<%
c = Array("FF", "CC", "99", "66", "33", "00")
d = 0								

for i = 0 to 5
	if i > 0 then
		Response.write "</tr>" & vbCrLf & "<tr>" & vbCrLf
	end if
	for m = 0 to 5
		for n = 0 to 5
			d = d + 1
			colour = c(i) & c(m) & c(n)
			Response.Write "<td bgcolor=""#" & colour & """ width=7 class=""text""><a href=""#"" onClick=""changeColor('" & colour & "');""><img src=""images/pixel.gif"" width=7 height=7 name=""a" & d & """ border=0></td>" & vbCrLf
		next
	next
next
%>
</tr>        
</tbody>       
</table>

(Jag ändrade alla for till: "for bjaj=0 to 5")

mikulMedlem sedan aug. 20013 824 inlägg

18 mars 2003 22:11#7

Ja eftersom att javascript körs på klientsidan och asp körs på servern och sedan skickas till klienten så är det ju lite svårt att jämföra.
Har man dock en supersnabb sever och en supersnabb lina så kan man ju komma lite närmare, men det kommer nog aldrig upp i samma hastighet.

/ Mikul