关于用ASP制作资料录入的数据源代码

如果你加分的话[我可以帮你写代码哈]

<%

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>

Set rs = Server.CreateObject("ADODB.Connection")

不对

rs要用Server.CreateObject("ADODB.recordset")

set rs = Server.CreateObject("ADODB.recordset")

连接数据库才用 Server.CreateObject("ADODB.Connection")

---