往:"如果上班又有工资,又没有老板管,那不知道该有多好。"
含情
自己俏脸生春,妙目含情,只看得大家心慌意乱。
英雄
自己负手而立,凝望远山。只觉得天下英雄舍我其谁。
害羞
自己低下头,嫣然一笑,露出颊上浅浅的梨涡,害羞地脸红了起来!
同意
自己热泪盈眶地说:"好,好,好!"
蹭饭
自己自言自语道:"今儿个不知该到谁家蹭饭去了......"
老板
自己说道:"乖乖不得了,在下的老板来了,没功夫聊了。回见!"
太慢
自己急得象热锅上的蚂蚁,不停地大叫:"快点!快点!怎么比猪还慢?!"
发呆
自己一屁股坐在地上发起呆来。
臭美
自己眉开眼笑地想:人都说打是疼,骂是爱,人家会不会,这个这个......
回想
自己看着大家有说有笑,转而向隅,竭力想回忆起些什么。
命苦
自己看着镜中日益消瘦的脸庞自怨自艾,"唉,自己,你好命苦!"
迷茫
自己一脸的迷茫,不知道周围发生了什么事。
----
对别人的动作
欢迎
自己向着别人大叫:"欢迎,欢迎,热烈欢迎!"
饮料
自己热情地向别人打招呼,并递上一杯香浓Coffee和一杯清香的茶,自己选哦。
醒醒
自己用一根树枝捅了捅别人的鼻子:"醒醒呀,快醒醒。"
可爱
自己觉得别人妹妹真是好可爱哟!
厉害
自己看着别人,心想:现在的女孩真厉害......
偷偷
自己蹑手蹑脚地溜到别人背后,掏出一把大锤子,嘿嘿......
锤子
自己对着别人狠狠的一锤当头敲下,狞笑道:"别人,你给我发呆去吧!"
灰烬
自己从天上召来一道闪电把别人化为一堆灰烬。
道歉
自己结结巴巴地跟别人道歉:"实在是对不住,我下次再也不敢了。"
求助
自己见别人不怀好意,连忙抓起电话:114,119,120,122,96315......心想:"警察叔叔怎么还不来呀?"
坏事
自己和别人正邪恶地笑着,八成同时想到什么坏事头上。
报仇
自己对别人小声嘀咕着:"君子报仇,十年不晚,五年后再来找你。"
不理
自己看都不看别人一眼,哼了一声,高高的把头扬了起来......不理你......
活该
自己看着别人偷偷直乐,幸灾乐祸地想:活该。
痴痴
自己痴痴地望着别人的身影,不禁呆了......
久仰
自己笑呵呵地对别人抱拳打揖:"久仰阁下大名,如雷灌耳,今日相见,三生有幸!"
听话
自己拍了拍别人的头道:"别人乖,一会ㄦ给你买棒棒冰。"
打转
自己不怀好意地绕着别人打转,嘴巴里不知在嘀咕些什么。
不许
自己向别人摇摇食指,"小朋友,不可以这样喔!"
附录2:
留言版删除功能代码
<%ifsession("guest")=""then
response.redirect("login.asp")
endif%>
<%ifrequest.querystring("r_id")<>""then
sql="deletefromreplywherer_id="&request.querystring("r_id")&""
conn.execute(sql)
response.redirect("index.asp")
else
sql="deletefromguestwhereid="&request.querystring("l_id")&""
conn.execute(sql)
sql="deletefromreplywheret_id="&request.querystring("l_id")&""
conn.execute(sql)
response.redirect("index.asp")
endif%>
附录3:
退出聊天室代码
<%Response.Expires=0
usernickname=Session("usernickname")
ifusernickname=""thenResponse.Write"欢迎下次光临!":Response.end
s=Hour(time())
f=Minute(time())
m=Second(time())
iflen(s)=1thens="0"&s
iflen(f)=1thenf="0"&f
iflen(m)=1thenm="0"&m
sj=s&":"&f&":"&m
username=Session("usernickname")
Session("useroutchat")=1
dimonline()
onfile=server.mappath("online.asp")
Setfs=CreateObject("Scripting.FileSystemObject")
Setthisfile=fs.OpenTextFile(onfile,1,False)
counton=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreserveonline(counton)
online(counton)=thisline
counton=counton+1
loop
thisfile.Close
Setoutfile=fs.CreateTextFile(onfile)
fori=0tocounton-1step3
ifonline(i)<>usernamethen
outfile.WriteLineonline(i)
outfile.WriteLineonline(i+1)
outfile.WriteLineonline(i+2)
endif
next
outfile.Close
'读取对话文件到say数组中
dimsay()
sayfile=server.mappath("saysdata.asp")
Setthisfile=fs.OpenTextFile(sayfile,1,False)
countsay=0
dowhilenotthisfile.AtEndOfStream
thisline=thisfile.readline
Redimpreservesay(countsay)
say(countsay)=thisline
countsay=countsay+1
loop
thisfile.Close
Setoutfile=fs.CreateTextFile(sayfile)
outfile.WriteLinesay(0)
outfile.WriteLinesay(1)
outfile.WriteLine"1"
outfile.WriteLine"0"
outfile.WriteLineusername
outfile.WriteLine"所有人"
outfile.WriteLine"#660099"
outfile.WriteLine"#660099"
outfile.WriteLine"对"
outfile.WriteLine"[聊天室公告]"&username&"一步三回头的含泪离去......("&sj&")"
ifcountsay>138then
fori=2tocountsay-9
outfile.WriteLinesay(i)
next
else
fori=2tocountsay-1
outfile.WriteLinesay(i)
next
endif
outfile.close
setfs=nothing
Session("useralreadylogin")=0%>