 |
|
เงือนไข คือ มีการเก็บค่าที่ 1 ชั่วโมง ผมอยากหาค่าเฉลี่ยรายวัน รายเดือน รายปี โดยมีช่องสำหรับค้นหา ถ้าค้นรายวัน ใส่แบบ1/12/2549 รายเดือนใส่แบบ 12/2549 รายปี 2549 โดยข้อมูลมีอยู่ 4ฟิล ยกตัวอย่างนะครับ ถ้าผมหารายเดือน ให้นำค่าเฉลี่ยของรายวันมาแสดงด้วย แล้วสรุปเป็น ค่าเฉลี่ยรายเดือนข้างล่าง มีค่าตำสุด ค่าสูงสุด ผลรวม ด้วยครับ
ตัวอย่างโค๊ตที่ผมทำ ยังไม่ถูกเงือนไขนะครับ ช่วยดูให้ผมหน่อยครับ
<%
rem page1.asp
sdat=request.querystring("sdate")
rem form ถ้าไม่ระุบุจะเป็นการส่งค่าให้กับตัวเอง
%>
<form>
วันที่ (เดือน/วัน/ปีพศ)<input type='text' name='sdate'value='<%=sdat%>'><br>
<input type=submit>
</form>
<%
rem ถ้าไม่มีค่าัวันที่ส่งมาก็ไม่ต้องทำงานต่อ
if sdat="" then response.end
Set conn = Server.CreateObject("ADODB.Connection")
sdat=month(sdat)&"/"&day(sdat)&"/"&year(sdat)
conn.open "DSN=DEMO;UID=sa"
sql="SELECT * FROM Table1 WHERE DDD = '" & sdat &"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn,1,3
'rs.Open sql, conn
'response.write rs.RecordCount
%>
<table>
<TABLE BORDER="1" CELLPADDING="1" BORDERCOLOR="#C0C0C0" BGCOLOR="#FCF9D8" style="font-family: MS Sans Serif">
<TR>
<td>Temp1</td>
<td>Temp2</td>
<td>Temp3</td>
<td>Temp4</td>
<td>Date</td>
<td>Time</td>
</tr>
<% While Not Rs.EOF%>
<tr>
<td><%= Rs("Temp1")%></td>
<td><%= Rs("Temp2")%></td>
<td><%= Rs("Temp3")%></td>
<td><%= Rs("Temp4")%></td>
<td><%= Rs("DDD")%></td>
<td><%= Rs("TTT")%></td>
</tr>
<%
t1=t1+rs("temp1")
t2=t2+rs("temp2")
t3=t3+rs("temp3")
t4=t4+rs("temp4")
Rs.MoveNext
Wend
Set rsmax=Server.CreateObject("adodb.recordset")
sqlmax="select max(temp1) as max1, max(temp2) as max2, max(temp3) as max3, max(temp4) as max4 from Table1 where DDD = '" & sdat &"'"
Set rsmin=Server.CreateObject("adodb.recordset")
sqlmin="select min(temp1) as min1, min(temp2) as min2, min(temp3) as min3, min(temp4) as min4 from Table1 where DDD = '" & sdat &"'"
Set rsavg=Server.CreateObject("adodb.recordset")
sqlavg="select avg(temp1) as avg1, avg(temp2) as avg2, avg(temp3) as avg3, avg(temp4) as avg4 from Table1 where DDD = '" & sdat &"'"
%>
<tr>
<td><%=t1%></td>
<td><%=t2%></td>
<td><%=t3%></td>
<td><%=t4%></td>
<td> </td>
<td>ค่า sum</td>
</tr>
<%rsmax.open sqlmax,conn,1,3%>
<tr>
<td><%=rsmax("max1")%></td>
<td><%=rsmax("max2")%></td>
<td><%=rsmax("max3")%></td>
<td><%=rsmax("max4")%></td>
<td> </td>
<td>ค่า max</td>
</tr>
<%rsmin.open sqlmin,conn,1,3%>
<tr>
<td><%=rsmin("min1")%></td>
<td><%=rsmin("min2")%></td>
<td><%=rsmin("min3")%></td>
<td><%=rsmin("min4")%></td>
<td> </td>
<td>ค่า min</td>
</tr>
<%rsavg.open sqlavg,conn,1,3%>
<tr>
<td><%=rsavg("avg1")%></td>
<td><%=rsavg("avg2")%></td>
<td><%=rsavg("avg3")%></td>
<td><%=rsavg("avg4")%></td>
<td> </td>
<td>ค่า avg</td>
</tr>
</table>
<%
Rs.Close
Conn.Close
%>
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
11 พ.ค. 2549 14:59:14 |
By :
keang |
View :
2494 |
Reply :
2 |
|
 |
 |
 |
 |
|
|
|
|
 |
