01.<center>
02.<font color="#008080" size="13">¡ÒèѴ¡ÒÃÊÔ¹¤éÒ </font> </a>
03.<br><hr>
04.<a href="?m=1">à¾ÔèÁ¢éÍÁÙÅÊÔ¹¤éÒ</a><br>
05.<a href="?m=2">áÊ´§ÃÒ¡ÒÃÊÔ¹¤éÒ</a><br>
06.
07.</center>
08.
09.<%
10.Set Dt = Server.CreateObject("ADODB.Connection")
11.Dt.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Dtb.mdb")
12.
13.
14.if request("m")=1 then
15. input()
16. end if
17.if request("m")=2 then
18. show()
19. end if
20.
21.
22.sub input()
23. if request("price")<>"" then
24.
25. zz="insert into PRC (ID,name_price,name_price,price_buy,price_sell,price_number) values ('"&request("id")&"','"&request("name_price,")&"','"&request("price_buy")&"','"&request("price_sell")&"',"&request("price_number")&"') "
26. set s=Dt.execute(zz)
27.
28. end if
29.
30.
31. %>
32.<hr>
33. <form onSubmit="return checkrequired(this)" >
34. ÃËÑÊ::<input type="text" name="id" maxlength="11"><br>
35. ª×èÍ::<input type="text" name="name_price"><br>
36. ÃÒ¤Ò«×éÍ::<input type="text" name="price_buy"><br>
37. ÃÒ¤Ò¢ÒÂ::<input type="text" name="price_sell"><br>
38. ¨Ó¹Ç¹·Õè«×éÍÁÒ ::<input type="text" name="price_number"><br>
39.
40. <input type="hidden" name="m" value="2">
41. <input type=submit value="µ¡Å§"> <input type=reset value="Reset">
42.
43. </from>
44.
45. <%end sub%>
46. <%
47. sub show()
48.
49. z="select * from PRC"
50. set ff=Dt.execute(z)
51.
52. do while not ff.eof
53.%>
54. <table>
55. <tr>
56. <td width="100" align="right"><%=s("ID")%></td>
57. <td width="150" align="left"><%=s("name_price")%></td>
58. <td width="170" align="right"><%=s("price_buy")%></td>
59. <td width="180" align="left"><%=s("price_sell")%></td>
60. <td width="180" align="left"><%=s("price_number")%></td>
61. <tr><td colspan="2"><center><input type="submit" name="edit" value="á¡éä¢"></center></td></tr>
62. <input type="hidden" name="m" value="1">
63.
64.
65.
66. <%
67. s.movenext
68. loop
69. %>
70. </tr>
71. </table>
72.
73. <%
74. ff.close '¶éÒ select ¨Ðµéͧ»Ô´àÊÁÍ
75.end sub
76.
77.%>
78.
79.
80.
81.
