p4n=rs("p4n")
p5n=rs("p5n")
p6n=rs("p6n")
p7n=rs("p7n")
p8n=rs("p8n")
p9n=rs("p9n")
pan=rs("pan")
pbn=rs("pbn")
banner=rs("banner")
banners=rs("banners")
scjj=rs("scjj")
end if
rs.close
%>
程序首先获得session中保存用户编号的值，如果这个值为空则会提示用户登陆非法，并同时跳转回主页，达到屏蔽用户访问的目的，如果不为空，则说明用户已经登陆，此时程序打开一个记录集，并取出系统社顶信息及友情连接信息，存放在临时变量中。
对企业用户是否登陆的判断与对个人用户是否登陆的判断过程是基本相同的，只不过在打开数据表时打开的是企业数据表company。
管理员登陆模块
在本系统中，设计了管理员登陆的后台管理页面，此页面首先检测session的值来判断管理员是否登陆，如果没有登陆，则显示登陆的表单，如下图：
这部分的处理代码和用户登陆的表单原理类似，这里就不在详述了，下面展示一下接受并处理管理员登陆的代码，如下：
管理员登陆处理页面chkindex.asp
<!--#include file=../inc/admin.inc-->
<%
dim rs
admin1=request.form("admin")
pwd1=request.form("pwd")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from admin where admin='" & admin1 & "'",conn,1
if pwd1<>rs("pwd") then
response.write "<link rel='stylesheet' type='text/css' href='style.css'>"
response.write "<body bgcolor='#ffffff'>"
response.write "对不起，您的输入不正确,请您正确输入管理员的用户名和密码！请点击<a href='VBscript:history.go(-1)'><font size=4 color=#ff0000>这里</font></a>返回！"
else
session("admin")=RS("admin")
session("KEYS")=rs("OSKEY")
response.redirect "admin.asp"
end if
rs.close
%>
与处理用户登陆相似，程序首先获得传递来的表单值，然后创建记录集对象，并根据传递的表单参数值admin从数据库中取出符合要求的数据，此时将记录集中保存的pwd值，即数据库中保存的所填写的管理员的密码与所输入的值进行比对，如果不同则给出提示，否则首先设定session的值，然后转入页面admin.asp。
注销登陆模块
企业用户和个人用户的注销登陆页面分为company和person目录下的exit.asp文件，现以企业用户的退出页面company/exit.asp为例，分析注销登陆的过程，代码如下：
企业用户退出页面exit.asp
<% if session("cuid")<>"" then uname=session("cuid") end if
if session("puid")<>"" then uname=session("puid") end if
Session.Abandon
response.write"<SCRIPT language=VBScript>alert('用户"&uname&"成功退出登录，正在返回首页！');"
response.write"this.location.href='../index.asp';</SCRIPT>" %>
这里可以看到，处理退出登陆的关键代码是调用session对象的Abandon方法，Abandon方法删除所有存储在session对象中的对象并释放这些对象的源。如果未明确地调用Abandon方法，一旦会话超时（默认设置为20分钟），服务器将删除这些对象。
4.6 个人用户界面设计
① 个人用户注册界面
用户在网站导航处点击“新会员注册”将打开member.asp页面，这个
页面显示用户的注册表单，如下图：
当提交表单并检测输入数据合法后，会将表单提交到这个页面本身，页面首
先判断是否已经提交，如果已经提交则进入用户信息注册处理，这个注册过程比较复杂，但是主要的过程就是将usertype的值分为几个支线流程，这几个支线流程是类似的。由于此代码繁多，不做以展示。
这块程序首先根据所取得的表单中的用户名查询数据库中是否有相同用
户名的记录，如果有则给出提示，并终止运行，否则进入下一步，打开记录集并添加一条新的记录，然后系统默认要给用户发送一条站内短消息提示注册成功，因此还要打开记录集，在短信数据库pmailbox中新增一条短信数据。最后弹出提示告诉用户注册成功，然后转到用户首页。
其他usertype的处理过程与此类似，只不过不同的处理用户信息存放在不同表中。最后的过程都是一样的，此处为了解释清晰，代码编写的较为繁琐。
个人用户登陆
用户进入网站后，可以在页面上边的导航栏处填写用户名和密码，并选
择帐户类型进行登陆。
如果登陆成功，则显示用户管理的快界链接，否则显示登陆表单，在这个表单中填写用户名和密码，并提交到login.asp页面，用户可以登陆，下面展示login.asp页面代码：
Login.asp页面代码
<% Response.Buffer=True %>
<!--#include file="dbco