Make your own free website on Tripod.com
 

 

การเขียนโปรแกรมภาษา ASP

            
               

Function Format ::

       ใช้สำหรับแสดงผลของข้อมูลในรุปแบบต่างๆ ตามที่กำหนด โดยมีรูปแบบของฟังก์ชั่นดังนี้
รูปแบบ


Format (expression[, format[, firstdayofweek[, firstweekofyear]]])



มีรายละเอียดดังนี้


expression

หมายถึงข้อมูลที่ต้องการให้แสดงผล

format

หมายถึงรูปแบบที่ต้องการให้แสดงผล จะกำหนดหรือไม่ก็ได้
ในกรณีที่ไม่กำหนด ฟังก์ชั่น Format จะคืนค่ากลับมาเช่นเดียวกับฟังก์ชั่น Str

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>

Out Put


TOP