<%
if request("submit1")="登录" then
nickname=trim(request("nickname"))
password=trim(request("pwd"))
if nickname<>"" then
set rs=server.createobject("ADODB.Recordset")
sql="select * from users where nickname='"&nickname&"'"
rs.open sql,conn,1,3
if rs.recordcount=0 then
mes="没有这个用户名！"
rs.close
else
if rs("password")<>password then
mes="密码错误!"
rs.close
else
session("nickname")=nickname
session("userid")=rs("userid")
' session("typeid")=rs("usertype")
rs.close
end if
end if
end if
end if
nickname=session("nickname")
userid=session("userid")
'typeid=session("typeid")
%>
用户修改密码
<%if userid<>"" then%>
<%end if%>