This document was uploaded by user and they confirmed that they have the permission to share
it. If you are author or own the copyright of this book, please report to us by using this DMCA
report form. Report DMCA
else book =" insert into book(b_id,b_name,price,auther,page)
values('"&request("b_id")&"','"&request("b_name")&"',"&request("price")&",'"&reque st("auther")&"','"&request("page")&"')" set rs=conn.execute(book) response.write "
�ѹ�֡����
" end if end sub '������˹ѧ��� '����a��������Ҫ sub add_cus() if request("cus_id")=""then %>
������Ҫ
<%
else customer =" insert into customer(cus_id,name,address,phone)
values('"&request("cus_id")&"','"&request("name")&"','"&request("address")&"','"&r equest("phone")&"')" set rs1=conn.execute(customer) response.write"
�ѹ�֡����
" end if end sub '�����������Ҫ '���a����� sub ren()
if request("date")=""then %>
������˹ѧ���
<% else
ren1 =" insert into ren
values('"&request("date")&"','"&request("cus_id")&"','"&request("b_id")&"','"&requ est("unit")&"','"&request("total")&"','"&request("emp_id")&"')" 'response.write ren1 set rs2=conn.execute(ren1) end if end sub '�����a�����
response.write"
�ѹ�֡����
"
'����a�ä ˹ѧ��� sub returnn() if request("cus_id")=""then %>
��ä ˹ѧ���
<% else
return =" insert into
return
values('"&request("date")&"','"&request("cus_id")&"','"&request("b_id")&"','"&requ est("unit")&"','"&request("overtime")&"','"&request("pay")&"','"&request("emp_id") &"')" 'response.write return set rs3=conn.execute(return) response.write"
�ѹ�֡����
" end if end sub '����ä ˹ѧ��� conn.close %> <% sub del 'if request("del")=1 then deld="delete from book where b_id='"&request("delb_id")&"'" ' response.write deld set p=conn.execute(deld) ' end if end sub
sub edit show="select b_id,b_name,price,auther,page from book where b_id='"&request("delb_id")&"'" set p=conn.execute(show) %>
���͡��¡�÷��� ������
����˹ѧ���
<%=p("b_id") %>
edit
����˹ѧ���
<%=p("b_name") %>
edit
�Ҥ�˹ѧ���
<%=p("price") %>
edit
�����
<%=p("auther") %>
edit
�ӹǹ˹��
<%=p("page") %>
edit
p.close
<%
end sub
sub show_book ' if request("del")=1 then ' del="delete from book where b_id='"&request("delbook")&"'" 'set p=conn.execute(del) ' end if show="select*from book" set p=conn.execute(show) %>
set p=conn.execute(a) 'response.write a end if if request ("edi")=2 then if request("ed")=1 then response.write "ddddddddddd" end if showedi="select date,cus_id,b_id,unit,total,emp_id from ren where b_id='"&request("id")&"'" set p=conn.execute(showedi) %>
<% sub show_return if request("del")=1 then ' a="delete from customer where return_id='"&request("delreturn")&"'" a="delete from return where cus_id='"&request("delcus")&"'" set p=conn.execute(a) end if show="select*from return" set p=conn.execute(show) %>
<% sub show_cus if request("del")=1 then 'a="delete from customer where cus_id='"&request("delcustomer")&"'" a="delete from customer where cus_id='"&request("delcus")&"'" set p=conn.execute(a) end if show="select*from customer" set p=conn.execute(show) %>