菜鸟:数据库写入

xk8023ppt 2009-08-04 10:56:54
add。asp
<!--#include file="conn.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
<!--#include file="conn.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
高手指点 谢了 急等
...全文
64 点赞 收藏 8
写回复
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")
回复
renzaijiang 2009-08-04
这是权限问题 如果没语法错误的话
回复
xk8023ppt 2009-08-04
Microsoft VBScript 编译器错误 '800a0400'

缺少语句

\adddata.asp, line 4
回复
lzp4881 2009-08-04
rs.Open "men",conn,3,3
改成
rs.Open "select * from men",conn,3,3
回复
renzaijiang 2009-08-04
加点分吧 我大概知道什么问题
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告