 |
|
คือผมต้องการให้มีปุ่ม button เมื่อคลิกแล้วให้มี msgbox ยืนยันการลบก่อน อันเดิมผมสั่งลบ โดยถ้าเงื่อนไขตรงมันก็ลบเลย ผมมี code สั่งลบประมาณนี้นะครับ
<%...
.write "<form method=post action='del_book.asp?id=" & Request.QueryString("id") & "&book_id=" & rs("book_id") & "'>"
.write "<input type=submit value=' ลบ '>"
.write "</td></form>"
...%>
code การลบ
<!--#include file="conn.asp" -->
<%
set rs=server.CreateObject("ADODB.recordset")
set rsc=server.CreateObject("ADODB.recordset")
set rs_c=server.CreateObject("ADODB.recordset")
sql="select * from book where book_id='" & Request.QueryString("book_id") & "'"
sql_c="select * from rent_book where book_id='" & Request.QueryString("book_id") & "'"
sqlc="select * from q_rent where book_id='" & Request.QueryString("book_id") & "' and status_n like '%ยืม%'"
rsc.Open sqlc,adoCon,0,3,512
if not rsc.eof then
with response
.write "<br><br><center><u><b>ไม่สามารถลบข้อมูลได้</u></b><br><br>"
.write "ยังมีรายการยืมอยู่ "&rsc("f_name") & " " & rsc("l_name") & "กำหนดส่ง " & datePart("d",rsc("limit_in")) & " " &monthname(datePart("m",rsc("limit_in")))&" "&year(rsc("limit_in"))+543 & "<br><br>"
.write "<br><a href='default.asp?id=" & Request.QueryString("id") & "'>กลับ</a>"
end with
else
rs.Open sql,adoCon,0,3,512
rs_c.Open sql_c,adoCon,0,3,512
rs_c.delete
rs.delete
adoCon.close
set adoCon = nothing
set rs = nothing
set rs_c = nothing
with response
.write "<body background='image\bgx.gif'>"
.write "<center><br><br><b>ลบข้อมูลเรียบร้อยแล้ว<br><br>"
.write "<a href='default.asp?id="& Request.QueryString("id") & "'>กลับ</a>"
.write "</body>"
end with
end if
%>
รบกวนช่วยแนะนำหน่อยนะครับ
Tag : - - - -
|
|
|
 |
 |
 |
 |
| Date :
14 ก.ค. 2548 11:07:00 |
By :
ttt |
View :
3168 |
Reply :
0 |
|
 |
 |
 |
 |
|
|
|
|
 |
