关 键 词：

计算机 系统、设计、

资源描述：

ASP066课程教学网站信息交流与发布系统,计算机,系统、设计、

内容简介：

附 录附录1:恒云聊天室动作浏览名称对自己的动作招呼自己热情地向在场的所有人打招呼。离开自己留恋地说道：“世上没有不散的宴席，我先走一步了，大家保重。”晕倒自己口吐白沫，咕咚一声，栽倒在地。默念自己心中默默念道：“由爱故生忧，由爱故生怖；若离于爱者，无忧亦无怖。”憧憬自己歪着头憧憬地向往：“如果上班又有工资，又没有老板管，那不知道该有多好。”含情自己俏脸生春，妙目含情，只看得大家心慌意乱。英雄自己负手而立，凝望远山。只觉得天下英雄舍我其谁。害羞自己低下头，嫣然一笑，露出颊上浅浅的梨涡，害羞地脸红了起来！同意自己热泪盈眶地说：“好，好，好！”蹭饭自己自言自语道：“今儿个不知该到谁家蹭饭去了.”老板自己说道：“乖乖不得了，在下的老板来了，没功夫聊了。回见！”太慢自己急得象热锅上的蚂蚁，不停地大叫：“快点！快点！怎么比猪还慢？！”发呆自己一屁股坐在地上发起呆来。臭美自己眉开眼笑地想：人都说打是疼，骂是爱，人家会不会，这个这个.回想自己看着大家有说有笑，转而向隅，竭力想回忆起些什么。命苦自己看着镜中日益消瘦的脸庞自怨自艾，“唉，自己，你好命苦！”迷茫自己一脸的迷茫，不知道周围发生了什么事。-对别人的动作欢迎自己向着别人大叫：“欢迎，欢迎，热烈欢迎！”饮料自己热情地向别人打招呼，并递上一杯香浓Coffee和一杯清香的茶，自己选哦。醒醒自己用一根树枝捅了捅别人的鼻子：“醒醒呀，快醒醒。”可爱自己觉得别人妹妹真是好可爱哟！厉害自己看着别人，心想：现在的女孩真厉害偷偷自己蹑手蹑脚地溜到别人背后，掏出一把大锤子，嘿嘿.锤子自己对着别人狠狠的一锤当头敲下，狞笑道：“别人，你给我发呆去吧！”灰烬自己从天上召来一道闪电把别人化为一堆灰烬。道歉自己结结巴巴地跟别人道歉：“实在是对不住，我下次再也不敢了。”求助自己见别人不怀好意，连忙抓起电话：114，119，120，122，96315.心想：“警察叔叔怎么还不来呀？”坏事自己和别人正邪恶地笑着，八成同时想到什么坏事头上。报仇自己对别人小声嘀咕着：“君子报仇，十年不晚，五年后再来找你。”不理自己看都不看别人一眼，哼了一声，高高的把头扬了起来不理你活该自己看着别人偷偷直乐，幸灾乐祸地想：活该。痴痴自己痴痴地望着别人的身影，不禁呆了久仰自己笑呵呵地对别人抱拳打揖：“久仰阁下大名，如雷灌耳，今日相见，三生有幸！”听话自己拍了拍别人的头道：“别人乖，一会给你买棒棒冰。”打转自己不怀好意地绕着别人打转，嘴巴里不知在嘀咕些什么。不许自己向别人摇摇食指，“小朋友，不可以这样喔！”附录2:留言版删除功能代码% if request.querystring(r_id)thensql=delete from reply where r_id=&request.querystring(r_id)&conn.execute(sql)response.redirect(index.asp)elsesql=delete from guest where id=&request.querystring(l_id)&conn.execute(sql)sql=delete from reply where t_id=&request.querystring(l_id)&conn.execute(sql)response.redirect(index.asp)end if%附录3:退出聊天室代码%Response.Expires=0usernickname=Session(usernickname)if usernickname= then Response.Write 欢迎下次光临！ : Response.ends=Hour(time()f=Minute(time()m=Second(time()if len(s)=1 then s=0 & sif len(f)=1 then f=0 & fif len(m)=1 then m=0 & msj=s & : & f & : & musername=Session(usernickname)Session(useroutchat)=1dim online()onfile=server.mappath(online.asp)Set fs=CreateObject(Scripting.FileSystemObject)Set thisfile = fs.OpenTextFile(onfile,1,False)counton = 0do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve online(counton) online(counton) = thisline counton = counton + 1loopthisfile.CloseSet outfile = fs.CreateTextFile(onfile)for i=0 to counton-1 step 3 if online(i)username then outfile.WriteLine online(i) outfile.WriteLine online(i+1) outfile.WriteLine online(i+2) end ifnextoutfile.Close读取对话文件到say数组中dim say()sayfile=server.mappath(saysdata.asp)Set thisfile = fs.OpenTextFile(sayfile,1,False)countsay = 0do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve say(countsay) say(countsay) = thisline countsay = countsay + 1loopthisfile.CloseSet outfile = fs.CreateTextFile(sayfile)outfile.WriteLine say(0)outfile.WriteLine say(1)outfile.WriteLine 1outfile.WriteLine 0outfile.WriteLine usernameoutfile.WriteLine 所有人outfile.WriteLine #660099outfile.WriteLine #660099outfile.WriteLine 对outfile.WriteLine 聊天室公告 & username &一步三回头的含泪离去( & sj & )if countsay138 then for i=2 to countsay