<%
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
If rs("UserName") = "peter" Then
Response.Redirect "download_missile.asp"
End If
If rs("UserName") = "TrellidorSA" Then
Response.Redirect "download_trellidor.asp"
End If
Else
' ถ้าไม่พบผู้ใช้ให้กำหนดว่าว่างให้กับตัวแปร session
Session("user") = ""
errmsg = "
ล็อกอินไม่ถูกต้อง กรุณาป้อนใหม่อีกครั้ง
"
End If
Else
Response.Write "มีปัญหาในการติดต่อฐานข้อมูล กรุณาติดต่อผู้ดูแลระบบ"
Response.End
End If
End If
%>
Language: English
We are certified ISO 9001 for screen manufacturing and are expanding to doors & windows assembly.
"BANGKOK OFFICE & SHOWROOM"
Opening daily!
8AM - 6PM
335/1 Pattanakarn Road
(Between Soi 67 - Soi 69)
Prawet, Bangkok, Thailand (READ MORE)
"MESHTEC MALAYSIA"
Meshtec Malaysia now opens.
"MAJESTEC"
At ARCHITECT LANNA '08
Upcoming event!
28 - 30 Nov 2008
Chiang Mai University Auditorium,
Chiang Mai, Thailand (READ MORE)
