<%
set conn=Server.CreateObject("ADODB.CONNECTION")
connstr="Provider=Microsoft.Jet.OLEDB.4.0data Source=" &Server.MapPath("data.mdb")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [信息]" '数据库的表名为信息
rs.open sql,conn,1,3 '执行SQL 并打开数据集
rs.addnew '用记录集新添加一条数据
C_Name=request("Name") '请求表单的变量，定义变量为c，这里接收C变理
rs("Name")=C_Name '将请求到的表单值传向记录集中代表Name字段的名称
'别的内容。如学号之类的地方同上
rs.update '更新一下数据库中的数据。
rs.close '关闭记录集
set rs=nothing '销毁记录集
conn.close '关闭数据库连接
set rs=nothing '销毁数据库连接
%>
上面是添加数据
下面是显示数据
<%
set conn=server.createobject("adodb.connection")
c&server.mappath("data.mdb") '这个就是数据库
conn.open connstr
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td scope="col"><div align="center">姓名</div></td>
<td scope="col"><div align="center">学号</div></td>
<td scope="col"><div align="center">工作地点</div></td>
<td scope="col"><div align="center">工作行业</div></td>
<td scope="col"><div align="center">手机</div></td>
<td scope="col"><div align="center">QQ</div></td>
<td scope="col"><div align="center">阴历生日</div></td>
<td scope="col"><div align="center">阳历生日</div></td>
<td scope="col"><div align="center">个人网址等</div></td>
<td scope="col"><div align="center"></div></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [信息]" '数据库的表名为信息
rs.open sql,conn,1,1 '执行SQL 并打开数据集
do while not rs.eof
%>
<tr>
<%
response.write("<td>" &rs("Name") &"</td>") '这儿显示的名字
'下面分别显示别的信息。我就不写了。你自己添上去就行了
%>
</tr>
<%
rs.movenext
loop
rs.close '关闭记录集
set rs=nothing '销毁记录集
conn.close '关闭数据库连接
set rs=nothing '销毁数据库连接
%>
</table>
表单代码：<form method="POST" action="insert.asp">
<input type="text" name="txt1" size="20">
<input type="submit" value="提交" name="B1">
<input type="reset" value="重置" name="B2">
</form>
提交到的insert.asp代码：
<%
dim idtoo
idtoo=trim(request("txt1"))
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)}dbq="&server.MapPath("./db/#db1.mdb")
mystr="insert into temp(idtoo)values('"&idtoo&"')"
Conn.execute(mystr)
%>
您好，代码如下：第一个页面，命名如：add.asp，代码内容（实际上是html页）：
<html>
<head>
<title>提交页面</title>
</head>
<body>
<form action="addsave.asp" method="post" name="add">
<table width="450" border="0" align="center" cellpadding="2" cellspacing="0">
<tr>
<td height="40" colspan="2" align="center"><span class="text3"><strong>填写</strong></span></td>
</tr>
<tr>
<td width="124"><P style="MARGIN-TOP: 2pxMARGIN-LEFT: 80px">姓名</p></td>
<td width="318"><input name="name" type="text" id="name"></td>
</tr>
<tr align="center">
<td colspan="2"><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重填"></td>
</tr>
</table>
</form>
</body>
</html>
----------------------------------
第二个页面，叫addsave.asp，代码内容：
<%@LANGUAGE="VBScript" codepage="936"%>
<%
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.jet.oledb.4.0data source="&server.mappath("db1.mdb")
conn.open connstr
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select name from 1"
rs.open sql,conn,1,3
rs.addnew
name=request.form("name")
rs("name")=name
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
%>
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）