Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > *****ผู้รู้ช่วยตอบด่วนครับ **** concept details.asp ผมต้องการทำ form โดยใช้ checkbox แบบไม่จำกัด Element ใน Array (เดิมจำกัดไว้ 25 )

*ผู้รู้ช่วยตอบด่วนครับ concept details.asp ผมต้องการทำ form โดยใช้ checkbox แบบไม่จำกัด Element ใน Array (เดิมจำกัดไว้ 25 )

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

Guest

concept
details.asp
ผมต้องการทำ form โดยใช้ checkbox แบบไม่จำกัด Element ใน Array (เดิมจำกัดไว้ 25 )
จำนวน Element ใน Array ขึ้นอยู่กับเงื่อนไข การ Query ข้อมูลใน Database ว่า USER คนใดมีสิทธิในการใช้ Menu ใดใน Database ถูกเช็คค่าไว้ให้ดึงข้อมูลมาแสดงโดยชื่อ Checkbox เป็น
menu_chk0,menu_chk1.......เป็นเรื่อยๆเท่าขนาดของ Array ส่งค่า Action ไปให้อีก file ทำการ Insert ถ้าใน Database ยังไม่มีข้อมูล หรือ Update ถ้ามีข้อมูลเดิมใน Database ดึงมาแสดงผล แล้ว Update
แล้วส่งค่า(action="assignmenu.asp")ไปยังอีก file

assignmenu.asp
ใน file assignmenu.asp ทำหน้าที่รับข้อมูล checkbox ที่เป็น Array จาก form แล้วทำการ Insert หรือ Update ข้อมูลวน loop จนครบ ขึ้นอยู่กับเงื่อนไข value ของปุ่ม
submit ที่ส่งค่ามา เมื่อ Insert หรือ Update เสร็จแล้วก็กลับไปแสดงผมหน้า details.asp
ตอนนี้ผมเขียนหน้านี้แบบ fix ไว้เถื่อนๆลักไก่ไว้
==========================================================================
<%
if Session("Login")<>"TRUE" Then
%>
<p align="center"><FONT SIZE=3 FACE="MS Sans Serif" color='#FF0000'><B>กรุณา Login เข้าระบบ <Br></FONT></p>
<meta http-equiv = "refresh" content = "1 ;URL=../../index.html">
<%Else%>
<%
search=Request.querystring("keyword")
search=UCASE(search)
group_no=Request.querystring("groupno")
Dim menu_chk(25)
%>
<html>
<head><title>::: Menu ==> Add Details :::</title>
<link href="tx.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=windows-874"></head>
<body>
<table border="0" cellspacing="0" bgcolor="#ffffff">
<tr>
<td> <div align="right"><font color="#3366FF">Preview Date ::>>> <%=now%>
</font> </div></td>
<tr>
<td width="29%"><div align="right"><font color="#0000FF" > User Logon Mapic
: </font><b><font color="#990099">
<%Response.Write Session("Uname")%>
</font> </b></div></td>
</tr>
</table>

<div align="center">
<b><FONT size="4" color="#0066FF">บริหารสิทธิการใช้ Menu ขอผู้ใช้แต่ละคน</FONT></b>
<p align="left"> </p>
<form name="f_search" action="details.asp" method="get">
<FONT size="3" color="#0066FF">ค้นหาชื่อจริง </FONT>
<input name="keyword" type="text" size="25" >
<input type="submit" name="Search" value="Search"onClick="if(document.f_search.keyword.value=='') alert('กรุณากรอกข้อมูล') ">
</form></div>

<%'################ ถ้ามีการค้นหา ################
IF search <> "" Then

set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open "PILT_ODBC","prod","prod"
sql_search="SELECT ALL PROD.GROUP_MAPIC.GROUP_NAME,PROD.GROUP_MAPIC.GROUP_NO FROM PROD.GROUP_MAPIC WHERE PROD.GROUP_MAPIC.GROUP_NAME LIKE '"&search&"%' ORDER BY PROD.GROUP_MAPIC.GROUP_NAME ASC"
Set ObjRSsearch=Server.CreateObject("ADODB.Recordset")
Set ObjRSsearch = ObjDB.Execute (sql_search)
%>
<br>
<hr><div align="center"><b><FONT size="4" color="#0066FF">REPORT</FONT></b></div><br>

<%
if ObjRSsearch.Eof and ObjRSsearch.bof then
Response.Write "<div align='center'><H3><font color ='#FF0000'> No Data ไม่มีข้อมูลครับ</font></H3></div>"

