<%@ Language=VBScript %> <% dim pass, msg, rs, rs2 msg = "" inuserid = Request("txtuserid") inuserpw = Request("txtuserpw") 'Define Database Connection Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ykkdb\wna_userid.mdb")) Set conn2 = Server.CreateObject("ADODB.Connection") conn2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\ykkdb\wna_log.mdb")) strSQL = "SELECT USERID,USERPW FROM WNA_USERID WHERE USERID = '" pass = true if pass = true then strSQL = strSQL & inuserid & "'" strSQL = strSQL & " ORDER BY USERID" Set rs = Server.CreateObject ("ADODB.Recordset") rs.Open strSQL, Conn, adOpenStatic, adLockOptimistic Set rs2 = Server.CreateObject ("ADODB.Recordset") rs2.Open "WNA_LOG", Conn2, adOpenDynamic, adLockPessimistic end if %> YKK Hong Kong Ltd.
       
       
  Zipper & Slider
  Plastic parts
  Hook & Loop
  Data Center
  FAQ / Feedback


YKK Hong Kong Data Center

 
Please enter the Login ID & Password :
 
Login ID  
Password  
 
 
    



<% Response.Write "" if pass = true then if Request("cmdsubmit") <> empty then if not rs.EOF then if rs("USERID") = inuserid then if rs("USERPW") = inuserpw then datestr = (FormatDateTime(date(),vbgeneraldate)) timestr = (FormatDateTime(now(),vbshorttime)) ipstr = (Request.ServerVariables("remote_addr")) rs2.AddNew rs2("LOGINUSER")=trim(inuserid) rs2("LOGINDATE")=trim(datestr) rs2("LOGINTIME")=timestr rs2("LOGINUSERIP")=trim(ipstr) rs2.Update set rs2 = nothing if inuserid >= "WM00000" and inuserid <= "WM99999" then passvalue = "WM" session("sessionid") = "vpaalsuse" session.Timeout = 1440 Select Case inuserid Case "WM00001" RID = "11" Case "WM00002" RID = "12" Case "WM00003" RID = "13" Case "WM00004" RID = "14" Case "WM00005" RID = "15" Case "WM00006" RID = "16" Case "WM00007" RID = "17" Case "WM00008" RID = "18" Case "WM00009" RID = "19" End Select session("sessionid2") = RID else if inuserid >= "NK00000" and inuserid <= "NK99999" then passvalue = "NK" else if inuserid >= "AD00000" and inuserid <= "AD99999" then passvalue = "AD" else if inuserid >= "YU00000" and inuserid <= "YU99999" then passvalue = "YU" session("sessionid") = "1a2b3c4d5" session.Timeout = 1440 Select Case inuserid Case "YU00001" RID = "21" Case "YU00002" RID = "22" Case "YU00003" RID = "23" Case "YU00004" RID = "24" Case "YU00005" RID = "25" Case "YU00006" RID = "26" Case "YU00007" RID = "27" Case "YU00008" RID = "28" Case "YU00009" RID = "29" End Select session("sessionid2") = RID else if inuserid >= "IS00000" and inuserid <= "IS99999" then passvalue = "IS" session("sessionid") = "2a4b6c8d0" session.Timeout = 1440 Select Case inuserid Case "IS00001" RID = "31" Case "IS00002" RID = "32" Case "IS00003" RID = "33" Case "IS00004" RID = "34" Case "IS00005" RID = "35" Case "IS00006" RID = "36" Case "IS00007" RID = "37" Case "IS00008" RID = "38" Case "IS00009" RID = "39" End Select session("sessionid2") = RID end if end if end if end if end if Select Case passvalue 'Case "WM" Response.Write "" Case "WM" Response.Redirect ("http://www.ykk.com.hk/www/wmmenu.asp") 'Case "YU" Response.Write "" Case "YU" Response.Redirect ("http://www.ykk.com.hk/www/ykkmenu.asp") Case "NK" Response.Redirect ("http://www.ykk.com.hk/www/nike1.asp") Case "AD" Response.Redirect ("http://www.ykk.com.hk/www/adidas1.asp") Case "IS" Response.Redirect ("http://www.ykk.com.hk/www/isdmenu.asp") End select else Response.Write "" end if else Response.Write "" end if else Response.Write "" end if end if end if %>