神马品牌网无锡商业大厦在哪:ASP小问题,分多啊
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 19:31:13
<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)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
%>
我能够显示添加成功,但是就是数据库没有东西.
为何?
没装IIS不知道错哪里,见谅.
如果没装IIS,您调试在互联网上,哪可以排除连接问题,我帮您改一下吧.
conn.asp
<%
dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("Database/order.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>
________________________________________________________
order.asp
<%
mingzhi=request("mingzhi")
danwei=request("danwei")
zhiwei=request("zhiwei")
tel=request("tel")
dizhi=request("dizhi")
email=request("email")
pc=request("pc")
fax=request("fax")
add1=request("add1")
add2=request("add2")
add3=request("add3")
add1x=request("add1x")
add2x=request("add2x")
add3x=request("add3x")
add1xno=request("add1xno")
add2xno=request("add2xno")
add3xno=request("add3xno")
set rs=server.createobject("adodb.recordset")
sql="select * from order"
rs.open sql,conn, adOpenKeyset, adLockOptimistic, adCmdText
rs.addnew array("mingzhi","danwei","zhiwei","tel","dizhi","email","pc","fax","add1","add2","add3","add1x","add2x","add3x","add1xno","addxno","addxno"),_
array(mingzhi,danwei,zhiwei,tel,dizhi,email,pc,fax,add1,add2,add3,add1x,add2x,add3x,add1xno,addxno,addxno)
rs.update
rs.close
set rs=nothing
Response.Write "<script language=JavaScript>{window.alert('定单已经添加成功，2秒钟后返回');window.history.go(-1);}</script>"
%>
______________________________________________
1、在检查您源代码时发现,您这两句有问题.
rs("danwei")=request.form("danwei")
rs("danwei")=request.form("zhiwei")
2、我建议您可以用这个方法测试，一次先不要添加这么多个项目，按3个一组添加，添加一次检查一次，这样就可以检查到哪个添加项目出现错误，从中进行解决。
不要.FORM试试！！
rs("mingzhi")=request("mingzhi")