本篇将介绍登陆文件，请看以下代码，下一篇将介绍成员留言的代码，请关注！

<% dim rs, sql,ms
'取传过来的name的值
name1=request("name")
'对name进行去空格的处理
name1=trim(name1)
pass1=request("pass")
'对pass1进行去空格的处理
pass1=trim(pass1)
'做出相应的判断，错误信息在nologin.asp里显示
if name1="" or pass1="" then
ms="用户名和密码不能为空！"
response.redirect"nologin.asp?ms="&ms
end if
'判断有没有此用户，并作出相应的判断
sql="select * from user where name='"&name1&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
ms="你还没有加入班级啊！快加入吧！或者您不小心写了空格，导致用户名出错！"
response.Redirect"nologin.asp?ms="&ms
else
if rs("pass")<>pass1 then
'密码判断
ms="老同学，不要忘记密码了啊！"
response.Redirect"nologin.asp?ms="&ms
end if
'如果存在的话取出该用户的班级编号
sql1="select * from user where name='"&name1&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
'保留取出的班级编号
classid1=rs1("classid")
'保存用户的信息，便于以后各页面调用
session("uname")=name1
session("upass")=pass
session("classid")=classid1
if rs1.eof then
response.write("没有此用户！")
response.end
end if
'登陆成功后转到他所属的班级
response.Redirect("index2.asp?classid="&classid1)
end if
conn.close
set conn=nothing
%>
此代码还有不妥之处，请跟贴指正！