Else%>

<table width="490" border="1" cellspacing="0" cellpadding="0" bgcolor="#C2EBFE" align="center">
<tr bgcolor="#99CCFF" valign="top"width="200">
<td > <div align="center"><b>Group Name</b></div></td>

<td valign="top" width="100" > <div align="center"><b>Menu Permission</b></div></td>
</tr>
<%
do while not ObjRSsearch.Eof

If Bg="#C2EBFE"Then Bg="white" Else Bg="#C2EBFE" End If
%>
<Tr Bgcolor=<%=Bg%> Valign=Top>
<%
response.write("<td valign='top' align='center'><small> " &ObjRSsearch("GROUP_NAME")& "</small> </td>")
'response.write("<td valign='top' align='center'><small> " &ObjRSsearch("U_COMMENT")& "</small> </td>")
'response.write("<td valign='top' align='center'><small> " &ObjRSsearch("STATUS")& "</small> </td>")
%>
<td valign="top" align="center"><small><A HREF="details.asp?groupno=<%=ObjRSsearch("GROUP_NO").value%>">Set_Permission</A></small></td>
<%
response.write("</tr>")
ObjRSsearch.MoveNext
LOOP
End If
'ปิดการติดต่อฐานข้อมูล
if ObjRSsearch.Eof then
ObjRSsearch.Close
ObjDB.Close
End If

End If
'############### จบส่วนแสดงผลค้นหา #########################
%>

<%
'############### ส่วนแสดง Menu ทั้งหมด #######################
IF group_no <> "" Then
set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open "PILT_ODBC","prod","prod"
sql_menu_total= "SELECT ALL MENU_NO,MENU_NAME FROM MENU_MAPIC ORDER BY MENU_NAME ASC"
Set ObjRSmenu_total=Server.CreateObject("ADODB.Recordset")
Set ObjRSmenu_total = ObjDB.Execute (sql_menu_total)
'=================แสดงชื่อ User ที่เลือก =======================
sql_sel_group= "SELECT * FROM GROUP_MAPIC WHERE GROUP_NO='"&group_no&"' "
Set ObjRSsel_group=Server.CreateObject("ADODB.Recordset")
Set ObjRSsel_group = ObjDB.Execute (sql_sel_group)
If NOT ObjRSsel_group.EOF Then
'============== ส่วนแสดง Permission =========================
sql_menu_per="SELECT ALL PROD.GROUP_MAPIC.GROUP_NO, PROD.GROUP_MAPIC.GROUP_NAME, PROD.MENU_MAPIC.MENU_NO, PROD.MENU_MAPIC.MENU_NAME, PROD.MENU_MAPIC.LINK, PROD.MENU_MAPIC.M_COMMENT FROM PROD.ASSIGN_GROUP1, PROD.MENU_MAPIC, PROD.GROUP_MAPIC WHERE ((PROD.GROUP_MAPIC.GROUP_NO=PROD.ASSIGN_GROUP1.GROUP_NO) AND PROD.ASSIGN_GROUP1.GROUP_NO='"&group_no&"' AND (PROD.MENU_MAPIC.MENU_NO=PROD.ASSIGN_GROUP1.MENU_NO)) ORDER BY PROD.GROUP_MAPIC.GROUP_NAME ASC, PROD.MENU_MAPIC.MENU_NAME ASC"
Set ObjRSmenu_per=Server.CreateObject("ADODB.Recordset")

