<%set rs=server.createobject("adodb.recordset")
sql="select * from bar where barname='"&request.form("barname")&"'"
rs.open sql,conn,1,1
if request.form("pwd")=rs("pwd") and rs("pwd")<>"" then
session("barlogin")=request.form("barname")
else
sql="select * from bar where barname='"&request.form("barname")&"'"
rs.open sql,conn,1,1
if request.form("pwd")=rs("pwd") and rs("pwd")<>"" then
session("barlogin")=request.form("barname")
else
sql="select * from bar where barname='"&request.form("barname")&"'" '要执行的语句
rs.open sql,conn,1,1 '执行SQL语句,并把查询结果返回到rs记录集对象上
if request.form("pwd")=rs("pwd") and rs("pwd")<>"" then '如果表单提交的密码与查询到的密码一样并且查询到的密码不为空
session("barlogin")=request.form("barname") '把表单提交的名字保存到会话级变量barlogin中
else
sql="select * from bar where barname='"&request.form("barname")&"'"
从表bar中查询所有字段barname为barname的记录