데이터베이스명: testOK
사용자명: testOK
비밀번호: 1234 

<%
'//--- login_end.asp 파일

uid = Trim(request.Form("uid"))
pwd = Trim(request.Form("pwd"))

Dim strConnect, dbCon, rs

set dbCon = Server.CreateObject ("ADODB.Connection")
dbCon.Open Application("strConnect")

SET rs = dbCon.execute("select uid, pwd from USER_TBL where UPPER(uid)='"& UCase(uid) &"'")

if ( rs.bof or rs.eof ) then
response.write ""

else

if Trim(rs("pwd")) <> pwd then

response.write ""

else
'//---user id를 세션에 할당한다.
session("uid") = trim(rs("uid"))

rs.close
SET rs=nothing

'유저로그파일에 기록
SQL = "INSERT INTO USER_LOG ( uid, sid, inTime, offline ) VALUES ('" & session("uid") & "'," & session.SessionID & ", '" & now() & "', 'N' )"
dbCon.Execute (SQL)

dbCon.Close
SET dbCon=nothing

'현재는 로그인시에 웹마당넷으로 이동합니다. 자신의 환경에 맞게 수정하세요
response.Redirect "http://www.webmadang.net"

end if

end if
%>