modify.asp

关于聊天系统的源代码 asp编程 未完整版

<%
if not isarray(session("dv_user")) then 
Response.Redirect "exitchat.asp"
else
dv_user=session("dv_user")
oldname=Request.Form ("oldname")
newname=Request.Form ("newname")
if Instr(LCase(Application("onlinelist")),LCase(newname&" "))<>0 then 
Response.Write "<script>alert('系统中己存在这个用户名！');parent.f5.location.reload();</script>"
Response.End 
end if

	Application.lock
	Application("onlinelist")=replace(Application("onlinelist"),dv_user(0)&" ",newname&" ")
	Application.Unlock

	saystr="parent.getmsg('"&dv_user(0)&"','大家','对','【公告】"&dv_user(0)&"己改名为<a href=javascript:parent.seluser(\'"&newname&"\'); target=f2>"&newname&"</a>！','2','AA00CC','AA00CC','0','"&time()&"'); "
	Application.Lock
	sd=Application("chat_sd")
	line=int(Application("chat_line"))
	Application("chat_line")=line+1
	Dim newsd(50)
	j=1
	for i=3 to 50 step 2
	newsd(j)=sd(i)
	newsd(j+1)=sd(i+1)
	j=j+2
	next
	newsd(49)=line+1
	newsd(50)=SayStr
	Application("chat_sd")=newsd
	Application.UnLock	
dv_user(0)=newname
session("dv_user")=dv_user
Response.Write "<script language=javascript>parent.modifyname('"&newname&"');parent.f2.document.af.username.value='"&newname&"';parent.f5.location.reload();</script>"
end if
%>