<%
log_com = request.querystring("log_com")
if (request.form("log_id") = "") then
log_id = request.querystring("log_id")
log_pwd = request.querystring("log_pwd")
else
log_id = request.form("log_id")
log_pwd = request.form("log_pwd")
end if
if (log_com = "logout") then
session.abandon
%>
<%
else
if (log_id <> "") and (log_pwd <> "") then
SQL = "select id from member where id = '" & log_id & "' and pwd = '" & log_pwd & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, cn, 1
session("id") = log_id
%>
| |
|
  |
<%
rs.Close
Set rs = Nothing
elseif (session("id") <> "") then
s_id = session("id")
%>
| |
|
| |
<%
else
%>
<%
end if
end if
cn.Close
Set cn = Nothing
%>
|
|
