Дорогой брат Даун! (все дауны - мои братья. Я и сам даун).
Вот склепал тебе не "мигающий" чат на основе объекта XMLHTTP, причем, заставил ентот объект понимать кириллицу (грубо, но работает).
---------------------------------------------
Вот main.htm:
-----------------------------------------------------
<html><body><input type="text" id="nm" value="your name"><br>
<input type="text" id="txt" style="width:500" value="write here">
<input name="snd" type="button" onclick="send()" value="send!"><hr>
<div id="dv"></div>
<script language="vbscript">
dim hh, kk, zz, dd, i, gg, rt, ss
kk=""
set hh=createobject("microsoft.xmlhttp")
sub send()
zz=nm.value & "." & txt.value
dd=""
for i=1 to len(zz)
ss=""
if asc(mid(zz, i, 1))<10 then
ss="00" & asc(mid(zz, i, 1))
elseif asc(mid(zz, i, 1))<100 then
ss="0" & asc(mid(zz, i, 1))
else
ss=asc(mid(zz, i, 1))
end if
dd=dd & ss & " "
next
dd=cstr(dd)
hh.open "post","http://ТвояМашина/zserver.asp", 0
hh.setrequestheader "qwe", dd
hh.send
txt.focus()
txt.value=""
end sub
call ht()
sub ht()
hh.open "post","http://ТвояМашина/zserver.asp", 0
hh.send
gg=""
rt=hh.responsetext
for i=1 to len(rt)/4
gg=gg & chr(cbyte(mid(rt, 4*i-3, 3)))
next
if gg<>kk then
dv.innertext=dv.innertext & chr(13) & gg
kk=gg
end if
call window.settimeout("ht",500,"vbscript")
end sub
</script>
</body></html>
---------------------------------------------------------
Вот zserver.asp:
--------------------------------------------------------
<%@ language="vbscript" %>
<%
if request.servervariables("http_qwe")<>"" then
application.lock
application("text")=request.servervariables("http_qwe")
application.unlock
end if
response.write application("text")
%>
-----------------------------------------------------
P.S. Чел, приславший мне файл mdlBlobOps.bas, видимо, ещё один крупный спец по блобам, работающий в стиле Copy&Paste.
P.P.S. Не ругайте за оффтопик. Уж очень я увлёкся. Последний раз это. Теперь, когда у меня есть собственный чат, буду беседовать сам с собой.
SIGNING OFF.
