//showdata.asp
<%@ language="vbscript" codepage="936" %>
<html>
<head>
<title>[show the data]</title>
</head>
<body>
<%
Application.Lock()
set dataConnect = Server.CreateObject("ADODB.Connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="_
&Server.MapPath("db1.mdb")&_
";Persist Security Info=True"
dataConnect.Open(strConnect)
if Request.Form("name") <> "" or Request.Form("phone") then
sqlInsertcmd = "insert into table1(name,phone) values('"_
&Request.Form("name")&"','"&Request.Form("phone")&"')"
dataConnect.Execute(sqlInsertcmd)
end if
set dbtabptr = Server.CreateObject("ADODB.Recordset")
dbtabptr.ActiveConnection = dataConnect
strSql = "select * from table1"
dbtabptr.Open(strSql)
Response.Write("<table width='100%' border='1'>")
Response.Write("<tr>")
Response.Write("<th>name</th>")
Response.Write("<th>phone</th>")
dbtabptr.MoveFirst()
do until dbtabptr.EOF
Response.Write("<tr>")
Response.Write("<td>")
Response.Write(dbtabptr("name"))
Response.Write("</td>")
Response.Write("<td>")
Response.Write(dbtabptr("phone"))
Response.Write("</td>")
Response.Write("</tr>")
dbtabptr.MoveNext()
loop
Response.Write("</tr>")
Response.Write("</table>")
dataConnect.Close()
Application.UnLock()
%>
<a href="addData.asp">Add a Data to Database</a>
</body>
</html>
// addData.asp
<%@ language="vbscript" codepage="936" %>
<html>
<head>
<title>[Add data]</title>
</head>
<body>
<form name="adddata" action="showData.asp" method="post">
<table>
<tr>
<td align="right">name:</td>
<td><input name="name" type="text" /></td>
</tr>
<tr>
<td align="right">phone:</td>
<td><input name="phone" type="text" /></td>
</tr>
<tr>
<td><input name="submit" type="submit" value="submit" /></td>
<td><input name="reset" type="reset" value="reset" /></td>
</tr>
</table>
</form>
</body>
</html>
