asp+ access 表单内容写不进数据库里怎么办 - ASP技术论坛

已结贴√ 问题点数：20 回复次数：3

asp+ access 表单内容写不进数据库里怎么办

<%
dim exp_title,exp_people
if request("exp_title")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入实验名！');" & "history.back()" & "</script>"
    Response.End
end if
if request("exp_people")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入实验人！');" & "history.back()" & "</script>"
    Response.End
end if

exp_title=request("exp_title")
exp_people=request("exp_people")
dim sql
dim rs
dim conn
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("baogao.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="insert into baogao(exp_title,exp_people) values('"&exp_title&"','"&exp_people&"')"
rs.Open sql,conn,3,3
Response.Write "记录添加成功!"
%>

搜索更多相关主题的帖子: 数据库　 access　

第 2 楼

得分:20

下面是提交页面：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<form id="form1" name="form1" method="post" action="check.asp">
  <label>
  实验名：
  <input name="exp_title" type="text" id="exp_title" />
  </label>
  <p>
    <label>
    实验人：
    <input name="exp_people" type="text" id="exp_people" />
    </label>
  </p>
  <p>
    <label>
    <input type="submit" name="Submit" value="提交" />
    </label>
  </p>
</form>
</body>
</html>

下面是判断页面：

程序代码：

<%
dim exp_title,exp_people
if request("exp_title")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入实验名！');" & "history.back()" & "</script>"
    Response.End
end if
if request("exp_people")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入实验人！');" & "history.back()" & "</script>"
    Response.End
end if

exp_title=request("exp_title")
exp_people=request("exp_people")
dim sql
dim rs
dim conn
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("baogao.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="insert into baogao(exp_title,exp_people) values('"&exp_title&"','"&exp_people&"')"
rs.Open sql,conn,3,3
Response.Write "记录添加成功!"
%>

能够插入啊，我把代码和数据库发给你，你自己再试试

网友提问.rar (7.8 KB)

第 3 楼

得分:0

我试了一下确实可以，但是为什么在我的总程序中不可以

第 4 楼

得分:0

1、查一下你数据库文件所在文件夹的写权限是否没有给
2、数据库里的字段名和你程序里的字段名对应不上

求上而得中，求中而得下。