查人人中国名人网牛肉塔塔做法:我的一个ASP页面怎么实现写入数据库啊?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 04:11:51
数据库叫"db.mdb"表叫"person",谢谢了,我只有15分了
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>姓名</title>
</head>
<body>
<div align="left">
<table border="0" width="400" id="table1">
<tr>
<td>姓名</td>
<td><input type="text" name="T1" size="20"></td>
</tr>
<tr>
<td>年龄</td>
<td><input type="text" name="T2" size="20"></td>
</tr>
<tr>
<td>性别</td>
<td><select size="1" name="D1">
<option>男</option>
<option>女</option>
</select></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="保存" name="B1"><input type="submit" value="清空" name="B2"></td>
</tr>
</table>
</div>
</body>
</html>
原文件(已修改过,请看注释):
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>姓名</title>
</head>
<body>
<div align="left">
<form name="form1" action="addnew.asp" method="post" ><!--新增了一个表单-->
<table border="0" width="400" id="table1">
<tr>
<td>姓名</td>
<td><input type="text" name="T1" size="20"></td>
</tr>
<tr>
<td>年龄</td>
<td><input type="text" name="T2" size="20"></td>
</tr>
<tr>
<td>性别</td>
<td><select size="1" name="D1">
<option>男</option>
<option>女</option>
</select></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="保存" name="B1"><input type="submit" value="清空" name="B2"></td>
</tr>
</table>
</form>
</div>
</body>
</html>
addnew.asp 用于将数据插入数据的文件
<%
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("./") & "\db.mdb"
set rs=server.createobject("adodb.recordset")
fname=request.Form("name")
fage=request.Form("age")'注意,假设数据库中的数据类型为"数字型"的
fsex=request.Form("sex")
sql="insert into person values('"&fname&"',"&age&",'"&sex&"')"
rs.open sql,conn
if err.number<>0 then
response.write(err.Description)
else
response.write("插入成功!")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
1、你的表单应包含在<form></form>中并且，性别中的两个option要指定值
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>姓名</title>
</head>
<body>
<div align="left">
<form name="form1" action="save.asp" method="POST">
<table border="0" width="400" id="table1">
<tr>
<td>姓名</td>
<td><input type="text" name="T1" size="20"></td>
</tr>
<tr>
<td>年龄</td>
<td><input type="text" name="T2" size="20"></td>
</tr>
<tr>
<td>性别</td>
<td><select size="1" name="D1">
<option value="男">男</option>
<option value="女">女</option>
</select></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" value="保存" name="B1"><input type="submit" value="清空" name="B2"></td>
</tr>
</table>
</form>
</div>
</body>
</html>
2、以下是save.asp
<%name=trim(request.form("T1"))
age=trim(request.form("T2"))
sex=trim(request.form("D1"))
dim conn,db
dim connstr
db="db.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sql="select * from person"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.addnew
rs["name"]=neme '其中name是person的字段
rs["age"]=age '同上
rs["sex"]=sex '同上
rs.update
rs.close
set rs=nothing
set conn=nothing
%>
先连接数据库,得到conn对象
Dim strSql
strSql =
"INSERT INTO 表名(姓名，年龄，性别) VALUES('"& Request.Form("T1")&"','"&Request.Form("T2")&"','"& Request.Form("D1")&"')"
执行conn.Execute(strSql)后将记录加入数据库中