分类广告


推荐文章

  • 没有找到任何内容！
您当前的位置：中国站长下载 → 网络编程 → ASP专区 → 文章内容

附：源代码5：BBSLOGIN.HTM

  • 作者：佚名    来源：不详    发布时间：2005-12-31 13:00:30
  • 字体大小:
  • 小
  • 中
  • 大
<%
user=split(application("OnlineUser"),",",-1) '获得在线用户列表
app = "["&request("userid")&"]"
for i=0 to ubound(user) '获得非空的在线用户列表
  if user(i) = app then
      Response.Redirect "bbsmsg.asp?msg=报谦，已有人用这个名字了!"
  end if
next
Session("UserID")=app
Application.Lock
Application("OnlineUser") = Application("OnlineUser") & "," & app
Application.Unlock
response.redirect "bbsAutoSearch.asp"
%>
<html>
<head>
<title>
login
</title>
</head>
<body>
</body>
</html>