'=========================================================
%> <br>
<hr><div align="center"><b><FONT size="4" color="#0066FF">Set Permission for </FONT></b>
<b><FONT size="4" color="#990099"> <%=ObjRSsel_group("GROUP_NAME")%>
<%End If'จบแสดงชื่อ Group ที่เลือก%></FONT></b>
<form name="f_menu_per" method="post" action="assignmenu.asp">
<table width="500" border="1" align="center">
<tr bgcolor="#99CCFF">
<td width="78">Permission</td>
<td width="406"><div align="center">Menu Name</div></td>
</tr>
<%
If ObjRSmenu_total.EOF and ObjRSmenu_total.BOF Then
'======
Else
%>
<input type="hidden" name="group_no" value="<%=ObjRSsel_group("GROUP_NO")%>">
<%
'############### วนลูปแสดง Menu ทั้งหมด ########################
do while not ObjRSmenu_total.EOF
If Bg="#C2EBFE"Then Bg="white" Else Bg="#C2EBFE" End If
%>
<Tr Bgcolor=<%=Bg%> Valign=Top>
<%
'===============วนลูปเปรียบเทียบ Menu ที่มีสิทธิ ====================
a=0 'เคลียร์
Set ObjRSmenu_per = ObjDB.Execute (sql_menu_per)
do while not ObjRSmenu_per.EOF
If Cstr(ObjRSmenu_total("MENU_NO"))=Cstr(ObjRSmenu_per("MENU_NO")) Then
a=1
%>
<td width="78"><center><input type="checkbox" name="menu_chk<%=i%>" value="<%=ObjRSmenu_total("MENU_NO")%>" checked></center></td>
<td width="406"><div align="center"><%=ObjRSmenu_total("MENU_NAME") %></div></td>
<%
End If
ObjRSmenu_per.MoveNext
LOOP
'===========================================================
%>
<% If a <>1 Then %>
<td width='78'><center><input type="checkbox" name="menu_chk<%=i%>" value="<%=ObjRSmenu_total("MENU_NO")%>"></center></td>
<%
Response.write("<td width='406'><div align='center'>" &ObjRSmenu_total("MENU_NAME")& "</div></td>")
Response.write("</tr>")
Response.write(menu_chk(i))

End If
i=i+1
ObjRSmenu_total.MoveNext
LOOP

End If
%>
<input type="hidden" name="i" value="<%=i %>">
<%
'==========เช็คว่า User มีค่าใน Table Assign เหรอยัง =======
'For a = 0 to Ubound(menu_chk)
Set ObjRSmenu_per = ObjDB.Execute (sql_menu_per)
If ObjRSmenu_per.EOF Then
Response.write("</table>")
Response.write("</table>")
Response.write("<P><center><input type='submit' name='f_submit' value='INSERT'></center></P>")
Response.write("</form>")
Else
Response.write("</table>")
Response.write("</table>")
Response.write("<P><center><input type='submit' name='f_submit' value='UPDATE'></center></P>")
Response.write("</form>")

'End If
End If
'=============================================

if ObjRSmenu_total.EOF then
ObjRSmenu_total.Close
ObjDB.Close
End If

%>
<br><br><CENTER><table width="50%" border="1" bordercolor="#6666CC" cellspacing="0" bgcolor="#DDEEFF">
<tr><td align="center"><a href="http://dcserver/mapics.html" class="tx"><FONT COLOR="#666666" face="verdana">Go to Pacipic Pipe</FONT></td>
<td align="center"><a href="menu.asp" class="tx"><FONT COLOR="#666666" face="verdana">Main Menu</FONT></td>

<td align="center"><a href="../logout.asp" class="tx"><FONT COLOR="#666666" face="verdana">Log Out</FONT></td>
</tr>
</table><br></CENTER>
<%End If
'จบ ส่วนแสดง Menu ทั้งหมด %>
</body>
</html>
<%End If%>
===========================================================================
<%
if Session("Login")<>"TRUE" Then
%>
<p align="center"><FONT SIZE=3 FACE="MS Sans Serif" color='#FF0000'><B>กรุณา Login เข้าระบบ <Br></FONT></p>
<meta http-equiv = "refresh" content = "1 ;URL=../../index.html">
<%Else%>
<%
submit=Request.form("f_submit")
i=Request.form("i") 'Max menu
group_no_f=Request.form("group_no")
group_no_Int=CInt(group_no_f)
'======== เก็บไว้ทดสอบ ==================================
'maxlen=len(menu_chk_f)
'Response.write("user_no="&user_no_f)
'Response.write("<p>MENU="&menu_chk_f0)
'Response.write("<p>MENU="&menu_chk_f1)
'Response.write("<p>MENU="&menu_chk_f2)
'Response.write("<p>MENU="&menu_chk_f3)
'Response.write("<p>MENU="&menu_chk_f4)
'Response.write("<p>MENU="&menu_chk_f5)
'Response.write("<p>MENU="&menu_chk_f6)
'Response.write("<p>MENU="&menu_chk_f7)
'Response.write("<p>MENU="&menu_chk_f8)
'Response.write("<p>MENU="&menu_chk_f9)
'Response.write("<p>MENU="&menu_chk_f10)
'Response.write("<p>MENU="&menu_chk_f11)
'Response.write("<p>MENU="&menu_chk_f12)
'Response.write("<p>MENU="&menu_chk_f13)
'Response.write("<p>MENU="&menu_chk_f14)
'Response.write("<br>maxlen=" &maxlen& "charactor")

'################# Count MENU #########################
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open "PILT_ODBC","prod","prod"
Set ObjRScount_nenu=Server.CreateObject("ADODB.Recordset")
sql_count_menu="SELECT count(MENU_NAME) FROM MENU_MAPIC"
Set ObjRScount_nenu = ObjDB.Execute (sql_count_menu)
menu_total=ObjRScount_nenu(0)

menu_chk_f=array(menu_total)
'Response.write(typename(menu_total))
'################# Insert MENU #########################
IF submit="INSERT" then
menu_chk_f0=CInt(Request.form("menu_chk"))
menu_chk_f1=CInt(Request.form("menu_chk1"))
menu_chk_f2=CInt(Request.form("menu_chk2"))
menu_chk_f3=CInt(Request.form("menu_chk3"))
menu_chk_f4=CInt(Request.form("menu_chk4"))
menu_chk_f5=CInt(Request.form("menu_chk5"))
menu_chk_f6=CInt(Request.form("menu_chk6"))
menu_chk_f7=CInt(Request.form("menu_chk7"))
menu_chk_f8=CInt(Request.form("menu_chk8"))
menu_chk_f9=CInt(Request.form("menu_chk9"))
menu_chk_f10=CInt(Request.form("menu_chk10"))
menu_chk_f11=CInt(Request.form("menu_chk11"))
menu_chk_f12=CInt(Request.form("menu_chk12"))
menu_chk_f13=CInt(Request.form("menu_chk13"))
menu_chk_f14=CInt(Request.form("menu_chk14"))
menu_chk_f15=CInt(Request.form("menu_chk15"))
menu_chk_f16=CInt(Request.form("menu_chk16"))
menu_chk_f17=CInt(Request.form("menu_chk17"))
menu_chk_f18=CInt(Request.form("menu_chk18"))
menu_chk_f19=CInt(Request.form("menu_chk19"))
menu_chk_f20=CInt(Request.form("menu_chk20"))
menu_chk_f21=CInt(Request.form("menu_chk21"))
menu_chk_f22=CInt(Request.form("menu_chk22"))
menu_chk_f23=CInt(Request.form("menu_chk23"))
menu_chk_f24=CInt(Request.form("menu_chk24"))
menu_chk_f25=CInt(Request.form("menu_chk25"))

Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open "PILT_ODBC","prod","prod"
Set ObjRSinsert=Server.CreateObject("ADODB.Recordset")
dim j
for j=0 to i
Select Case j
case "0"
sql_insert0=" INSERT INTO ASSIGN_GROUP1( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f0&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert0)
case "1"
sql_insert1=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f1&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert1)
case "2"
sql_insert2=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f2&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert2)
case "3"
sql_insert3=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f3&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert3)
case "4"
sql_insert4=" INSERT INTO ASSIGN_GROUP1( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f4&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert4)
case "5"
sql_insert5=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f5&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert5)
case "6"
sql_insert6=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f6&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert6)
case "7"
sql_insert7=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f7&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert7)
case "8"
sql_insert8=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f8&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert8)
case "9"
sql_insert9=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f9&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert9)
case "10"
sql_insert10=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f10&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert10)
case "11"
sql_insert11=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f11&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert11)
case "12"
sql_insert12=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f12&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert12)
case "13"
sql_insert13=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f13&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert13)
case "14"
sql_insert14=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f14&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert14)
case "15"
sql_insert15=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f15&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert15)
case "16"
sql_insert16=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f16&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert16)
case "17"
sql_insert17=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f17&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert17)
case "18"
sql_insert18=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f18&" ') "
Set ObjRSinsert = ObjDB.Execute (sql_insert18)

case "19"
sql_insert19=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f19&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert19)
case "20"
sql_insert20=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f20&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert20)
case "21"
sql_insert21=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f21&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert21)
case "22"
sql_insert22=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f22&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert22)
case "23"
sql_insert23=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f23&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert23)

case "24"
sql_insert24=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f24&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert24)
case "25"
sql_insert25=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f25&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert25)
End Select
Next

Response.write"<meta http-equiv = 'refresh' content = '1; url= details.asp?groupno="&group_no_f&"'>"

'################# Update MENU #########################

Elseif submit="UPDATE" then

