<%
Dim usr, pwd, sql, rs, errmsg
usr = Trim(Request.Form("user"))
pwd = Trim(Request.Form("pwd"))
If usr = "" Or pwd = "" Then
' ถ้าป้อนข้อมูลไม่ครบถ้วนให้กำหนดค่าว่างให้กับตัวแปร session
Session("user") = ""
End If
If usr <> "" And pwd <> "" Then
On Error Resume Next
' ทำการติดต่อฐานข้อมูล
If ConnectDB() = True Then
sql = "Select UserName, Password, IsAdmin " & _
"From Admin " & _
"Where UserName = '" & doQuote(usr) & "' And " & _
"Password = '" & doQuote(pwd) & "'"
Set rs = Conn.Execute(sql)
If Not rs.EOF Then
' ถ้าพบผู้ใช้ให้ทำการเก็บค่าใส่ตัวแปร session
Session("user") = rs("UserName")
Session("IsAdmin") = rs("IsAdmin")
errmsg = ""
' และไปยังหน้าหลักของหลังร้าน
If rs("UserName") = "panasia" Then
Response.Redirect "download_panasia.asp"
End If
If rs("UserName") = "fourseasons" Then
Response.Redirect "download_4season.asp"
End If
If rs("UserName") = "tbatten" Then
Response.Redirect "download_pgt.asp"
End If
Else
' ถ้าไม่พบผู้ใช้ให้กำหนดว่าว่างให้กับตัวแปร session
Session("user") = ""
errmsg = "
ล็อกอินไม่ถูกต้อง กรุณาป้อนใหม่อีกครั้ง
"
End If
Else
Response.Write "มีปัญหาในการติดต่อฐานข้อมูล กรุณาติดต่อผู้ดูแลระบบ"
Response.End
End If
End If
%>
Language: English
We are currently expanding the scope of ISO 9001:2000 for doors and windows
"MAJESTEC"
Our new product launch
At Baan Lae Suan Fair 2007
30 Oct - 4 Nov 2007
Challenger Hall, Impact
Bangkok
At Meshtec International
15 Jan 2008
Showroom
Chiang Mai
"CERTIFIED ISO 14001 : 2004"
Proudly enhance the environment
Lloyd granted a signboard.
at Meshtec International
28 Jan 2008
Chiang Mai
