<%@LANGUAGE="VBSCRIPT" CODEPAGE="874"%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <!--#include file="Connections/ConnectEmp.asp" --> <% Dim RS Dim RS_numRows Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = DB RS.Source = "SELECT * FROM Employee where EmployeeID='"+EmployeeID+"' " RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 1 RS.Open() RS_numRows = 0 %> <% if not RS.eof then EmployeeID=(RS.Fields.Item("EmployeeID").Value) DDate=(RS.Fields.Item("DDate").Value) Prefix=(RS.Fields.Item("Prefix").Value) FirstName=(RS.Fields.Item("FirstName").Value) LastName=(RS.Fields.Item("LastName").Value) FirstName_Eng=(RS.Fields.Item("FirstName_Eng").Value) LastName_Eng=(RS.Fields.Item("LastName_Eng").Value) Sex=(RS.Fields.Item("Sex").Value) Birthday=(RS.Fields.Item("Birthday").Value) Address=(RS.Fields.Item("Address").Value) City=(RS.Fields.Item("City").Value) District=(RS.Fields.Item("District").Value) Region=(RS.Fields.Item("Region").Value) Postcode=(RS.Fields.Item("Postcode").Value) Phone=(RS.Fields.Item("Phone").Value) Mobile=(RS.Fields.Item("Mobile").Value) Department=(RS.Fields.Item("Department").Value) Email=(RS.Fields.Item("Email").Value) else 'EmployeeID="" 'DDate="" 'Prefix="" 'FirstName="" 'LastName="" end if %> <% EmployeeID="" if Request.QueryString("EmployeeID")<>"" then EmployeeID=Request.QueryString("EmployeeID") response.Write(EmployeeID) %>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง