ส่วนscript ลบข้อมุลหลังกดsubmit
<%
chkdel=request.form("checkboxdel")
If chkdel<>"" Then
Set rs=Server.CreateObject("ADODB.Recordset")
pos=1
finish=false
While Not finish
i=instr(pos,chkdel,",")
If cint(i)=0 Then
id=mid(chkdel,pos)
finish=true
else
id=mid(chkdel,pos,i-pos)
End If
sql="delete from tbstudent where student_id="& id
rs.Open sql,Conn,1,3
pos=pos+len(id)+1
Wend
Load balance : Server 04
