ASP+ADO實現資料讀寫簡單樣本
來源：互聯網
上載者：User
//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>
