<%@ language="vbscript"%>
<%response.Expires = 0%>

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from Manage_User where UserName='" & request.form("uid") & "' and PassWord='" & request.form("pwd1") & "'"
rs.open sqltext,conn,1,1

'ݿ⣬˹ԱǷѾ
if rs.recordcount >= 1 then 
   if rs("UserName")=request.form("uid") then
      Response.Redirect "messagebox.asp?msg=˹ԱʺѾڣѡ!"
      response.end
      rs.close
   end if
end if


set rs=server.createobject("adodb.recordset")
sqltext="select * from Manage_User"
rs.open sqltext,conn,3,3

'һԱʺŵݿ
rs.addnew
rs("UserName")=request.form("uid")
rs("PassWord")=request.form("pwd1")
rs.update
Response.Redirect "manager_list.asp"

%>