<%
function existwords(s_string,s_fbdwords)
isexists=false
a_string=split(s_fbdwords," ")
n=ubound(a_string)
for i=0 to n
if trim(a_string(i))=s_string then
isexists=true
exit for
end if
next
existwords=isexists
end function
Function SplitWords(mys,coun)
dim ts,i,l
if isnull(mys) then exit Function
ts = 0
For i = 1 To Len(mys)
l = Mid(mys, i, 1)
If Asc(l) > 0 and Asc(l) < 255 Then
ts = ts + 1
End If
if i-ts/2 > coun then exit for
Next
If i-ts/2 > coun Then
ts=ts\2+coun
mys = left(mys,ts)
end if
SplitWords=mys
end Function
userid=request.form("userid")
if existwords(userid,forbidname)=true then
set rs=nothing
conn.close
set conn=nothing
response.write ""&chr(13)
elseif request.form("submit")="登陆" then
userid=request.form("userid")
password=request.form("password")
usersex=trim(request.form("usersex"))
if usersex<>"帅哥" and usersex<>"靓妹" then
usersex="神秘人"
end if
if userid="" or password="" then
response.write ""&chr(13)
elseif trim(userid)<>userid or trim(password)<>password or instr(userid,"'")>0 or instr(userid,"""")>0 or instr(password,"'")>0 or instr(password,"""")>0 then
response.write ""&chr(13)
else
userid=SplitWords(userid,5)
sql="select * from userinfo where userid='"&userid&"'"
rs.open sql,conn,0,3
if rs.bof and rs.eof then
session("loginstatus")="logined"
session("userid")=userid
session("grade")=1
rs.addnew
rs("userid")=userid
rs("password")=password
rs("usersex")=usersex
rs("regtime")=now()
rs("logintime")=now()
rs("timecount")=0
rs("userip")=userip
rs("logincount")=0
rs("grade")=1
rs("isonline")=true
rs.update
rs.close
sql="select top 1 * from chatinfo order by puttime asc"
rs.open sql,conn,0,3
rs("userid")=""
rs("sayto")=""
rs("saycontent")="欢迎新人"&session("userid")&"来到本聊天室！"
rs("puttime")=now()
rs("ispublic")=true
rs.update
rs.close
response.redirect "chat.asp?ntime="&ntime
elseif rs("password")<>password then
rs.close
session("loginstatus")=""
session("userid")=""
session("grade")=""
response.write ""&chr(13)
else
session("loginstatus")="logined"
session("userid")=userid
session("grade")=rs("grade")
n_vgrade=(rs("timecount")-30)\60
if n_vgrade>rs("grade") and n_vgrade<=maxgrade then
rs("grade")=n_vgrade
elseif n_vgrade>rs("grade") and n_vgrade>maxgrade then
rs("grade")=maxgrade
end if
rs("logintime")=now()
rs("userip")=userip
rs("logincount")=rs("logincount")+1
if isnull(rs("timecount")) then
rs("timecount")=0
end if
rs("isonline")=true
rs.update
rs.close
sql="select * from chatinfo order by puttime asc"
rs.open sql,conn,0,3
rs("userid")=""
rs("sayto")=""
rs("saycontent")="欢迎"&session("userid")&"来到聊天室！"
rs("puttime")=now()
rs("ispublic")=true
rs.update
rs.close
response.redirect "chat.asp?ntime="&ntime
end if
end if
set rs=nothing
conn.close
set conn=nothing
else
%>
欢迎光临<%=pagetitle%>