Hallo J�rg,
Das Klick-Ger�usch erzeugt IE immer, wenn ein Link geklickt oder ein
Formular abgeschickt wird und kann leider nicht abgestellt werden...
Eine M�glichkeit das Klicken abzustellen ist es alle Daten per XMLHTTP
oder RemoteScripting zu �bertragen...
Eine andere - zumindest f�r das Empfangen - sind refreshes....
Denn das angeben einer neuen URL in einem Frame klickt, jedoch das
refreshen nicht... siehe auch das angeh�ngte Mini-Beispiel-Chat...
Reicht Dir das?
Claudius
>
> Hallo Leute,
>
> Hallo Claudius !
>
> wie kann ich den im Chat irgendwie einen Befehl unterbringen, der die
> Klickger�usche im IE unterbindet. Hast Du da irgendwas in petto ?
>
>
> J�rg Schwalenberg
------------------------> chat.asp
<%
Response.Buffer = true
keepMessagesNum = 10
%>
<% select case Request("frame")%>
<%case "main"%>
<html>
<head>
<script language="Javascript">
window.setInterval("parent.datapump.window.location.reload()",3000);
</script>
</head>
<body>
<form method="POST" action="chat.asp?frame=postMess"
onsubmit="parent.datapump.window.location.reload()">
<table width="100%"><tr>
<td>nick:</td>
<td><input name="nick" size="6"></td>
<td>say:</td>
<td style="width:100%"><input name="text"
style="width:100%"></td>
<td><input type="submit" value="submit"></td>
</tr></table>
<hr>
</form>
<div id="output"></div>
</body>
</html>
<%case "datapump"%>
<html><head><script language="Javascript">
var out =
parent.frames["main"].document.getElementById("output");
out.innerHTML = "";
<%
for each m in split(Application("messages"),"@@")
nick = split(m,"|")(1)
message = split(m,"|")(2)
%>
out.innerHTML += "<b><%=nick%>:</b> <%=message%><br>";
<%
next
%>
</script></head></html>
<%case "postMess"%>
<%
addMessage Request("nick"),Request("text")
Response.Status = "204 No Content"
Response.End
%>
<% case else 'Starting Frameset %>
<html><head><title>ASP-Chat-Demo</title></head>
<frameset rows="1,*">
<frame name="datapump" src="chat.asp?frame=datapump"
scrolling="no" noresize frameborder=0 framespacing=0 border=0>
<frame name="main" src="chat.asp?frame=main" noresize
frameborder=0 framespacing=0 border=0>
</frameset>
</html>
<%end select%>
<%
sub addMessage(nick,mess)
dim mArr, mStr, i
Application.Lock
Application("curMessNum")=Application("curMessNum")+1
mArr = split(Application("messages"),"@@") : mStr=""
for each i in mArr
if ( CInt(Application("curMessNum")) - _
CInt( split(i,"|")(0) ) ) < keepMessagesNum then
mStr = mStr & "@@" & i
end if
next
mStr = mStr & "@@" & Application("curMessNum") & _
"|" & nick & "|" & mess
Application("messages") = mid(mStr,3)
Application.UnLock
end sub
%>
<------------------------------------
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
