追女生第一次送什么:ASP菜鸟型问题,帮我看一下,很急的那种哦....

来源:百度文库 编辑:高校问答 时间:2024/05/02 03:09:15
表单页面:(order.asp)
<FORM method="POST" name="form1" action="articlesave.asp">
程序页面:(articlesave.asp)
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../font.css" rel="stylesheet" type="text/css">
<!--#include file="Conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from order"
rs.open sql,conn,1,3
rs.addnew
rs("mingzhi")=request.Form("mingzhi")
rs("danwei")=request.form("danwei")
rs("danwei")=request.form("zhiwei")
rs("tel")=request.form("tel")
rs("dizhi")=request.form("dizhi")
rs("email")=request.form("email")
rs("pc")=request.form("pc")
rs("fax")=request.form("fax")
rs("add1")=request.form("add1")
rs("add2")=request.form("add2")
rs("add3")=request.form("add3")
rs("add1x")=request.form("add1x")
rs("add2x")=request.form("add2x")
rs("add3x")=request.form("add3x")
rs("add1xno")=request.form("add1xno")
rs("add2xno")=request.form("add2xno")
rs("add3xno")=form("add3xno")
rs.update
rs.close
set rs=nothing
response.write "<p class='fronts'>定单已经添加成功,2秒钟后返回</p>"
%>

这是conn.asp 页面代码
<%
Dim connstr
db="Database/order.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
%>

我能够显示添加成功,但是就是数据库没有东西.
为何?
我没装IIS请仔细帮我看一下,谢了,讲得对的我加分.

'articlesave.asp
<FORM method="POST" name="form1" action="articlesave.asp">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../font.css" rel="stylesheet" type="text/css">
<!--#include file="Conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from order"
rs.open sql,conn,3,3
rs.addnew
rs("mingzhi")=request.Form("mingzhi")
rs("danwei")=request.form("danwei")
rs("danwei")=request.form("zhiwei")
rs("tel")=request.form("tel")
rs("dizhi")=request.form("dizhi")
rs("email")=request.form("email")
rs("pc")=request.form("pc")
rs("fax")=request.form("fax")
rs("add1")=request.form("add1")
rs("add2")=request.form("add2")
rs("add3")=request.form("add3")
rs("add1x")=request.form("add1x")
rs("add2x")=request.form("add2x")
rs("add3x")=request.form("add3x")
rs("add1xno")=request.form("add1xno")
rs("add2xno")=request.form("add2xno")
rs("add3xno")=form("add3xno")
rs.update
rs.close
set rs=nothing
response.write "<p class='fronts'>定单已经添加成功,2秒钟后返回</p>"
%>

'conn.asp :
<%
Dim connstr
db="Database/order.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
%>

去掉On Error Resume Next

去掉On Error Resume Next 正解
换一种连接数据库的方法就可以

菜鸟走开了啊!!不知道的不要瞎说啊!
rs(\"mingzhi\")=request.Form(\"mingzhi\")
将.form删了!~改成
rs(\"mingzhi\")=request(\"mingzhi\")

首先你把这句话去掉:On Error Resume Next如果出错查看错误页面里传过来的参数是否正确
如果无误你看一下上一页面的method属性是否为post
如果无误把rs.open sql,conn,1,3改成rs.open sql,conn,3,2
不行你加一句Response.Write request.form("add3") 看是否传过来参数
要是还不行神也救不了你了。因为不是程式的问题拉。

sql="select * from order"
rs.open sql,conn,1,3
rs.addnew
rs("mingzhi")=request.Form("mingzhi")
rs("danwei")=request.form("danwei")
rs("danwei")=request.form("zhiwei")
rs("tel")=request.form("tel")
rs("dizhi")=request.form("dizhi")
rs("email")=request.form("email")
rs("pc")=request.form("pc")
rs("fax")=request.form("fax")
rs("add1")=request.form("add1")
rs("add2")=request.form("add2")
rs("add3")=request.form("add3")
rs("add1x")=request.form("add1x")
rs("add2x")=request.form("add2x")
rs("add3x")=request.form("add3x")
rs("add1xno")=request.form("add1xno")
rs("add2xno")=request.form("add2xno")
rs("add3xno")=form("add3xno")
rs.update
rs.close
你不是要添加记录么,那将上面的都去掉吧

t=request.form("mingzhi")
f=request.form("danwei")
g=request.form("tel")
sql="insert into order (mingzhi,dangwei,tel) values('"+t+"','"+f+"','"+g+"')"
rs.open sql,conn,1,3
想多加项就可以在括号中加
但前题是你的数据库中的列和表单中的文本框名必须相福。