<Script language="Vbscript"> Function CheckData() Dim Mymessage If Form1.text1.value="" Then Mymessage = "กรุณาใส่ชื่อของท่านให้ถูกต้อง" & Chr(10) End If If form1.text2.value=""Then Mymessage = Mymessage & "กรุณาใสนามสกุลของท่านให้ถูกต้อง" & Chr(10) End If If form1.text3.value=""Then Mymessage = Mymessage & "กรุณาใส่ที่อยู่ของท่านให้ถูกต้อง" & Chr(10) End If If form1.text5.value= ""Or InStr(form1.text5.value,"@")= 0 Then Mymessage = Mymessage & "กรุณาใส่ E-Mial ของท่านให้ถูกต้อง" & Chr(10) End If If form1.text6.value = ""Then Mymessage = Mymessage & "กรุณาใส่ ชื่อที่ใช้ในการ Login ของท่านให้ถูกต้อง" & Chr(10) End If If form1.text7.value = ""Then Mymessage = Mymessage & "กรุณาใส่ Password ของท่านให้ถูกต้อง" & Chr(10) End If If Len(Mymessage) > 0 Then MsgBox Mymessage,vbOkOnly,"รายงานข้อผิดพลาด" submit1_onclick = false End If End Function </Script> <body topmargin="0" leftmargin="0"> <form id="form1" name="form1" onSubmit = "Vbscript:CheckData()" action="regiscomplete.asp" method="post"> <table border="0" width="717" cellspacing="0" cellpadding="0" height="320"> <tr bgcolor="#fcf5be" align="left"> <td colspan="2" height="34">ข้อมูลส่วนตัว</td> </tr> <tr> <td width="344"> <div align="right">ชื่อ :</div></td> <td width="373" height="32"> <input type="text" name="text1" size="28"></td> </tr> <tr> <td width="344"><div align="right">นามสกุล :</div></td> <td width="373" height="32"> <input type="text" name="text2" size="28"></td> </tr> <tr> <td width="344"><div align="right">ที่อยู่ :</div></td> <td width="373" height="32"> <input type="text" name="text3" size="28"></td> </tr> <tr> <td width="344"><div align="right"></div></td> <td width="373" height="32"> <input type="text" name="text4" size="28"></td> </tr> <tr> <td width="344"><div align="right">E-Mail :</div></td> <td width="373" height="32"> <input type="text" name="text5" size="28"></td> </tr> <tr> <td width= "344"><div align="right">เบอร์โทร :</div></td> <td width= "373" height= "32"> <input type="text" name="text8" size="28"></td> </tr> <tr bgcolor="#fcf5be"> <td colspan="2" height="34">ชื่อที่ใช้ในการเข้าสู่ระบบ(Username,Password)</td> </tr> <tr> <td width="344"><div align="right">ชื่อ Login :</div></td> <td width="373" height="32"> <input type="text" name="text6" size="28"></td> </tr> <tr> <td width="344"><div align="right">รหัสผ่าน :</div></td> <td width="373" height="32"> <input type="password" name="text7" size="28"></td> </tr> <tr bgcolor="#fcf5be"> <td height="32" colspan="2" align="center"2><Input type="submit" name="submit1" value= "ลงทะเบียน"> <Input type="reset" name="reset" value= "ยกเลิก"></td> </tr> </table> </form> </body>
<html> <body topmargin="0" leftmargin="0"> <form action="regiscomplete.asp" method="post" name="form1"> <table border="0" width="717" cellspacing="0" cellpadding="0" height="320"> <tr bgcolor="#fcf5be" align="left"> <td colspan="2" height="34">ข้อมูลส่วนตัว</td> </tr> <tr> <td width="344"> <div align="right">ชื่อ :</div></td> <td width="373" height="32"> <input type="text" name="text1" size="28"></td> </tr> <tr> <td width="344"><div align="right">นามสกุล :</div></td> <td width="373" height="32"> <input type="text" name="text2" size="28"></td> </tr> <tr> <td width="344"><div align="right">ที่อยู่ :</div></td> <td width="373" height="32"> <input type="text" name="text3" size="28"></td> </tr> <tr> <td width="344"><div align="right"></div></td> <td width="373" height="32"> <input type="text" name="text4" size="28"></td> </tr> <tr> <td width="344"><div align="right">E-Mail :</div></td> <td width="373" height="32"> <input type="text" name="text5" size="28"></td> </tr> <tr> <td width= "344"><div align="right">เบอร์โทร :</div></td> <td width= "373" height= "32"> <input type="text" name="text8" size="28"></td> </tr> <tr bgcolor="#fcf5be"> <td colspan="2" height="34">ชื่อที่ใช้ในการเข้าสู่ระบบ(Username,Password)</td> </tr> <tr> <td width="344"><div align="right">ชื่อ Login :</div></td> <td width="373" height="32"> <input type="text" name="text6" size="28"></td> </tr> <tr> <td width="344"><div align="right">รหัสผ่าน :</div></td> <td width="373" height="32"> <input type="password" name="text7" size="28"></td> </tr> <tr bgcolor="#fcf5be"> <td height="32" colspan="2" align="center"2><Input type="button" name="btnRegister" value= "ลงทะเบียน"> <Input type="reset" name="reset" value= "ยกเลิก"></td> </tr> </table> </form> <Script Language="VBscript"> Sub btnRegister_onClick() Dim Mymessage If Form1.text1.value="" Then Mymessage = "กรุณาใส่ชื่อของท่านให้ถูกต้อง" & Chr(10) End If If form1.text2.value=""Then Mymessage = Mymessage & "กรุณาใสนามสกุลของท่านให้ถูกต้อง" & Chr(10) End If If form1.text3.value=""Then Mymessage = Mymessage & "กรุณาใส่ที่อยู่ของท่านให้ถูกต้อง" & Chr(10) End If If form1.text5.value= ""Or InStr(form1.text5.value,"@")= 0 Then Mymessage = Mymessage & "กรุณาใส่ E-Mial ของท่านให้ถูกต้อง" & Chr(10) End If If form1.text6.value = ""Then Mymessage = Mymessage & "กรุณาใส่ ชื่อที่ใช้ในการ Login ของท่านให้ถูกต้อง" & Chr(10) End If If form1.text7.value = ""Then Mymessage = Mymessage & "กรุณาใส่ Password ของท่านให้ถูกต้อง" & Chr(10) End If If Len(Mymessage) > 0 Then MsgBox Mymessage,vbOkOnly,"รายงานข้อผิดพลาด" Exit Sub Else Call form1.submit End If End sub </Script> </body> </html>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
