 |
|
จาก search_Stu_asset
<form action="show_stu_asset.asp" method="post" name="frmSearch" id="frmSearch" onSubmit="return checkFields2();" >
<table width="618" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td> <div align="center"><strong><font color="#FFFFFF" size="3">-::
ค้นหาผู้ที่ได้รับทุน ::-</font></strong></div></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td width="174"> </td>
<td width="17"> </td>
<td width="271"> </td>
<td width="156"> </td>
</tr>
<tr bgcolor="#0066CC">
<td><div align="right"><font color="#FFFFFF" size="1" face="MS Sans Serif, Tahoma, sans-serif">ค้นหาจาก</font></div></td>
<td><div align="center"><font size="1" face="MS Sans Serif, Tahoma, sans-serif">::
</font></div></td>
<td><select name="cboSearch" id="cboSearch" >
<option value="1">รหัสนักศึกษา</option>
<option value="2">ชื่อทุน</option>
<option value="3">สาขา</option>
<option value="4">ชั้นปี</option>
<option value="5">ชื่อนักศึกษา</option>
</select></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td><div align="right"><font color="#FFFFFF" size="1" face="MS Sans Serif, Tahoma, sans-serif">สถานะทุน</font></div></td>
<td><div align="center"><font size="1" face="MS Sans Serif, Tahoma, sans-serif">::
</font></div></td>
<td><font size="1" face="MS Sans Serif, Tahoma, sans-serif">
<input name="Institute" type="radio" value="1" checked>
<font color="#FFFFFF">ทุนใหม่ </font>
<input name="Institute" type="radio" value="2" checked>
<font color="#FFFFFF"> ทุนเก่า<font color="#FFFF00"> (จากโรงเรียนเดิม)</font></font></font></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td><div align="right"><font color="#FFFFFF" size="1" face="MS Sans Serif, Tahoma, sans-serif">ป้อนรายการที่ต้องการค้นหา</font></div></td>
<td><div align="center"><font size="1" face="MS Sans Serif, Tahoma, sans-serif">::
</font></div></td>
<td><input name="txtSearch" type="text" id="txtSearch"></td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td><div align="center"></div></td>
<td> </td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td><input name="cmdSearch" type="submit" id="cmdSearch" value="ทำการค้นหา">
<input name="cmdCancel" type="reset" id="cmdCancel" value="ยกเลิก">
</td>
<td> </td>
</tr>
<tr bgcolor="#0066CC">
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form></td>
..........................................................จบ......................................................................
จาก show_stu_asset.asp ทำการเรียกใช้
<%
txtSearch= Request.Form("txtSearch")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("/Student_Affairs/Database/Affairs.mdb")
Set RSFind =Server.CreateObject("ADODB.Recordset")
Set RSFind1=Server.CreateObject("ADODB.Recordset")
if Request.Form("Institute")=1 then
SQLCheck = "select * from QrSearchAsset "
Select Case Request.Form("cboSearch")
Case 1
SQLCheck= SQLCheck&" WHERE (StudentID LIKE '%" & txtSearch & "%') "
Case 2
SQLCheck= SQLCheck& " WHERE (Expr1 LIKE '%" & txtSearch & "%') "
Case 3
SQLCheck= SQLCheck&" WHERE (Asd_name LIKE '%" & txtSearch & "%') "
Case 4
SQLCheck= SQLCheck& " WHERE (Major_Thai_Name LIKE '%" & txtSearch & "%') "
Case 5
SQLCheck= SQLCheck& " WHERE (Class LIKE '%" & txtSearch & "%') "
End Select
' SQLCheck= SQLCheck&" WHERE (Institute "&1&") "
elseif Request.Form("Institute")=2 then
SQLCheck = "select * from QrSearchAsset1 "
Select Case Request.Form("cboSearch")
Case 1
SQLCheck= SQLCheck&" WHERE (StudentID LIKE '%" & txtSearch & "%') "
Case 2
SQLCheck= SQLCheck& " WHERE (Expr1 LIKE '%" & txtSearch & "%') "
Case 3
SQLCheck= SQLCheck&" WHERE (Asd_name LIKE '%" & txtSearch & "%') "
Case 4
SQLCheck= SQLCheck& " WHERE (Major_Thai_Name LIKE '%" & txtSearch & "%') "
Case 5
SQLCheck= SQLCheck& " WHERE (Class LIKE '%" & txtSearch & "%') "
End Select
SQLCheck= SQLCheck&" WHERE (Institute '&2&') "
end if
RSFind.Open SQLCheck,Conn,1,3
If RSFind.recordcount < 1 Then
Response.Write "<div align=center>ไม่พบ...ข้อมูล กรุณาเลือกใหม่อีกครั้ง<br><br>"
Response.Write "<a href=javascript:history.back(1)>ย้อนกลับ</a></div><br>"
Response.End
End If
i=1
while not RSFind.eof
%>
.......................................โค้ด HTML...................................................................................
<%
i=i+1
RSFind.movenext
wend
Set RSFind = Nothing
Conn.Close
Set Conn = Nothing
%>
</body>
*************************คือ เงื่อนไขติดตรง Case ครับ ไม่รู้จะทำไงดี*******************************
******************************************ช่วยที่นะครับ************************************************
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
4 ธ.ค. 2548 12:01:56 |
By :
AkeInta |
View :
2226 |
Reply :
3 |
|
 |
 |
 |
 |
|
|
|
|
 |
Load balance : Server 01
