<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp" -->
<%
Name = Request.form("uid")
Pwd  = Request.form("pwd")
set Rs = Server.CreateObject("ADODB.recordset")
sql="select * from RegUser where UserId='"&Name&"'and PassWD='"&Pwd&"'"
rs.open sql,conn,1,1
IF  rs.RecordCount >=1 then
	  Session("LoginSuccess")=rs("UserId")
      response.redirect "ment1.asp"
   else
      response.redirect "loginsb.asp?msg=用戶登錄失敗，請輸入正確帳號和密碼重新登錄！"
   End if  
rs.close
conn.close
%>