Function Format ::
ใช้สำหรับแสดงผลของข้อมูลในรุปแบบต่างๆ ตามที่กำหนด โดยมีรูปแบบของฟังก์ชั่นดังนี้
รูปแบบ
Format (expression[, format[, firstdayofweek[, firstweekofyear]]]) |
มีรายละเอียดดังนี้
expression |
หมายถึงข้อมูลที่ต้องการให้แสดงผล |
format |
หมายถึงรูปแบบที่ต้องการให้แสดงผล จะกำหนดหรือไม่ก็ได้ |
firstdayofweek |
หมายถึงค่าคงที่ที่ใช้แสดงผลวันแรกของสัปดาห์ จะกำหนดหรือไม่ก็ได้ |
firstweekofyear |
หมายถึงค่าคงที่ที่ใช้แสดงผลสัปดาห์แรกของปี จะกำหนดหรือไม่ก็ได้ |
รูปแบบของ Format ที่ใช้ในการแสดงผลต่างๆ มีค่าดังนี้
สัญลักษณ์และตัวอักษร |
หน้าที่ |
0 |
ใช้แทนตัวเลขทั่วไป แต่ในกรณีที่ไม่มีตัวเลขจะแสดงผลเป็น 0 แทน |
# |
ใช้แทนตัวเลขทั่วไป แต่ในกรณีที่ไม่มีตัวเลขจะไม่แสดงผลในตำแหน่งนั้น |
. |
ใช้แสดงจุดทศนิยม |
% |
ใช้แสดงข้อมูลที่ถูกคูณด้วย 100 และเป็นเครื่องหมาย % |
, |
ใช้แสดงเครื่องหมายจุลภาค |
: |
ใช้แแสดงเครื่องหมาย : ในกรณีที่ข้อมูลเป็นเวลา |
/ |
ใช้แสดงเครื่องหมาย / ในกรณีที่ข้อมูลเป็นเวลา |
E-, E+, e-, e+ |
ใช้แแสดงข้อมูลที่เป็นตัวเลขทางวิทยาศาสตร์ |
-, +, $, (, ) |
ใช้แสดงเครื่องหมาย -, +, $, (, ) |
\ |
ใช้แทนตัวอักษร ณ ตำแหน่งที่เครื่องหมายนี้ปรากฎ |
"ABCDE" |
ใช้แสดงข้อความ โดยข้อความจะอยู่ในเครื่องหมาย " |
<, > |
ใช้แสดงข้อความในรูปของตัวพิมพ์เล็กพิมพ์ใหญ่ตามลำดับ |
รูปแบบของ Format ที่เป็นข้อความเพื่อใช้ในการแสดงผลได้เช่นเดียวกันมีค่าดังนี้
ข้อความ |
หน้าที่ |
General Number |
ใช้แทนตัวเลขทั่วไป |
Currency |
ใช้แทนตัวเลขที่เป็นจำนวนเงิน โดยมีเครื่องหมายจุลภาคและจุดทศนิยม |
Fixed |
ใช้แทนตัวเลขที่ไม่มีเครื่องหมายจุลภาคพร้อมจุดทศนิยม 2 ตำแหน่ง |
Standard |
ใช้แทนตัวเลขที่มีเครื่องหมายจุลภาคพร้อมจุดทศนิยม 2 ตำแหน่ง |
Percent |
ใช้แสดงข้อมูลที่ถูกคูณด้วย 100 พร้อมจุดทศนิยม 2 ตำแหน่ง |
Scientific |
ใช้แแสดงข้อมูลตัวเลขทางวิทยาศาสตร์ |
Yes/No |
ใช้แสดงคำว่า "No" เมื่อข้อมูลเป็น 0 และแสดงคำว่า "Yes" เมื่อข้อมูลไม่เท่ากับ 0 |
True/False |
ใช้แสดงคำว่า "False" เมื่อข้อมูลเป็น 0 และแสดงคำว่า "True" เมื่อข้อมูลไม่เท่ากับ 0 |
On/Off |
ใช้แสดงคำว่า "Off" เมื่อข้อมูลเป็น 0 และแสดงคำว่า "On" เมื่อข้อมูลไม่เท่ากับ 0 |
รูปแบบของ Format ที่เป็นข้อความเพื่อใช้ในการแสดงผลข้อมูลที่เป็นวันที่และเวลาได้เช่นเดียวกันมีค่าดังนี้
ข้อความ |
หน้าที่ |
General Date |
ใช้ข้อมูลในรูปแบบของวันที่และเวลา |
Long Date |
ใช้แสดงวันที่ในรูปแบบ Long Date |
Medium Date |
ใช้แสดงวันที่ในรูปแบบ Medium Date |
Short Date |
ใช้แสดงวันที่ในรูปแบบ Short Date |
Long Time |
ใช้แสดงเวลาในรูปแบบ ชั่วโมง นาที และวินาที เช่น 10:41:21 AM |
Medium Time |
ใช้แสดงเวลาในรูปแบบ ชั่วโมง นาที พร้อมด้วย AM/PM |
Short Time |
ใช้แสดงเวลาในรูปแบบ ชั่วโมง นาที แบบ 24 ชั่วโมง |
MsgBox Function
เป็นฟังก์ชั่นที่ใช้ในการแสดงผลและรับข้อความทางจอภาพ ซึ่งได้แก่ MsgBox และ InputBox
รูปแบบ MsgBox
MsgBox (prompt[,buttons][, title][, helpfile, context]) |
มีรายละเอียดดังนี้
prompt |
ข้อความที่แสดงใน Dialog Box |
buttons |
กำหนดการแสดงผลของปุ่ม |
title |
ข้อความที่เกิดบน Title Box |
helpfile |
ชื่อของ Help |
context |
ลำดับที่ของ Help ในไฟล์ Help |
การกำหนดค่าของ Buttons
ค่าคงที่ |
ค่าตัวเลข |
คำอธิบาย |
vbOKOnly |
0 |
แสดงปุ่ม OK |
vbOKCancel |
1 |
แสดงปุ่ม OK และ Calcel |
vbAbortRetryIgnore |
2 |
แสดงปุ่ม Abort Retry และ Ignore |
vbYesNoCancel |
3 |
แสดงปุ่ม Yes No และ Calcel |
vbYesNo |
4 |
แสดงปุ่ม Yes และ No |
vbRetryCancel |
5 |
แสดงปุ่ม Retry และ Calcel |
vbCritical |
16 |
แสดง Icon "Critical Message" |
vbQuestion |
32 |
แสดง Icon "Warning Query" |
vbExclamation |
48 |
แสดง Icon "Warning Message" |
vbInformation |
64 |
แสดง Icon "Information Message" |
vbDefaultButton1 |
0 |
ปุ่มแรกจะเป็นปุ่ม Default |
vbDefaultButton2 |
256 |
ปุ่มที่ 2 จะเป็นปุ่ม Default |
vbDefaultButton3 |
512 |
ปุ่มที่ 3 จะเป็นปุ่ม Default |
vbDefaultButton4 |
768 |
ปุ่มที่ 4 จะเป็นปุ่ม Default |
vbApplicationModal |
0 |
กำหนดให้ MsgBox อยู่ในรูปแบบ Applicationmodal ซึ่งเป็น DialogBox ที่ต้องทำงานใน MsgBox ก่อนที่จะทำงานอื่นต่อไป |
vbSystemModal |
4096 |
กำหนดให้ MsgBox อยู่ในรูปแบบ Systemmodal ซึ่งเป็น DialogBox ที่ต้องทำงานใน MsgBox ก่อนที่จะทำงานอื่นต่อไป |
vbApplicationModal |
0 |
กำหนดให้ MsgBox อยู่ในรูปแบบ Applicationmodal ซึ่งเป็น DialogBox ที่สามารถทำงานพร้อมกับส่วนอื่นได้ |
vbMsgBoxHelpButton |
16384 |
กำแสดงปุ่ม Help |
vbMsgBoxSetForeground |
0 |
กำหนดให้ message box ไม่ได้เป็น Default Windows |
vbMsgBoxright |
524288 |
กำหนดให้ข้อความชิดขอบขวา |
vbMsgBoxRtlReading |
1049576 |
กำหนดให้ข้อความปรากฏจากขวาไปซ้ายเพื่ออ่านข้อความแบบ Hebrew และ Arabic |
ฟังก์ชั่น MsgBox จะคืนค่ากลับมาเมื่อทำงานเสร็จสิ้นจาก MsgBox โดยที่ค่าที่คืนกลับมานั้นมีตามตารางดังนี้
ค่าคงที่ |
ค่าตัวเลข |
คำอธิบาย |
vbOK |
1 |
ปุ่ม OK ถูกกด |
vbCancel |
2 |
ปุ่ม Calcel ถูกกด |
vbAbort |
3 |
ปุ่ม Abort ถูกกด |
vbRetry |
4 |
ปุ่ม Retry ถูกกด |
vbIgnore |
5 |
ปุ่ม Ignore ถูกกด |
vYes |
6 |
ปุ่ม yes ถูกกด |
vbNo |
7 |
ปุ่ม No ถูกกด |
:: InputBox Function ::
รูปแบบ InputBox
InputBox (prompt[,title][, default][, xpos][, ypos][, helpfile, context]) |
มีรายละเอียดดังนี้
prompt |
ข้อความที่แสดงใน Dialog Box |
title |
ข้อความที่เกิดบน Title Box |
xpos |
ตำแหน่งในแนวแกน X |
ypos |
ตำแหน่งในแนวแกน Y |
helpfile |
ชื่อของ Help |
context |
ลำดับที่ของ Help ในไฟล์ Help |
Function ที่ใช้แปลงค่าระหว่างตัวแปร
ฟังก์ชั่นประเภทนี้จะใช้สำหรับแปลงค่าของตัวแปร ซึ่งอยู่ในรูปหนึ่งไปเก็บในอีกรูปแบบหนึ่ง โดยจะยังคงค่าของตัวแปรนั้นไว้เช่นเดิมเปลี่ยนไป เพียง ชนิดตัวแปรเท่านั้นเช่นแปลงตัวแปรจาก Integer ไปเป็นชนิด Double เป็นต้นซึ่งฟังก์ชั่นเหล่านี้มีรูปแบบคำสั่งและลักษณะการใช้งานดังนี้
รูปแบบ Function ที่ใช้แปลงค่าระหว่างตัวแปร
Function(expression) |
Function |
หมายถึงFunction ที่ต้องการจะแปลงค่า |
expression |
หมายถึงตัวแปรที่จะถูกแปลงค่า |
Function |
รูปแบบคำสั่ง |
หน้าที่ |
CBool |
CBool(expression) |
แปลงให้อยู่ในรูป Boolean |
CByte |
Byte(expression) |
แปลงให้อยู่ในรูป Byte |
CCur |
CCur(expression) |
แปลงให้อยู่ในรูป Currency |
CDate |
CDate(expression) |
แปลงให้อยู่ในรูป Date data type |
CDbl |
CDbl(expression) |
แปลงให้อยู่ในรูป Double |
CDec |
CDec(expression) |
แปลงให้อยู่ในรูป Decimal |
CInt |
CInt(expression) |
แปลงให้อยู่ในรูป Integer |
CLng |
CLng(expression) |
แปลงให้อยู่ในรูป Long |
CSng |
CSng(expression) |
แปลงให้อยู่ในรูป Single |
CStr |
CStr(expression) |
แปลงให้อยู่ในรูป String |
CVar |
CVar(expression) |
แปลงให้อยู่ในรูป Variant |
ส่งเมล์ด้วย ASP
การส่งเมล์ด้วย asp ต้องอาศัย Component เพื่อช่วยในการทำงาน สามารถ downloads component ในหัวข้อ component
ตัวอย่าง code การส่งเมล์
<%
Set SMTPObj = CreateObject("ThaiCreate.SMTP") ' เป็น Component ที่ใช้ส่งเมล์
SMTPObj.SMTPServer = "Mail.ThaiCreate.com" ' mail server
SMTPObj.ToAdd = "exam@domain.com"
SMTPObj.FromAdd = "Webmaster@ThaiCreate.com"
SMTPObj.Subject = "ทดสอบการส่งเมล์"
SMTPObj.Body = "ได้รับแล้วตอบเมล์ด้วยเด้อ"
SMTPObj.Connect
result = SMTPObj.EMail
Response.write "Sent " & result
SMTPObj.Quit
%>
Function ทางด้าน วัน-เวลา
- Now เป็นฟังก์ชั่นที่ใช้ในการแสดงวัน-เวลาปัจจุบัน
Sample
<%
tnow=Now
Response.write (tnow)
%>
- Date เป็นฟังก์ชั่นที่ใช้ในการแสดงวันปัจจุบัน
Sample
<%
tdate=Date
Response.write (tdate)
%>
- CDate เป็นฟังก์ชั่นที่ใช้ในการเปลี่ยนวันที่จาก String หรือตัวเลขเป็น Date มีรูปแบบดังนี้
Sample
<%
tdate=CDate("12-12-2546")
Response.write (tdate)
%>
- DateSerial เป็นฟังก์ชั่นที่ใช้ในการแปลงค่าตัวเลขรูปแบบ Integer ให้อยู่ในรูปแบบของ Date
รูปแบบ
DateSerial(year, month, day)
Sample
<%
tdate=DateSerial(2003,12,12)
Response.write (tdate)
%>
- DateValue เป็นฟังก์ชั่นที่ใช้ในการแปลงค่าตัวเลขรูปแบบ String ให้อยู่ในรูปแบบของ Date
เมื่อได้ค่าแล้วสามารถนำไปเปรียบเทียบในเรื่องของวันเวลา
Sample
<%
tdate=DateValue("Dec, 12, 2003")
Response.write (tdate)
%>
- Day, Month, Year เป็นฟังก์ชั่นที่ใช้ในการเปลี่ยนวันที่ในรูปแบบ String ให้อยู่ในรูปแบบ Date
Sample
<%
tdate=("12/12/2546")
Response.write "<br>"&Day(tdate)&""
Response.write "<br>"&Month(tdate)&""
Response.write "<br>"&Year (tdate)&""
%>
- Time เป็นฟังก์ชั่นที่ใช้ในการคืนค่าของเวลาปัจจุบัน
Sample
<%
tdate=DateSerial(2003,12,12)
Response.write (tdate)
%>
- TimeSerial ฟังก์ชั่นนี้จะมีลักษณะเช่นเดียวกันกับ ฟังก์ชั่น DateSerial แต่จะใช้กับเวลาแทน คือสำหรับแปลงค่าของตัวเลขให้อยู่ในรูปแบบของเวลา
TimeSerial(hour, minute, second)
Sample
<%
tTime=TimeSerial(23,51,24)
Response.write (tTime)
%>
- TimeValue ฟังก์ชั่นนี้จะมีลักษณะเช่นเดียวกันกับ ฟังก์ชั่น DateValue แต่จะใช้กับเวลาแทน คือสำหรับแปลงค่า String ให้อยู่ในรูปแบบของเวลา
เมื่อได้ค่านี้สามารถนำไปเปรียบเทียบเชิงระยะและเวลาได้
Sample
<%
tTime=TimeValue("23:51:24")
Response.write (tTime)
%>
- Hour, Minute, Second เป็นฟังก์ชั่นที่ใช้แสดงค่าเวลา ในรูปแบบของชั่วโมงด้วยฟังก์ชั่น Hour ในรูปแบบนาทีด้วยฟังก์ชั่น Minute และในรูปแบบวินาทีด้วยฟังก์ชั่น Second
Sample
<%
tTime=("23:51:24")
Response.write "<br>"&Hour(tTime)&""
Response.write "<br>"&Minute(tTime)&""
Response.write "<br>"&Second (tTime)&""
%>
การสุ่มแบบซ้ำได้
สร้าง form รับค่า 3 ค่า แต่ต้องรับให้ถูกต้อง เพราะจะนำค่าไปตรวจเงื่อนไข
ก่อนนำไปประมวลผลจริง ประกอบด้วย ค่าสูงสุด ค่าต่ำสุด และจำนวนที่ต้องการ
โดยฟอร์มนี้อยู่ในแฟ้ม Sample1.asp ซึ่งจะไปสั่งให้โปรแกรม Sample2.asp ทำงานอีกทีหนึ่ง
Sample1.asp
<html>
<title>สุ่มหลายค่า</title>
<body bgcolor=#FFFFFF>
รับค่าตัวเลข ไปใช้ในการสุ่ม (หลักการนี้ อาจได้ผลลัพธ์ซ้ำกันได้)<br>
<form action=sample2.asp method=post>
ค่ามากที่สุด : <input type=text name=nummax size=5 value=999> <br>
ค่าน้อยที่สุด : <input type=text name=nummin size=5 value=1> <br>
จำนวนเลขที่ต้องการสุ่ม : <input type=text name=numamt size=5 value=15> <br>
<input type=submit value="Random">
<input type=reset value=Reset>
</form>
</body>
</html>