menu_chk_f0=CInt(Request.form("menu_chk"))
menu_chk_f1=CInt(Request.form("menu_chk1"))
menu_chk_f2=CInt(Request.form("menu_chk2"))
menu_chk_f3=CInt(Request.form("menu_chk3"))
menu_chk_f4=CInt(Request.form("menu_chk4"))
menu_chk_f5=CInt(Request.form("menu_chk5"))
menu_chk_f6=CInt(Request.form("menu_chk6"))
menu_chk_f7=CInt(Request.form("menu_chk7"))
menu_chk_f8=CInt(Request.form("menu_chk8"))
menu_chk_f9=CInt(Request.form("menu_chk9"))
menu_chk_f10=CInt(Request.form("menu_chk10"))
menu_chk_f11=CInt(Request.form("menu_chk11"))
menu_chk_f12=CInt(Request.form("menu_chk12"))
menu_chk_f13=CInt(Request.form("menu_chk13"))
menu_chk_f14=CInt(Request.form("menu_chk14"))
menu_chk_f15=CInt(Request.form("menu_chk15"))
menu_chk_f16=CInt(Request.form("menu_chk16"))
menu_chk_f17=CInt(Request.form("menu_chk17"))
menu_chk_f18=CInt(Request.form("menu_chk18"))
menu_chk_f19=CInt(Request.form("menu_chk19"))
menu_chk_f20=CInt(Request.form("menu_chk20"))
menu_chk_f21=CInt(Request.form("menu_chk21"))
menu_chk_f22=CInt(Request.form("menu_chk22"))
menu_chk_f23=CInt(Request.form("menu_chk23"))
menu_chk_f24=CInt(Request.form("menu_chk24"))
menu_chk_f25=CInt(Request.form("menu_chk25"))
'================= ลบข้อมูลเก่าออก ==========================
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open "PILT_ODBC","prod","prod"
Set ObjRSdel=Server.CreateObject("ADODB.Recordset")
sql_del="DELETE FROM ASSIGN_GROUP1 WHERE GROUP_NO='"&group_no_Int&"' "
Set ObjRSdel = ObjDB.Execute (sql_del)

'=======================================================
for j=0 to i

Select Case j
case "0"
sql_insert0=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f0&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert0)
case "1"
sql_insert1=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f1&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert1)
case "2"
sql_insert2=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f2&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert2)
case "3"
sql_insert3=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f3&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert3)
case "4"
sql_insert4=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f4&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert4)
case "5"
sql_insert5=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f5&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert5)
case "6"
sql_insert6=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f6&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert6)
case "7"
sql_insert7=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f7&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert7)
case "8"
sql_insert8=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f8&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert8)
case "9"
sql_insert9=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f9&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert9)
case "10"
sql_insert10=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f10&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert10)
case "11"
sql_insert11=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f11&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert11)
case "12"
sql_insert12=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f12&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert12)
case "13"
sql_insert13=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f13&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert13)
case "14"
sql_insert14=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f14&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert14)
case "15"
sql_insert15=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f15&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert15)
case "16"
sql_insert16=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f16&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert16)
case "17"
sql_insert17=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f17&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert17)
case "18"
sql_insert18=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f18&" ') "
Set ObjRSinsert = ObjDB.Execute (sql_insert18)

case "19"
sql_insert19=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f19&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert19)
case "20"
sql_insert20=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f20&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert20)
case "21"
sql_insert21=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f21&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert21)
case "22"
sql_insert22=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f22&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert22)
case "23"
sql_insert23=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f23&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert23)

case "24"
sql_insert24=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f24&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert24)
case "25"
sql_insert25=" INSERT INTO ASSIGN_GROUP1 ( GROUP_NO,MENU_NO ) values ('"&group_no_f&"','"&menu_chk_f25&" ') "

Set ObjRSinsert = ObjDB.Execute (sql_insert25)
End Select
Next

Response.write"<meta http-equiv = 'refresh' content = '1 ; url= details.asp?groupno="&group_no_f&"'>"
end if
%>
<%End If%>

Tag : - - - -

Date : 25 ต.ค. 2548 09:05:39

By : ko

View : 2354

Reply : 1

No. 1

Guest

จะช่วยไงดีเนียมันเยอะจัด

Date : 25 ต.ค. 2548 09:29:39

By : อิอิ

ค้นหาข้อมูล

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

Re : *****ผู้รู้ช่วยตอบด่วนครับ **** concept details.asp ผมต้องการทำ form โดยใช้ checkbox แบบไม่จำกัด Element ใน Array (เดิมจำกัดไว้ 25 )

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

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

Load balance : Server 03

Registered : 109,038

No. 1

ค้นหาข้อมูล

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

Notice