ดึงเวลาจาก SERVER ใช้ code นี้แล้วเวลาแสดงผลมันไม่ค่อยตรงกับความเป็นจริงช่วยที่ครับ
<%
Program_Date = ConvertDate(date)
Date_Now = FormatDateThai(date)
xtime = right("00" &hour(now),2) & ":" & right("00" &minute(now),2)
%>
โปรแกรมเมอร์ที่ใช้งานอยู่บอกว่า xtime = right("00" &hour(now),2) & ":" & right("00" &minute(now),2)
now คือมันแสดงเวลาจาก SERVER มาแสดง
ปัญหาคือเวลามันแสดงผล สมมุติเวลา
13.00 นาที รายการ นายแน่มาก
13.30 นาที รายการ นายแน่จริง
ขณะแสดงผลอยุ่นั้น เวลา 13.00 มันดันดึงเวลา 13.30 นาที รายการ นายแน่จริงขึ้นมาแสดง มันเป็นเพราะอะไรครับช่วยแนะนำหน่อยครับ
ด้านล่างคือ sourcecode จริง
<!--#include file="connection/connect.asp" -->
<!--#include file="admin_manage/common.asp" -->
<%
Program_Date = ConvertDate(date)
Date_Now = FormatDateThai(date)
xtime = right("00" &hour(now),2) & ":" & right("00" &minute(now),2)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>Untitled Document</title>
<style type="text/css">
td img {display: block;}body {
margin-top: 0px;
background-color: #333333;
background-attachment: fixed;
background-image: url(asset/bg2.jpg);
background-repeat: no-repeat;
background-position: 100% 100%;
margin-left: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style16 {font-size: 14px; font-family: Arial, Helvetica, sans-serif;}
.style17 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
}
.style18 {color: #FFCC00}
.style19 {font-size: 14px}
.style20 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
color: #FFCC00;
font-size: 24px;
}
.style21 {color: #FFFFFF}
.style22 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; }
.style25 {font-size: 12px}
.style29 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #FF0000; }
.style33 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
color: #333333;
font-size: 14px;
}
.style34 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; font-size: 14px; }
a {
font-family: Arial, Helvetica, sans-serif;
font-size: 14px;
color: #999999;
}
a:link {
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
color: #999999;
}
a:active {
text-decoration: none;
color: #000000;
}
.style35 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #FF0000; font-size: 14px; }
.style38 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #999999; font-size: 14px; }
.style41 {font-family: Arial, Helvetica, sans-serif; font-weight: bold; color: #FFFFFF; font-size: 14px; }
<!--
html {scrollbar-base-color: '#666666'}
-->
</style>
</head>
<body>
<table width="352" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="30" bgcolor="#666666"><span class="style21"></span></td>
<td colspan="2" align="left" bgcolor="#666666"><span class="style41">รายการ ขณะออนแอร์ </span></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
set rs = server.CreateObject("adodb.recordset")
sql = "select * from Program_Daily where Program_Date=#"&Program_Date&"# and '"&xtime&"' between Start_Time and End_Time order by Program_ID asc"
rs.Open sql,con,1,1
if not rs.EOF then
Program_ID = rs("Program_ID")
%>
<tr>
<td valign="top"> </td>
<td align="left" valign="top"><span class="style29"> <span class="style19"><strong><%=rs("Start_Time")%>-<%=rs("End_Time")%></strong></span></span></td>
<td align="left" valign="top"><span class="style35"><%=rs("Program")%></span></td>
</tr>
<%
end if
rs.close
%>
<tr>
<td colspan="3"> </td>
</tr>
<tr>
<td height="30" bgcolor="#666666"><span class="style21"></span></td>
<td colspan="2" align="left" bgcolor="#666666"><span class="style41">รายการต่อไป</span></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
sql = "select * from Program_Daily where Program_Date=#"&Program_Date&"# and '"&xtime&"' <= Start_Time "
if Program_ID <> "" then sql = sql & "and Program_ID <> " & Program_ID & " "
sql =sql & "order by Start_Time,Program_ID asc"
rs.Open sql,con,1,1
if not rs.EOF then
do while not rs.EOF
%>
<tr>
<td width="5%" valign="top"> </td>
<td width="28%" align="left" valign="top"><span class="style38"><%=rs("Start_Time")%>-<%=rs("End_Time")%></span></td>
<td align=left valign="top"><span class="style38"><%=rs("Program")%></span></td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<%
rs.MoveNext
loop
end if
rs.close
set rs= nothing
%>
</table>
</body>
</html>
<!--#include file="connection/close_connection.asp" -->Tag : ASP, Action Script
Date :
2010-09-17 16:41:53
By :
guest1971
View :
1574
Reply :
3
แล้วเวลาของ Server มันตรงกับเวลาของไทยหรือเปล่าครับ ถ้าไม่ตรงอาจจะต้องใช้ function DateAdd() เข้ามาช่วยน่ะครับ
Date :
2010-09-17 16:54:46
By :
webmaster
ขอบคุณครับ
แต่สอบถามทาง host แล้วบอกเวลาตรงปกติ
มันมี code ที่แสดงเหมือนกันแต่ไม่มีปัญหามั้ยครับ
Date :
2010-09-21 09:38:55
By :
guest1971
Code (ASP)
sql = "select * from Program_Daily where Program_Date=#"&Program_Date&"# and '"&xtime&"' between Start_Time and End_Time order by Program_ID asc"
ลองเปลี่ยนเป็น
Code (ASP)
sql = "select * from Program_Daily where Program_Date=#"&Program_Date&"# and '"&xtime&"' between Start_Time and End_Time order by Start_Time asc"
เผื่อจะดีขึ้น
Date :
2010-09-21 17:51:32
By :
watcharop
Load balance : Server 01