µÚ¶þ¼¯ »ñÈ¡¶Ô·½µÄipµØÖ·
<%
if request.form("Submit")<>"" then
   username=request.form("name")
   Image=request.Form("radiobutton")
   C_username=split(application("name"),",")
   ip=request.ServerVariables("REMOTE_ADDR")
   for i=0 to Ubound(C_username)
      if username=C_username(i) then
       Call MsgBox("ÖØÃûÁË°¡£¬´ÓÐÂŪ¸ö£¡","login.asp") 
       response.End()
   end if
    next
application("name")=application("name")+","+username
application("Image")=application("Image")+","+Image
session("name")=username
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from iptable",conn,1,3
rs.addnew
rs("adddate")=now()
rs("ip")=request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
response.Redirect "chat.asp"
end if
%>
ÐèÒªÔ´´úÂë ÁôÓÊÏä