28,405
社区成员
发帖
与我相关
我的任务
分享菜鸟提问
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
高手指点 谢了 急等
<!--#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
高手指点 谢了 急等
...全文
请发表友善的回复…
发表回复
lzp4881 2009-08-04
- 打赏
- 举报
rs.Open "select * from men",conn,3,3
rs.AddNew
rs.AddNew
shaomingmark 2009-08-04
- 打赏
- 举报
long = request("long")
把红色的换一个别的变量名
因为long是关键字，不能做变量使用
把红色的换一个别的变量名
因为long是关键字，不能做变量使用
sy_binbin 2009-08-04
- 打赏
- 举报
long = request("long")
把红色的换一个别的变量名
把红色的换一个别的变量名
郭大侠_ 2009-08-04
- 打赏
- 举报
long 好像是关键字吧,换个别的名字
xk8023ppt 2009-08-04
- 打赏
- 举报
Microsoft VBScript 编译器错误 错误 '800a0400'
缺少语句
/xk/adddata.asp，行 4
long = request("long")
^
缺少语句
/xk/adddata.asp，行 4
long = request("long")
^
