Make your own free website on Tripod.com
 

 

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

            
               

Sample2.asp



<html>
<head>
<title>ผลลัพธ์จากการสุ่ม (Random result)</title>
</head>
<body bgcolor="#FFFFFF">
<b>ผลลัพธ์จากการสุ่ม (Random result)</b><br>
หลักการนี้อาจได้ผลลัพธ์ที่ซ้ำกันได้<br>
<%
numamt = request.form("numamt")
nummax = request.form("nummax")
nummin = request.form("nummin")
error = 0
if (nummax <= nummin) or (numamt <= 0) then
response.write( "<hr>ค่าที่ระบุในเงื่อนไขผิดพลาด โปรดกลับไประบุใหม่")
error = 1
else
randomize
for i = 1 to numamt
x = int(nummin + (rnd * ( nummax - nummin + 1 )))
response.write( x & "<br>")
next
end if
%>
</body>
</html>



Out Put





การสุ่มแบบไม่ซ้ำ
สร้าง form รับค่า 3 ค่า แต่ต้องรับให้ถูกต้อง เพราะจะนำค่าไปตรวจเงื่อนไข
ก่อนนำไปประมวลผลจริง ประกอบด้วย ค่าสูงสุด ค่าต่ำสุด และจำนวนที่ต้องการ
โดยฟอร์มนี้อยู่ในแฟ้ม Sample3.asp ซึ่งจะไปสั่งให้โปรแกรม Sample4.asp ทำงานอีกทีหนึ่ง


Sample3.asp


<html>
<title>สุ่มหลายค่าไม่ซ้ำกัน</title>
<body bgcolor=#FFFFFF>
รับค่าตัวเลข ไปใช้ในการสุ่ม (หลักการนี้ จะได้ผลลัพธ์ไม่ซ้ำกัน)<br>
<form action=Sample4.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







Sample4.asp


<html>
<head>
<title>ผลลัพธ์จากการสุ่ม (Random result)</title>
</head>
<body bgcolor="#FFFFFF">
<b>ผลลัพธ์จากการสุ่ม (Random result)</b><br>
หลักการนี้ จะได้ผลลัพธ์ที่ไม่ซ้ำกัน<br>
<%
numamt = int(request.form("numamt"))
nummax = int(request.form("nummax"))
nummin = int(request.form("nummin"))
error = 0
if (numamt > ( nummax - nummin )) or (numamt = 0) then
response.write( "<hr>ค่าที่ระบุในเงื่อนไขผิดพลาด โปรดกลับไประบุใหม่")
error = 1
else
randomize
dim arr(99999)
i = 1
do while i <= numamt
x = int(nummin + (rnd * ( nummax - nummin + 1)))
found = 0
for j = 1 to i - 1
if arr(j) = x then found = 1
next
if found = 0 then
arr(i) = x
i = i + 1
end if
loop
for k = 1 to numamt
response.write( arr(k) & "<br>")
next
end if
%>
</body>
</html>




OutPut


การเรียกดูไฟล์ในโฟลเดอร์

สำหรับหัวข้อนี้จะได้รู้วิธีการแสดงชื่อไฟล์ใน โฟลเดอร์ แบบง่าย ๆ สามารถกำหนดโฟลเดอร์ที่จะนำมา
แสดงได้ลองมาดู code กันหน่อยครับ


Sample1.asp


<%
Set MyDirectory=Server.CreateObject("Scripting.FileSystemObject")
Set MyFiles=MyDirectory.GetFolder(Server.MapPath("/shopping")) 'แสดงชื่อไฟล์ในโฟลเดอร์ shopping
For each filefound in MyFiles.files
%>
<% =filefound.Name %>
<br>
<%
Next
%>


Out Put


TOP