check.asp

大家好

<%	option explicit	%>
<!--#include File="function.asp"-->
<%
Dim NickName,UserListStr,i,PicURL,UserName

   PicURL=Left(Session("NickName"),2)
   UserName=Replace(Session("NickName"),PicURL,"")
   PicURL=PicURL&".gif"
   Application.Lock()
   Application("UserListStr")=Replace(Application("UserListStr"),","&Session("NickName")&",",",")
   Application.UnLock()
   Session("NickName")="" 

%>
<script language="javascript">		
parent.UserList.history.go(0);
</script>
<%
If Request("NickName")<>"" Then

		NickName=FixNickName("01"&Request("NickName"))
		If NickName="" then Response.Redirect ("login1.asp")				
		UserListStr=Replace(Application("UserListStr"),"00大家,","")
		UserListStr="00大家,"&NickName&","&UserListStr
		
		PicURL=Left(NickName,2)
		UserName=Replace(NickName,PicURL,"")
		PicURL=PicURL&".gif"
		Application.Lock()
			Application("UserListStr")=UserListStr
			Application("ID")=Application("ID")+1
			i=YuShu(Application("ID"))
			Application(i)="<div style='font-size:12px'><b>[公告]</b><img width=16 height=16 src=images/pic/"&PicURL&">"&UserName&"进入聊天室了</div><script>parent.UserList.history.go(0);</script>"
		Application.UnLock()
		Session("NickName")=NickName
		Session("ID")=Application("ID")-1
		Session("IsAuto")=1			'自动滚屏
		Session("IsOnlyToOne") = 0	'对话公开
		Session("OldTime")=Now()
%>
		<script>
		parent.UserList.history.go(0);
		parent.auto.location="auto.asp";
		</script>
<%		
End If
%>