菜鸟：数据库写入

xk8023ppt 2009-08-04 10:56:54

add。asp

<html>
<head> <title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#FFFFFF"><p align="center"><font size="5">添加信息</font></p>
<form method="post" action="adddata.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">制表人： </div>
</td>
<td width="72%">
<input type="text" name="name">
</td>
</tr><tr>
<td width="28%">
<div align="right">手机长号： </div>
</td>
<td width="72%">
<input type="text" name="long">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">手机短号： </div>
</td>
<td width="72%">
<input type="text" name="short">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">身份证号： </div>
</td>
<td width="72%">
<input type="text" name="num">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">家庭住址： </div>
</td>
<td width="72%">
<input type="text" name="add">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
adddata.asp

<%
name = Request("name")
long = request("long")
short = request("short")
num = request("num")
add = request("add")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "men",conn,3,3
rs.AddNew
rs("mname") = name
rs("mlong") = long
rs("mshort") = short
rs("mnum") = num
rs("madd") = add
rs.Update
conn.close
set conn=nothing
response.redirect("add.asp")
%>
conn.asp
<%
set conn=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("logistics.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>
我的数据怎么写不进去啊
我的数据库名logistics.mdb
我要把数据写如men表
men表有mname mlong mshort mnun madd
高手指点谢了急等

...全文

85 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

xk8023ppt 2009-08-04

打赏
举报

还是不可以
怎么办啊

hookee 2009-08-04

打赏
举报

long = 改成 sLong = Request("long")

有报错吗？

xk8023ppt 2009-08-04

打赏
举报

还是不可以啊

sumjor 2009-08-04

打赏
举报

name = Request("name")
long = request("long")
short = request("short")
num = request("num")
add = request("add")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from 表 where id is null"
rs.Open sql,conn,1,3
rs.AddNew
rs("mname") = name
rs("mlong") = long
rs("mshort") = short
rs("mnum") = num
rs("madd") = add
rs.Update
conn.close
set conn=nothing
response.redirect("add.asp")