2.8w+
社区成员
真心求助。。请大家帮帮忙。谢谢了
4个文件 实现个简单的聊天室 但是提示错误 也没搞明白 请指教下，把代码复制到你那就OK，哪有问题帮忙看看，发个正确的万分感谢！
1：global.asa
<script language="vbscript" runat="server">
sub Application_OnStart
Application.Lock
'初如化聊天记录
dim msg(100)
for i=1 to 99
msg(i)="<br/>"
next
msg(100)="系统消息：欢迎来到简单聊天室！<br/>"
Application("msg")=msg
Application.UnLock
end sub
sub Application_OnEnd
end sub
</script>
2:index.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>简易APPLICATION聊天室</title>
</head>
<frameset rows="*,80" frameborder="no" border="0" framespacing="0">
<frame src="msg.asp" name="mainFrame" id="mainFrame">
<frame src="send.asp" name="bottomFrame" id="bottomFrame" scrolling="No" noresize="noresize">
</frameset>
<noframes><body>
</body>
</noframes></html>
3:msg.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="refresh" content="5;url=msg.asp" />
<title>显示消息</title>
</head>
<body>
<%
msg=application("msg")
for i=1 to 100
response.write msg(i)
next
%>
<p>
<script language="javascript">
top.mainFrame.scroll(0,document.body.scrollHeight*10);
</script>
</body>
</html>
4:send.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>发送消息</title>
</head>
<body>
<%
if request.QueryString("act")="send" then
session("user")=request.Form("user")
application.Lock()
msg=application("msg")
'将数组中的消息全部向前移，留出空位用来存放最新的消息
for i=1 to 99
msg(i)=msg(i+1)
next
msg(100)="[" & session("user") & "]说：" & request.Form("message") & " " & now() & "<br/>"
application("msg")=msg
application.UnLock()
end if
%>
<form id="form1" name="form1" method="post" action="send.asp?act=send">
用户名：
<input name="user" type="text" id="user" value="<%=session("user")%>"/>
<input type="submit" name="Submit" value="发送" />
<br />
要说的话：
<input name="message" type="text" id="message" size="70" maxlength="127" />
</form>
<script language="javascript">
document.form1.message.focus();
</script>
</body>
</html>
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
yiguan 2007-09-21
已解决
文件删除求助 求助！！！我今天卸载了流星加速器后发现盘里还有个文件夹，想删却怎么都删不掉，里面的文件我打开属性里的安全啥都看不了。 然后我网上看了好多教程，在一级文件夹的属性里操作，更改权限所有者，everyone，...
请别人帮忙，如何提高成功率？ 请别人帮忙，如何提高成功率？ 作为社会人，难免遇到困难，比如公司资金链紧张、毕业找工作、或者要见某位大咖等等。那么，怎么求助效果最好呢？ 1.如果向大佬请教经验，不要硬邦邦的提问，而要首先和他寻找共同点。...
辞职信 求助编辑百科名片 求助编辑百科名片 辞职信，也叫辞职书或辞呈，是辞职者向原工作单位辞去职务时写的书信。辞职信是辞职者在辞去职务时的一个必要程序。 目录 基本格式 写作要求 写作方法 范例 怎样写好辞职信 写...
一文带你认清运维岗位 如果你想去看看世界（真心话，大多数实施运维忙的没时间看世界），或者不反感出差，也不怕与人交流，可以选择这个职位，3年工作经验，薪资在12-15K左右 系统运维和自动化运维 这两个相似度很高，一度可以这么理解：...
【答学员问】培训班毕业的linux运维的女生，如何找到运维工作？ 17年旅游本科毕业，求各位大神指教帮帮忙，想找一份纯运维工作，能学到东西 女生找运维工作的确在某种程度上容易受挫，我分析无非是这么几种原因： 公司招聘一个女生做运维，后期该员工结婚生孩子，需要休产假，...
与烂人同行 知道自己的不足和缺陷，但要有点底线，实在不知道底线是什么的，把民法和刑法的条款通读一下，其实很多觉得没什么大不了的小事都是违法的，比如有朋友赚了不该赚的钱，你觉得反正你没直接去坑人，你只是帮了点忙，分...
字字珠玑的百度员工离职总结 不管是不是百度人写的，我觉得说得是真心不错。可以作为在职的、将离职的、要入职的同志们的参考。 ------------------------可耻的分割线，下为正文--------------------- 2014年7月4日，我从百度离职了。 ...
转自腾讯空间的文章看了心里有说不… 东子看我忙里忙活的做好东西，连忙帮我端上去。 我跟哥只准备了两个碗，只好给他用盘子盛饭。 东子笑嘻嘻的凑上来，“好圆圆，要不回头哥把自己的碗拿来？” 哥看了他一眼，“你想的可挺美，我告诉你，就这一...
搭讪技巧，希望所有单身的程序员兄弟都有女朋友哦！！ 不过请大家注意，只有被陌生男子用开门见山直抒来意的方式搭讪时，女孩撩头发才有此含义，因为人往往在应急状态下的反应才会流露真实信息。而平时生活中女 孩子撩头发，男士则不必自作多情。 到了短信阶段，有三种...
【现代版】为人处世三十六计详解，真的很受益！ 像狼一样喂不饱的人，你帮他的忙，说不定还会被反咬一口。 第2计 迂回计 远行之人，前有高山挡路、石头绊脚，自然会想办法绕过去，或动脑筋另辟蹊经。这种做法应用在人情世故里，便是绕着圈子达到目标。...
大学十年（一个程序员的路程） 《物理》学得极好，有一种直觉帮我快速准确地解题，常常是老师刚把题目写完我就报出答案来。上物理课时我没法讲废话，因为我一开口就是标准答案。 可惜我的文科成绩极差。那时期盛传"学好数理化，走遍天下都不怕...
敢问路在何方---走出软件作坊：三五个人十来条枪 如何成为开发正规军（十三） 但整天没完没了和客户和手下和老板沟通推进，每天很忙，每天很累，但总觉得自己很空，没有什么真本事，就觉得自己到处窜腾，客户逼着赶快出功能，老板逼着怎么还不结束到底问题在哪儿，手下素质太低，好几天搞不定...
webmagic采集CSDN的Java_WebDevelop页面 请大家帮帮我，谢谢，耽误你们点时间，帮我指导指导，我做了2天都没有做出来，明天就要交作业了，请大家帮帮我。 , 请教hibernate排序问题, java 权限管理, 如何实现在jsp页面中选择txt文件，点击下载时进行下载, ...
运维面试官喜欢问的问题 主要考察：①你是否真心想做这个工作；②你性格与企业文化是否相符。所有答案都应该围绕这两点组织，即每个经历都应回归到你通过这个经历学到什么该职位所需关键技巧，这些经历为何让你想做这个工作，和该经历体现出...
我在CSDN参与的3000个帖子 帮帮忙.谢谢,着急~! 172： 在从paradox的数据库文件db中的数据导出或显示出来的时候,有的中文字符变为乱码? 173： Access2000无法打开，各位务必帮帮忙！在线等。 174： 明天是我儿子生日，兼祝各位...
母婴APP“神器”炼成记 辣妈帮目前掌握的数据，包括用户基础数据、行为数据、兴趣数据、能力数据等。围绕用户整体数据，辣妈帮会定期进行分析，借助数据分析结果，辣妈帮能够实现知识、帖子、广告的精准推送和关联内容推荐等功能。 随着...
