asp简单写入access数据库

作者:LuckyMoke 时间:2012-06-20

前台页面

小小酥的宅路历程
代码如下

<body>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath( "count.mdb")
%>
<form name="form1" method="post" action="tj.asp">
年龄 
 <input type="text" name="nl"><br>
姓名 
<input type="text" name="xm"><br>
    省份
    <select name="sf">
    <option value="山西省">山西省</option>
        <option value="河南省">河南省</option>
        <option value="江西省">江西省</option>
     </select><br />
     <input type="submit" name="Submit" value="添加">
<input type="reset" name="Submit2" value="重置">
</form>
<table width="500" border="1" style= "border-collapse:   collapse " bordercolor="#0">
  <tr>
    <td align="center" bgcolor="#CCFFFF">序号</td>
    <td align="center" bgcolor="#99CCFF">年龄</td>
    <td align="center" bgcolor="#99CCFF">姓名</td>
    <td align="center" bgcolor="#99CCFF">省份</td>
  </tr>
<%

     sql="select  * from mz"
     set rs=conn.execute(sql)
     i=1
        do while not rs.eof
          s="<tr><td>"&i&"</td><td>"&rs("nl")&"</td><td>"&rs("xm")&"</td><td>"&rs("sf")&"</td></tr>" 
          response.Write(s)
          i=i+1
           rs.movenext
        loop
%>
</table>
</body>

提交后页面

小小酥的宅路历程

代码如下

<body>
<%
 set conn=server.createobject("adodb.connection")
 conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("count.mdb")
%>
<%
 nl=request.form("nl")
 xm=request.form("xm")
 sf=request.Form("sf")
 Dim rsadd
 set rsadd=server.CreateObject("adodb.recordset")
 rsadd.Open "select * from mz",conn,1,3
 rsadd.AddNew
 rsadd("nl")=nl
 rsadd("xm")=xm
 rsadd("sf")=sf
 rsadd.Update
 rsadd.Close
 set rsadd=nothing 
 response.write "添加完成!"
%>
<script type="text/javascript">
if(document.referrer){
 var str = document.referrer;
 str = '<a href="'+ str + '">返回上一页</a>';
 document.write(str);
}
</script>
</body>

这是最简单的添加数据库了!嘿嘿!


Tips

GitHubLuckyMoke

Weibokeailvyou

QQ839488083

米拓交流群

模板有不完善的地方欢迎指正!

1511438794807394.jpg