<!--#include file="conn.inc"-->
<%

Option1=Request("Option")
UserID=Request("UserID")
password=Request.Form("Password")
function loginNow()
  if Option1="企業(yè)（單位）登錄" then

      sql="select * from user_info1 where UserID='"&request("UserID")&"'"
      set rs=server.createobject("ADODB.Recordset")
      rs.open sql,conn,1,1
  elseif  Option1="個(gè)人登錄" then
      sql="select * from user_info where UserID='"&request("UserID")&"'"
      set rs=server.createobject("ADODB.Recordset")
      rs.open sql,conn,1,1
  end if

if not rs.eof then
   if Trim(password)=Trim(rs("Password")) then
         session("ISlogin")=1
         session("UserID")=UserID
         loginNow=1
         exit function
     else
         loginNow=0
         exit function
   end if
   else
   loginNow=-1  
end if
end function


 dim isuser
 dim location
 isuser=loginNow()
 
 
 if isuser=1 then
    response.redirect"../index.htm"
 elseif isuser=0 then
          response.redirect"error.asp?id=9"
 else
         response.redirect "error.asp?id=18"
 
 end if
%>