| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 840 人关注过本帖
标题:为什么不能向数据库添加数据,我刚学asp请大家帮帮忙,以下是我的代码???
只看楼主 加入收藏
xiaoyangyjs
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2007-11-29
收藏
 问题点数:0 回复次数:4 
为什么不能向数据库添加数据,我刚学asp请大家帮帮忙,以下是我的代码???
<%
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("11.mdb")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from admin",conn,1,3
if submits<>"" then
title=request.form("title")
body=request.form("body")
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from admin",conn,1,3
rs1("tilte")=title
rs1("body")=body
rs1.update
end if
%>


<%
if rs.eof then
response.Write("没有记录!")
else
do while not rs.eof


%>
<body>
<table width="342" height="94" align="center" border="1">
  <tr>
    <td width="91"><div align="right">id:</div></td>
    <td width="241"><%=rs("id")%></td>
  </tr>
  <tr>
    <td><div align="right">title:</div></td>
    <td><%=rs("title")%></td>
  </tr>
  <tr>
    <td><div align="right">body:</div></td>
    <td><%=rs("body")%></td>
  </tr>
  <tr>
    <td><div align="right">time:</div></td>
    <td><%=rs("time")%></td>
  </tr>
</table>
<p><br>
  <%
rs.movenext
loop
end if
%>
</p>
<p>?</p>
<p><a href="2.asp">管理员:</a></p>
<form name="form4" method="post" action="">
  <table width="261" height="148" border="1" align="center">
    <tr>
      <td><div align="right">title:</div></td>
      <td>
        <input name="title" type="text" id="title">
      </td>
    </tr>
    <tr>
      <td><div align="right">body:</div></td>
      <td>
        <textarea name="body" id="body"></textarea>
      </td>
    </tr>
    <tr>
      <td colspan="2"><div align="center">
          <input name="Submits" type="submit" id="Submits" value="提交">
      </div></td>
    </tr>
  </table>
</form>
<p>?</p>
<p>?</p>
<p>?</p>
</body>
搜索更多相关主题的帖子: 数据库 body asp conn 
2007-12-05 21:15
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
<%
set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("11.mdb")
if submits<>"" then
title=request.form("title")
body=request.form("body")
set rs1=server.createobject("adodb.recordset")
rs1.open "select * from admin",conn,1,3
rs1("tilte")=title
rs1("body")=body
rs1.update
rs1.close
set rs1=Nothing
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from admin",conn,1,3
%>
调换一下打开顺序先试试。
2007-12-05 21:46
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
11.mdb看看有没有读写权限。需要anyone

2007-12-06 08:20
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
是everyone

2007-12-06 08:21
dushui265
Rank: 1
等 级:新手上路
威 望:2
帖 子:227
专家分:0
注 册:2007-9-28
收藏
得分:0 
同一个表admin你同时打开了两次,应该尽量避免这种情况

2007-12-06 09:39
快速回复:为什么不能向数据库添加数据,我刚学asp请大家帮帮忙,以下是我的代码?? ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040662 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved