用asp写聊天室，显示时怎样自动刷新？(100分)

我用asp写了一个聊天室，用了application,session
说的话存在application("words")中，显示时用＜mata>标志来刷新，
可是每次刷新后，滚动条都停在页面的最上方,这样最新出来话的就看不到了
请问有什么办法吗?
关于用asp写聊天室,各位高手有什么好的建议吗?

在文件头加Refresh=xx,xx指多少秒

这里有我以前从网上看到的,比较乱,一个简单的例子,不过后面的解释很好.
请将以下代码剪贴到记事簿并保存为chat.asp。

<%@Language=VBScript%>

<%

Response.Buffer=true'设置输出缓存，用于显示不同页面。

Onerrorresumenext'忽略程序出错部分

IfRequest.ServerVariables("Request_Method")="GET"then

'判断客户是以什么方式请求WEB页面

'------------------------

'客户登陆界面

'------------------------

%>

<formmethod="POST"action="chat.asp"><p>

<input type="text" name="nick" size="20" value="
nick"style=" background-color:rgb(192,192,192)"><br>

<inputtype="submit" value="进入聊天室" name="B1"
style="color:rgb(255,255,0); font-size:9pt; background-color:rgb(0,128,128)">

<p><inputtype="hidden"name="log"size="20"value="1"><br></p>

</form>

<%

Response.End'结束程序的处理

Else

Response.clear'清空缓存中的内容

dimtalk

IfRequest.Form("nick")<>""then

'判断客户是是否在聊天界面中

Session("nick")=Request.Form("nick")

EndIf

'------------------------'

客户聊天界面

'------------------------

%>

<form method="POST" action="chat.asp" name=form1>
<p><%=Session("nick")%>说话：<input type="text" name="talk" size="50"><br>

<input type="submit"value="提交"name="B1">

<input type="reset"value="取消"name="B2"></p>

</form>

<AHREF="/asptest/shusheng/chat.asp">离开</a><br><br>

<%

If Request.Form("log")<>1 then

If trim(Request.Form("talk"))="" then

'判断用户是否没有输入任何内容

talk=Session("nick")&"沉默是金。"

Else

talk=trim(Request.Form("talk"))

'去掉字符后的空格

EndIf

Application.lock

Application("show")="<table border='0' cellpadding='0'
cellspacing='0' width='85%'><tr><td width='100%'
bgcolor='#C0C0C0'></td></tr><tr><td width='100%'>
<fontcolor='#0000FF'> 来自"&Request.ServerVariables("remote_addr")
& "的" & Session("nick") & time & "说：</font>" &
talk & "</td></tr><tr><td width='100%' bgcolor='#C0C0C0'>
</td></tr></table><br>" & Application("show")

Application.UnLock

Response.WriteApplication("show")

EndIf

EndIf

%>

第一次运行chat.asp程序，你首先将看到如下页面:



选择你的nick进入聊天室后，将看到如下页面:



输入你想要说的话，对话将出现在输入框的下方，如下图:



下面我们来对这个聊天室程序进行逐步的分析。

首先，由于聊天室的所有客户都要能够共享信息，所以不可避免的要用到
具有应用程序级变量的对象Application，
这是建立Chat程序的关键所在，所有的谈话数据都存放在一个应用程序级变量中，
以便让所有的客户读取。我们可以用所学过的request对象
获取客户所输入的谈话，并保存在变量talk中,然后将talk的值存入应用程序级变量show中，如下:

<%Application("show")=talk&Application("show")%>

接下来要考虑的是当不同的客户同时向Chat应用程序进行操作的时候如何处理。
这个问题其实与在数据库中的两个用户同时写入同一个记录一样，如果两个用户同时
对同一个应用程序级变量进行写操作，则一个用户所作的修改会被另一个用户的操作所覆盖，
所以，如果对Application对象数据的并发访问不采取一定措施，则会导致当两个用户
试图同时对Asp聊天室应用程序提交时，一个用户的提交内容会被另一个用户的提交内容所覆盖，
在被参加到会话中的任何人看到之前就消失了。为了避免这类问题的出现，我们需要使用
Application对象的Lock属性来约束只允许当前的用户编辑或增加Application对象的属性，
这样当用户开始修改应用程序级变量开始，到Application对象被显式地Unlocked为止，
Application对象的属性只能被该用户编辑，如果此时有其他用户请求编辑Application对象，
则这些用户要排队等待，知道应用程序被Unlock为止。如下所示:

Application.lock

Application("show")=talk&Application("show")

Application.UnLock

现在整个程序的核心部分你已经了解了，下面考虑如何保存客户信息，
这里我们要用到一个会话级变量，
即将客户的nick保存在Session中。如:

Session("nick")=Request.Form("nick")

最后，我们要考虑的是如何仅在一个.asp文件中处理各种事件,如:客户登陆界面、
客户聊天界面。由于客户第一次请求.asp文件时，采用的是简单的HTTPGET方式，
但是当客户向页面上的表单字段中增加的数据并向自身提交表单后，.asp文件会
再次被请求，
不过这次数据是经过HTTPPOST方式进行传递的。文件被请求的方式可以用两种方
法来确定。一是测试Request.Form集合是否包含成员，若没有，则表明没有发
送给表单处理的数据。二是使用Request.ServerVariables("Request_Method")变量。
如果表单是通过
HTTPGET方式被请求的，则这个变量会返回“GET”，如果表单被提交处理则返回“POST”。由于后一种方法对于确定文件的请求方式更直接，所以我们使用如下代码进行判断:

ifRequest.ServerVariables("Request_Method")="GET"then

由于我们设置了ASP缓存，所以当程序判断页面请求方式为GET时，
程序运行Response.End，来结束后面的所有操作，否则则运行Response.clear,
清空缓存中已有的内容，并继续程序的运行。这样我们就得以用同一个.asp文件
根据不同情况给客户显示不同的界面。

好了，我已经将这个ASPChat程序的核心部分告诉大家了，剩下的一些细
节性问题请各位自己读程序吧，其实这个程序还存在很多不足之处，最大的毛
病是我没有写自动刷新的功能，因此如果你在Chat中不说话，那也就看不到其
他客户所说的话了。Chat在Internet
中的魅力大家是知道的，其实,用ASP也完全能做到同irc类似的强大功能，当
然这就需要写更多的代码，如果大家有兴趣请写信给我，我将在今后的文章
中逐步提升这个chat程序的等级，让大家也过过“Oper”的隐。
注：有了这个chat程序，你就可以用来在自己的PWS
上建一个chat应用程序，只要将你的IP地址告诉朋友，
如http://202.96.210.33/asp/chat.asp，你们就可以通过你的电脑在网上聊天了，
很爽的，不信你试试!

不好意思,代码没有贴上,我把完整的一片文章发到你的信箱里了.
asp.zip

郑兄,谢谢你了,东西我收到了,可是这个东东好像解决不料我的问题.

ChenXian 用refresh能解决刷新后滚动条位置的问题吗?

《meta http-equiv="refresh" content="3"》
......
《script language="javascript"》
function scrollWindow()
{this.scroll(0, 65000);}
《/script》
...
《body onload="scrollWindow()"》

小天,谢了,我回去试试看

<head>
<META HTTP-EQUIV='refresh' CONTENT=5;URL=InputChat.asp> </META>
<!javascript
-->
<SCRIPT LANGUAGE="JavaScript1.1">
<!--
var autoScrollOn = 1;
var scrollOnFunction;
var scrollOffFunction;

function scrollWindow( )
{
if ( autoScrollOn == 1 )
{
this.scroll(0, 65000);
setTimeout('scrollWindow()', 200);
} // end if
} // end scrollWindow

function scrollOn( )
{
autoScrollOn = 1;
scrollWindow( );
} // end scrollOn

function scrollOff( )
{
autoScrollOn = 0;
} // end scrollOff

function StartUp( )
{
this.onblur = scrollOnFunction;
this.onfocus = scrollOffFunction;
scrollWindow( );
} // end StartUp

scrollOnFunction = new Function('scrollOn( )')
scrollOffFunction = new Function('scrollOff( )')
StartUp();
// -->
</SCRIPT>
</head>

目前客户端显示主要有几种方法:
1.主窗口不停刷新(最传统,也是效果最差的一种,就是你的方法)
2.主窗口不刷新,用个不可见的frame定时刷新,从server端接受数据然后用java script等往
主窗口添加内容(新兴的聊天室大多如此)
3.主窗口不刷新,一直保持与server端的连接(就象一个老不结束的大HTML),Server端一有内容
就往Client端发,Client端马上就能显示出来(比如网易的聊天室)
如果一定要用第一种,不用噶麻烦,在你输出的html最后,一般是</html>加一条
"<script>window.scrollBy(0,65535)</script>"
搞定

上面引号中是
"<script>window.scrollBy(0,65535)</script>"

同意小天的说法

接受答案了.