Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ทำไงให้มัน ยกเลิก action ไปอีกฟอร์มอ่ะครับ(VB Script) แก้ให้ทีครับ ขอบคุณครับ

ทำไงให้มัน ยกเลิก action ไปอีกฟอร์มอ่ะครับ(VB Script) แก้ให้ทีครับ ขอบคุณครับ

เริ่มหัวข้อใหม่

Guest

'อันนี้ทำตามโค้ดในหนังสือ มันก็เตือนเมื่อผิดจากเงื่อนไขที่ตั้งไว้ แต่มันก็ยัง action ไปอีกหน้าอยู่ดี
'ช่วยดูให้ทีครับ ขอบคุณครับ

Code (ASP)

<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">&nbsp;&nbsp;<input type="text" name="text1" size="28"></td>
</tr>
<tr>
  <td width="344"><div align="right">นามสกุล	:</div></td>
	<td width="373" height="32">&nbsp;&nbsp;<input type="text" name="text2" size="28"></td>
</tr>
<tr>
  <td width="344"><div align="right">ที่อยู่	:</div></td>
	<td width="373" height="32">&nbsp;&nbsp;<input type="text" name="text3" size="28"></td>
</tr>
<tr>
  <td width="344"><div align="right"></div></td>
	<td width="373" height="32">&nbsp;&nbsp;<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">&nbsp;&nbsp;<input type="text" name="text5" size="28"></td>
</tr>
<tr>
  <td width= "344"><div align="right">เบอร์โทร	:</div></td>
	<td width= "373" height= "32">&nbsp;&nbsp;<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">&nbsp;&nbsp;<input type="text" name="text6" size="28"></td>
</tr>
<tr>
  <td width="344"><div align="right">รหัสผ่าน	:</div></td>
	<td width="373" height="32">&nbsp;&nbsp;<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= "ลงทะเบียน">&nbsp;
	  <Input type="reset" name="reset" value= "ยกเลิก"></td>
	</tr>
  </table>
</form>
</body>

Tag : - - - -

Date : 2010-02-22 22:18:34

By : AkunGz

View : 1133

Reply : 1

No. 1

AkunGz

โพสกระทู้ ( 1 )
บทความ ( 0 )

ได้แล้วครับเขียนแบบอื่นแทน - -*
เผื่อใครเอาไปใช้ประโยชน์ ขอบคุณครับ

Code (ASP)

<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">&nbsp;&nbsp;<input type="text" name="text1" size="28"></td>
		</tr>
		<tr>
			<td width="344"><div align="right">นามสกุล	:</div></td>
			<td width="373" height="32">&nbsp;&nbsp;<input type="text" name="text2" size="28"></td>
		</tr>
		<tr>
			<td width="344"><div align="right">ที่อยู่	:</div></td>
			<td width="373" height="32">&nbsp;&nbsp;<input type="text" name="text3" size="28"></td>
		</tr>
		<tr>
			<td width="344"><div align="right"></div></td>
			<td width="373" height="32">&nbsp;&nbsp;<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">&nbsp;&nbsp;<input type="text" name="text5" size="28"></td>
		</tr>
		<tr>
			<td width= "344"><div align="right">เบอร์โทร	:</div></td>
			<td width= "373" height= "32">&nbsp;&nbsp;<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">&nbsp;&nbsp;<input type="text" name="text6" size="28"></td>
		</tr>
		<tr>
			<td width="344"><div align="right">รหัสผ่าน	:</div></td>
			<td width="373" height="32">&nbsp;&nbsp;<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= "ลงทะเบียน">&nbsp;
			<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>

Date : 2010-02-22 23:28:07

By : AkunGz

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ทำไงให้มัน ยกเลิก action ไปอีกฟอร์มอ่ะครับ(VB Script) แก้ให้ทีครับ ขอบคุณครับ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 00

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); ทำไงให้มัน ยกเลิก action ไปอีกฟอร์มอ่ะครับ(VB Script) แก้ให้ทีครับ ขอบคุณครับ

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

ทำไงให้มัน ยกเลิก action ไปอีกฟอร์มอ่ะครับ(VB Script) แก้ให้ทีครับ ขอบคุณครับ