login.asp

这是我做的毕业设计,企业管理系统.ASP连接SQL数据库,基本功能已经实现

<%@ language=VBScript%>
<%
hy_id=trim(request.form("user_id"))
passwd=trim(request.form("passwd"))
if hy_id="" or passwd="" then
 response.redirect"error.asp?info=对不起，信息未填完整，请填完整！"
end if
set conn=server.createobject("adodb.connection")
connstr="provider=sqloledb;user id=sa;password=0335;"&_
"initial catalog=vod; persist security info=true;data source=(local)"
conn.open connstr
if hy_id="" then
 response.redirect"error.asp?info=对不起，用户名不能为空，请重新输入！"
end if
sql="select * from member where hy_id='"&hy_id&"'"
set rs=conn.execute(sql)
if not rs.eof then
      level =rs("level")
   if rs("passwd")<>passwd then
       response.redirect"error.asp?info=对不起，密码不正确，请重新输入！"
   end if
else
   response.redirect"error.asp?info=对不起，用户名不存在，请重新输入！"
end if
rs.close
 session("level")=level
 session("hy_id")=hy_id
response.redirect"vod1.asp"
%>