checkuser.asp

使用本程序在局域网内聊天

<%
'检查当前用户身份
Sub CheckUser()
If Enable_Cookies = 1 Then
dim userid,userpassword,usergroup
userid=Request.cookies(systemkey)("userid")
userpassword=Request.cookies(systemkey)("userpassword")
usergroup=Request.cookies(systemkey)("usergroup")
If userid<>"" Then
sql="select * from users where username='"&userid&"'"
'and userpass='"&userpassword&"'and usergroup='"&usergroup&"'"
openrs(sql)
if  rs.EOF and rs.BOF Then
        Response.cookies(systemkey)("userid")=""
		Response.cookies(systemkey)("usergroup")=""
		Response.cookies(systemkey)("userpassword")=""
		User_ID=""
		User_Group="member"
else
        'Response.cookies(systemkey)("userid")=rs("username")
		'Response.cookies(systemkey)("usergroup")=rs("usergroup")
		'Response.cookies(systemkey)("userpassword")="userpass"
         
        User_ID=rs("username")
        User_Group=rs("usergroup")
        
        User_sex=rs("sex")
        User_email=rs("email")
        User_web=rs("web")
        User_oicq=rs("oicq")
        
end if
rs.close
Else
        Response.cookies(systemkey)("userid")=""
		Response.cookies(systemkey)("usergroup")=""
		Response.cookies(systemkey)("userpassword")=""

End If
Else
User_ID=Session(SystemKey & "User_ID")
User_Group=Session(SystemKey & "User_Group")
User_sex=Session(SystemKey & "User_sex")
User_email=Session(SystemKey & "User_email")
User_web=Session(SystemKey & "User_web")
User_oicq=Session(SystemKey & "User_oicq")
End If

End Sub

Sub CheckVisit()
	Dim DateTime,NowCount
	DateTime=Date
	If Request.Cookies(SystemKey & "DateVisitTime")<>"" Or Session(SystemKey & "DateVisitTime")<>"" Then
		Exit Sub
	End If
	Response.Cookies(SystemKey & "DateVisitTime")=Now
	Session(SystemKey & "DateVisitTime")=Now
	Response.Cookies(SystemKey & "DateVisitTime").Expires=DateTime+1
	Sql="select * from visitinfo where DateTime=#" & DateTime & "#"
	Rs.Open Sql,Conn,1,3
	If Rs.RecordCount=0 Then
		Rs.AddNew
		Rs("DateTime")=DateTime
	End If
	Rs("Count")=Rs("Count")+1
	NowCount=Rs("Count")
	Rs.Update
	Rs.Close
End Sub
%>