ASP+ADO实现数据读写简单示例
日期：2014-02-23 浏览次数：20754 次
//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.as
<%@ 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.as
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
