Question

这段ASP代码，请问哪里错了？

就是无法写入数据库，大家帮我看看哪里错了吗？
<!--#include file="conn.asp"-->

<%
Post_P_Number=request.form("Add_P_Number")
Post_sales_name=request.form("add_sales_name")
Post_purchase_name=request.form("add_purchase_name")
Post_P_name=request.form("add_P_name")
Post_c_country=request.form("add_c_country")
Post_c_name=request.form("add_c_name")
Post_c_company=request.form("add_c_company")
Post_c_tell=request.form("add_c_tell")
Post_c_address=request.form("add_c_address")
Post_sales_remark=request.form("add_sales_remark")
Post_purchase_remark=request.form("add_purchase_remark")
Post_P_status=request.form("add_P_status")
Post_supplier_name=request.form("add_supplier_name")
Post_GetIn_price=request.form("add_GetIn_price")
Post_SellOut_price=request.form("add_sellout_price")

set rs=server.createobject("adodb.recordset")
RegSQL="select * from project_M"
rs.open RegSQL,conn,3,2

rs.addnew
rs("P_Number")=Post_P_Number
rs("sales_name")=Post_sales_name
rs("purchase_name")=Post_purchase_name
rs("P_name")=Post_P_name
rs("C_country")=Post_C_country
rs("C_name")=Post_C_name
rs("C_company")=post_c_company
rs("c_tell")=post_c_tell
rs("c_address")=post_c_address
rs("sales_remark")=post_sales_remark
rs("purchase_remark")=post_purchase_remark
rs("p_status")=post_p_status
rs("supplier_name")=post_supplier_name
rs("GetIn_price")=post_GetIn_price
rs("SellOut_price")=post_SellOut_price

rs.update
rs.close
set rs=nothing

response.write("<script>alert('添加成功');location.href='post.asp';</script>")

%>

Answer 1

可能存在数据表锁死
建议 rs.open RegSQL,conn,3,2改为rs.open RegSQL,conn,1,3
你可以尝试一下获取错误，根据错误代号，应该能查到原因。

追问

错误代码500，如何设置显示错误代码的位置？

追答

On Error Resume Next
代码
update 之后
Err.Number

Answer 2

开头要dim定义一下Post_P_Number这些参数，然后request.form("Add_P_Number")改为trim(request.form("Add_P_Number")) 以及 rs.open RegSQL,conn,3,2改为
rs.open RegSQL,conn,1,3

追问

试了，还是不行

追答

dim rs,RegSQL这个也定义一下 还有就是把提交表单代码发我看看 就是input界面代码

追问

追答

rs.addnew
rs("P_Number")=Post_P_Number
rs("sales_name")=Post_sales_name
rs("purchase_name")=Post_purchase_name
rs("P_name")=Post_P_name
rs("C_country")=Post_C_country
rs("C_name")=Post_C_name
rs("C_company")=post_c_company
rs("c_tell")=post_c_tell
rs("c_address")=post_c_address
rs("sales_remark")=post_sales_remark
rs("purchase_remark")=post_purchase_remark
rs("p_status")=post_p_status
rs("supplier_name")=post_supplier_name
rs("GetIn_price")=post_GetIn_price
rs("SellOut_price")=post_SellOut_price

这段代码全部修改为 Add_P_Number 要保持一致啊 不然你往哪里写数据啊

追问

与数据库一致，数据库里的表单列名称没有add_

追答

你太牛B了，我晕，那你Add是哪里来的？这个不是加着好玩的，那你把提交页面的input里面的name涉及add_P_name的 全部去掉add_ 变成和数据库一致就可以了  还有

<%
Post_P_Number=request.form("Add_P_Number")
Post_sales_name=request.form("add_sales_name")
Post_purchase_name=request.form("add_purchase_name")
Post_P_name=request.form("add_P_name")
Post_c_country=request.form("add_c_country")
Post_c_name=request.form("add_c_name")
Post_c_company=request.form("add_c_company")
Post_c_tell=request.form("add_c_tell")
Post_c_address=request.form("add_c_address")
Post_sales_remark=request.form("add_sales_remark")
Post_purchase_remark=request.form("add_purchase_remark")
Post_P_status=request.form("add_P_status")
Post_supplier_name=request.form("add_supplier_name")
Post_GetIn_price=request.form("add_GetIn_price")
Post_SellOut_price=request.form("add_sellout_price")

这些有add的全部删除掉 这样就可以写入数据了 你去掉测试一下 绝对ok 我晕

Answer 3

如果是Access数据库，有可能是数据库文件权限问题，设一下数据库文件的写权限

Answer 4

难到没有错误提示吗？看不出来上面问题啊。只有看看你字段属性和表单数据类型是否一致。

Answer 5

看看"conn.asp"中配置的数据库，是否正确。

追问