ASP+ADO实现数据读写简单示例
ASP+ADO实现数据读写简单示例 //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>
