Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,160

HOME > ASP > ASP Forum > อยากจะเขียน code ค้นหาข้อมูลเหมือนเว็บ http://www.asiainsurance.co.th/garage_new/garageG.aspx


 

อยากจะเขียน code ค้นหาข้อมูลเหมือนเว็บ http://www.asiainsurance.co.th/garage_new/garageG.aspx

 



Topic : 057684

Guest




อยากจะเขียน code ค้นหาข้อมูลบุคคลเหมือนเว็บ http://www.asiainsurance.co.th/garage_new/garageG.aspx นี้ค่ะ แต่ไม่รู้จะเริ่มต้นยังงัยค่ะพอดีไปค้นเจอ วิิธี Dependant ListMenu ที่พี่ๆในเว็บเขียนไว้ก็ตรงกับที่ต้องการค่ะ แต่เมื่อคลิ๊กเลือก ภาค อำเภอ จังหวัดเสร็จ แล้ว ต้องเขียนแทรก code ให้แสดงข้อมูลบุคคล โดยกรอง ตามภาค ตาม จังหวัด ตามที่เราเลือกใน list menu ยังงัยค่ะ ต้องแทรกโค๊ดไว้ตรงไหนค่ะ

โดยใช้ asp +mssql แบ่ง table ออก 4 table ค่ะ 1.เก็บภาค 2.เก็บจังหวัด 3.เก็บอำเภอ 4.เก็บประวัติและที่อยู่บุคคลค่ะ เวลาเรียกดูข้อมูลต้อง join table แบบนี้ค่ะลองดูได้

sql="select * from asia inner join county on asia.county=county.id_county inner join province on asia.Province=province.id_province inner join sector on asia.zone=sector.sector_id order by asia.id desc"
แต่ถ้าทำเหมือนเว็บ http://www.asiainsurance.co.th/garage_new/garageG.aspx นี้ไม่รู้ต้องเริ่ม โค๊ตยังงัยค่ะพี่พี่ช่วยแนะนำโค๊ตค้นหาด้วยค่ะ ขอบคุณค่ะ


Code (ASP)
<%
	'*** By Weerachai Nukitram ***'
	'***  http://www.ThaiCreate.Com ***'
	Option Explicit

	Dim Conn,strSQL,objRec,intRows
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/thailand.mdb"),"" , ""
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=tis-620">
<title>ThaiCreate.Com ListMenu</title>
<script language = "JavaScript">

		//**** List Province (Start) ***//
		function ListProvince(SelectValue)
		{
			frmMain.ddlProvince.length = 0
			frmMain.ddlAmphur.length = 0
			
			//*** Insert null Default Value ***//
			var myOption = new Option('','')  
			frmMain.ddlProvince.options[frmMain.ddlProvince.length]= myOption
			
			<%
			strSQL = "SELECT * FROM province ORDER BY PROVINCE_ID ASC "
			Set objRec = Server.CreateObject("ADODB.Recordset")
			objRec.Open strSQL, Conn, 1,3

			intRows = 0
			While Not objRec.EOF
			intRows = intRows + 1
			%>			
				x = <%=intRows%>;
				mySubList = new Array();
				
				strGroup = <%=objRec.Fields("GEO_ID").Value%>;
				strValue = "<%=objRec.Fields("PROVINCE_ID").Value%>";
				strItem = "<%=objRec.Fields("PROVINCE_NAME").Value%>";
				mySubList[x,0] = strItem;
				mySubList[x,1] = strGroup;
				mySubList[x,2] = strValue;
				if (mySubList[x,1] == SelectValue){
					var myOption = new Option(mySubList[x,0], mySubList[x,2])  
					frmMain.ddlProvince.options[frmMain.ddlProvince.length]= myOption					
				}
			<%
			objRec.MoveNext
			Wend
			%>
		}
		//**** List Province (End) ***//

		
		//**** List Amphur (Start) ***//
		function ListAmphur(SelectValue)
		{
			frmMain.ddlAmphur.length = 0

			//*** Insert null Default Value ***//
			var myOption = new Option('','')  
			frmMain.ddlAmphur.options[frmMain.ddlAmphur.length]= myOption
			
			<%
			strSQL = "SELECT * FROM amphur ORDER BY AMPHUR_ID ASC "
			Set objRec = Server.CreateObject("ADODB.Recordset")
			objRec.Open strSQL, Conn, 1,3

			intRows = 0
			While Not objRec.EOF
			intRows = intRows + 1
			%>
				x = <%=intRows%>;
				mySubList = new Array();
				
				strGroup = <%=objRec.Fields("PROVINCE_ID").Value%>;
				strValue = "<%=objRec.Fields("AMPHUR_ID").Value%>";
				strItem = "<%=objRec.Fields("AMPHUR_NAME").Value%>";
				mySubList[x,0] = strItem;
				mySubList[x,1] = strGroup;
				mySubList[x,2] = strValue;
							
				if (mySubList[x,1] == SelectValue){
					var myOption = new Option(mySubList[x,0], mySubList[x,2])  
					frmMain.ddlAmphur.options[frmMain.ddlAmphur.length]= myOption					
				}
			<%
			objRec.MoveNext
			Wend
			%>																
		}
		//**** List Amphur (End) ***//

</script>


</head>
<form name="frmMain" action="" method="post">
	Geography 
	<select id="ddlGeo" name="ddlGeo" onChange = "ListProvince(this.value)">
	<option selected value=""></option>

	<%
	strSQL = "SELECT * FROM geography ORDER BY GEO_ID ASC "
	Set objRec = Server.CreateObject("ADODB.Recordset")
	objRec.Open strSQL, Conn, 1,3

	intRows = 0
	While Not objRec.EOF
	intRows = intRows + 1
	%>
	<option value="<%=objRec.Fields("GEO_ID").Value%>"><%=objRec.Fields("GEO_NAME").Value%></option>
	<%
	objRec.MoveNext
	Wend
	%>
	</select>

	Province
	<select id="ddlProvince" name="ddlProvince" style="width:120px" onChange = "ListAmphur(this.value)"></select>

	Amphur
	<select id="ddlAmphur" name="ddlAmphur" style="width:200px"></select>
</form>
</body>
</html>
<%
	objRec.Close()
	Conn.Close()
	Set objRec = Nothing
	Set Conn = Nothing 
%>




Tag : ASP, JavaScript







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-03-23 16:58:49 By : มือใหม่ View : 1132 Reply : 1
 

 

No. 1



โพสกระทู้ ( 73,832 )
บทความ ( 835 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

เขียนได้ 3 Level แล้วจะต่อ Level ที่ 4 ก็ไม่น่ายากครับ โดยดูจาก 3 ตัวเป็นเพื้นฐานครับ

Go to : สร้าง Dependent ListMenu เลือกข้อมูลหลักและข้อมูลย่อยเปลี่ยนตามหัวข้อหลัก






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-03-23 18:00:50 By : webmaster
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : อยากจะเขียน code ค้นหาข้อมูลเหมือนเว็บ http://www.asiainsurance.co.th/garage_new/garageG.aspx
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, vps | เช่า vps , รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
for Contact Us : [Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่