01.<a href="figth1.asp?m=1">ŧ¢éÍÁÙÅ</a>
02.<a href="figth1.asp?m=2">áÊ´§</a>
03.<%
04.Set cc = Server.CreateObject("ADODB.Connection")
05.cc.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("figth1.mdb")
06.
07.if request ("m")=1 then
08. input()
09. end if
10.if request ("m")=2 then
11. show()
12. end if
13.
14.
15.
16.
17. %>
18. <from>
19. <form method="get" onsubmit="javascript:alert('à¾ÔèÁ¢éÍÁÙÅáÅéÇ');" >
20. ÃËÑÊ:: <input maxlength="250" type="text" name="id" /><br>
21. ª×èÍ:: <input maxlength="250" type="text" name="name" /><br>
22. Çѹà¡Ô´:: <input maxlength="250" type="text" name="day" /><br>
23. ·ÕèÍÂÙè:: <input maxlength="250" type="text" name="add" /><br>
24. <input type="hidden" name="m" value="1">
25. <input type="submit" name="insert"/><input type="reset" name="reset"/>
26. </form>
27.
28. <%
29.
30. sub input()
31. if request("add")<>"" then
32. x="insert into TT(id,name_id,brigthday,adress) values('"&request("id")&"','"&request("name")&"','"&request("day")&"','"&request("add")&"') "
33. Set rs=cc.execute(x)
34. end if
35.
36. end sub
37.sub show()
38.%>
39.<%
40.
41. z="select * from TT"
42. set rs=conn.execute(z)
43.
44.
45.%>
46. <table border="1">
47.
48. <tr><td>ÃËÑÊ:</td> <td>ª×èÍ:</td> <td>ÃÒ¤Ò«×éÍ</td> <td>ÃÒ¤Ò¢ÒÂ:</td> <td>¨Ó¹Ç¹:</td> </tr>
49.
50. <%do while not rs.eof%>
51.
52. <tr>
53. <td width="100"higth="100" > <%=rs("id")%> </td>
54. <td width="100"higth="100" > <%=rs("name_id")%> </td>
55. <td width="170" higth="170"> <%=rs("brigthday")%> </td>
56. <td width="180" higth="180"> <%=rs("adress")%> </td>
57. </table> </tr>
58. <%
59. rs.movenext
60. loop
61. %>
62.
63. <%
64.
65. rs.close
66.end sub
67.%>
