有高手来帮忙看看这段修改ACCESS数据库记录的程序吗?

jpin 2005-04-21 02:46:15
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>

</head>

<body>
<%set conn=server.createobject("adodb.connection")
strconn="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("user.mdb")
conn.open strconn

id=request.form("id")
%>
<%if request("submit")<>"" then %>
<%
lx=request.form("lx")
names=request.form("names")
show=request.form("show")
a=request.form("a")
b=request.form("b")
c=request.form("c")
ms=request.form("ms")

sql="update blue set lx='"&lx&"',names=,[show],[a],[b],[c],[ms])values('"&lx&"','','"&show&"','"&a&"','"&b&"','"&c&"','"&ms&"')"
conn.execute(sql)
%>
<%end if%>
<% sql="select * from blue"
set rs= server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=10
pagecount=rs.pagecount
page = int(request.QueryString("page"))
if page <1 then page=1
if request.querystring("page")="" then page=1
rs.absolutepage=page

delnames=trim(request.querystring("delnames"))
if delnames<>"" then
sql="delete * from blue where names='"&delnames&"'"
conn.execute sql
end if

renames=trim(request.querystring("renames"))
if renames <> "" then
sql="select * from blue where names='"&renames&"'"
set rs1=conn.execute(sql)
lx0=rs1("lx")
names0=rs1("names")
show0=rs1("show")
a0=rs1("a0")
b0=rs1("b0")
c0=rs1("c0")
ms0=rs1("ms0")

end if
%>
<form name="form1" method="post" action="adminblue.asp">
<table width="778" border="1" align="center">
<tr>
<td height="55" align="center"><table width="778" border="1">
<tr align="center">
<td width="108"><strong>产品名</strong></td>
<td width="106"><strong>show</strong></td>
<td width="112"><strong>a</strong></td>
<td width="109"><strong>b</strong></td>
<td width="104"><strong>c</strong></td>
<td width="105"><strong>修改</strong></td>
<td width="88"><strong>删除</strong></td>
</tr>
<% i=0
do while not rs.eof and i<rs.pagesize %>
<tr align="center">
<td><% =rs("names")%></td>
<td><% =rs("show")%></td>
<td><% =rs("a")%></td>
<td><% =rs("b")%></td>
<td><% =rs("c")%></td>
<td><a href="adminblue.asp?page=<% =page%>&renames=<% =rs("names")%>">修改</a></td>
<td><a href="adminblue.asp?page=<% =page %>&delnames=<% =rs("names")%>">删除</a></td>


</tr>
<% rs.movenext
i=i+1
loop %>
<tr align="center">
<td colspan="7">每页
<% =rs.pagesize %>
条　　共
<% =pagecount %>
页　　　　　　　　　　　　　　　当前
<% =page %>
页
　　<a href="adminblue.asp?page=1">首页</a>　　<a href="adminblue.asp?page=<%=page-1%>">上页</a>　<% if page>=pagecount then %>下一页
<%else%>
　<a href="adminblue.asp?page=<% =page+1%>">下页</a><%end if %>　　<a href="adminblue.asp?page=<%=pagecount%>">尾页</a></td>
</tr>
</table>
</tr>
<tr>
<td height="33" align="center">
<input type="text" name="textfield">
<input type="submit" name="Submit3" value="提交">
</tr>
<tr>
<td height="6" align="center">类型：
<input type="text" name="lx" value=<%=lx0 %>>

</td>
</tr>
<tr>
<td height="6" align="center">名称：
<input type="text" name="names" value=<%=names0%>></td>
</tr>
<tr>
<td height="20" align="center">Show：
<input type="text" name="show" value=<%=shows0%>></td>
</tr>
<tr>
<td height="20" align="center">图A:
<input type="text" name="a" value=<%=a0%>></td>
</tr>
<tr>
<td height="28" align="center">图B:
<input type="text" name="b" value=<%=b0%>></td>
</tr>
<tr>
<td height="31" align="center">图C:
<input type="text" name="c" value=<%= c0%>></td>
</tr>
<tr>
<td height="59" align="center" valign="top">产口描述:
<textarea name="ms" value=<%= ms0%>></textarea>
</td>
</tr>
<&end%>
<tr>
<td height="32" align="center"><input type="submit" name="Submit" value="提交">
　
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>
修改按钮没有作用,而删除按钮可以用,但不知道为什么,有高手帮下忙吗?感激
...全文
133 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
fantiny 2005-04-21
  • 打赏
  • 举报
 回复
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无??文档</title>

</head>

<body>
<%set conn=server.createobject("adodb.connection")
strconn="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("user.mdb")
conn.open strconn

id=request.form("id")
%>
<%if request("submit")<>"" then %>
<%
lx=request.form("lx")
names=request.form("names")
show=request.form("show")
a=request.form("a")
b=request.form("b")
c=request.form("c")
ms=request.form("ms")

sql="update blue set lx='"&lx&"',names=,[show],[a],[b],[c],[ms])values('"&lx&"','','"&show&"','"&a&"','"&b&"','"&c&"','"&ms&"')"
conn.execute(sql)


renames=trim(request.querystring("renames"))
if renames <> "" then
sql="SELECT * FROM blue where names='"&renames&"'"
response.write sql
set rs1=conn.execute(sql)
lx0=rs1("lx")
names0=rs1("names")
show0=rs1("show")
a0=rs1("a")
b0=rs1("b")
c0=rs1("c")
ms0=rs1("ms")
end if

%>



<%end if%>


<% sql="select * from blue"
set rs= server.createobject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=10
pagecount=rs.pagecount
page = int(request.QueryString("page"))
if page <1 then page=1
if request.querystring("page")="" then page=1
rs.absolutepage=page

delnames=trim(request.querystring("delnames"))
if delnames<>"" then
sql="delete * from blue where names='"&delnames&"'"
conn.execute sql
end if

%>
<form name="form1" method="post" action="adminblue.asp">
<table width="778" border="1" align="center">
<tr>
<td height="55" align="center"><table width="778" border="1">
<tr align="center">
<td width="108"><strong>?品名</strong></td>
<td width="106"><strong>show</strong></td>
<td width="112"><strong>a</strong></td>
<td width="109"><strong>b</strong></td>
<td width="104"><strong>c</strong></td>
<td width="105"><strong>修改</strong></td>
<td width="88"><strong>?除</strong></td>
</tr>
<% i=0
do while not rs.eof and i<rs.pagesize %>
<tr align="center">
<td><% =rs("names")%></td>
<td><% =rs("show")%></td>
<td><% =rs("a")%></td>
<td><% =rs("b")%></td>
<td><% =rs("c")%></td>
<td><a href="adminblue.asp?page=<% =page%>&renames=<% =rs("names")%>">修改</a></td>
<td><a href="adminblue.asp?page=<% =page %>&delnames=<% =rs("names")%>">?除</a></td>


</tr>
<% rs.movenext
i=i+1
loop %>
<tr align="center">
<td colspan="7">??
<% =rs.pagesize %>
条　　共
<% =pagecount %>
?　　　　　　　　　　　　　　　当前
<% =page %>
?
　　<a href="adminblue.asp?page=1">首?</a>　　<a href="adminblue.asp?page=<%=page-1%>">上?</a>　<% if page>=pagecount then %>下一?
<%else%>
　<a href="adminblue.asp?page=<% =page+1%>">下?</a><%end if %>　　<a href="adminblue.asp?page=<%=pagecount%>">尾?</a></td>
</tr>
</table>
</tr>
<tr>
<td height="33" align="center">
<input type="text" name="textfield">
<input type="submit" name="Submit3" value="提交">
</tr>
<tr>
<td height="6" align="center">?型：
<input type="text" name="lx" value=<%=lx0 %>>

</td>
</tr>
<tr>
<td height="6" align="center">名称：
<input type="text" name="names" value=<%=names0%>></td>
</tr>
<tr>
<td height="20" align="center">Show：
<input type="text" name="show" value=<%=shows0%>></td>
</tr>
<tr>
<td height="20" align="center">?A:
<input type="text" name="a" value=<%=a0%>></td>
</tr>
<tr>
<td height="28" align="center">?B:
<input type="text" name="b" value=<%=b0%>></td>
</tr>
<tr>
<td height="31" align="center">?C:
<input type="text" name="c" value=<%= c0%>></td>
</tr>
<tr>
<td height="59" align="center" valign="top">?口描述:
<textarea name="ms" value=<%= ms0%>></textarea>
</td>
</tr>
<&end%>
<tr>
<td height="32" align="center"><input type="submit" name="Submit" value="提交">
　
<input type="reset" name="Submit2" value="重置"></td>
</tr>
</table>
</form>
</body>
</html>

这样试试看
wangasp 2005-04-21
  • 打赏
  • 举报
 回复
： fantiny(喻捷) (
都按你的要求改了，还是不行！
fantiny 2005-04-21
  • 打赏
  • 举报
 回复
names0=rs1("names")
show0=rs1("show")
a0=rs1("a0")
b0=rs1("b0")
c0=rs1("c0")
ms0=rs1("ms0")

你的数据库里面应该是 rs1("ms") 而 不是 rs1("ms0") 吧。不要太大意了。
zorou_fatal 2005-04-21
  • 打赏
  • 举报
 回复
把sql 语句response.write出来看看对不对
jpin 2005-04-21
  • 打赏
  • 举报
 回复
还是同样错误
/iisHelp/common/500-100.asp，行242 错误 '80004005'

未指定的错误

/11/adminblue.asp，行23

23行的内容是
if renames<>"" then
sql="select * from blue where names='"&renames&"'"
23 set rs1=conn.execute(sql)
fantiny 2005-04-21
  • 打赏
  • 举报
 回复
renames=trim(request.querystring("renames"))
if renames <> "" then
sql="select * from blue where names='"&renames&"'"
set rs1=conn.execute(sql)
lx0=rs1("lx")
names0=rs1("names")
show0=rs1("show")
a0=rs1("a0")
b0=rs1("b0")
c0=rs1("c0")
ms0=rs1("ms0")

end if

把这个提到前面提。数据集占用连接。
jpin 2005-04-21
  • 打赏
  • 举报
 回复
不好意思,这句写错了,
sql="update blue set lx='"&lx&"',names=,[show],[a],[b],[c],[ms])values('"&lx&"','','"&show&"','"&a&"','"&b&"','"&c&"','"&ms&"')"
原样是这样的

sql="insert into blue([lx],[names],[show],[a],[b],[c],[ms])values('"&lx&"','"&names&"','"&show&"','"&a&"','"&b&"','"&c&"','"&ms&"')"
conn.execute(sql)
shuangren 2005-04-21
  • 打赏
  • 举报
 回复
看不太明白
点提交时你应该是想添加数据insert into，那为什么用update？
修改的时候应该用update语句，可是我却看不见
mysql程序设计语言_access数据库程序设计
编程语言中文网今天精心准备的是《access数据库程序设计》，下面是详解！计算机二级Access数据库程序设计要考的内容!我是武汉在校大学生我打算报考计算机二级Access数据库程序设计请问一下我需要做那些准备.还有主要...
Access数据库教案（Excel+VBA+Access数据库/SQL Server编程）
Excel+VBA+Access数据库/SQL Server
Access数据库对象包括哪六个？Access与 Excel 最重要的区别是什么?
我们知道微软有两款经典的数据处理软件Excel和Access。由于在运行大量数据时，。所以很多人说他俩的时候，大都总结“小规模数据用Excel，大规模数据用Access。”Access数据库系统由数据库中的六大数据对象构成，分别...
13、Access数据库操作全指南
本文详细介绍了Microsoft Access数据库的基本操作指南，包括启动Access、打开数据库、向表中添加记录、调整列大小、预览和打印表内容以及创建新表等。此外，还涵盖了数据查询、表关联等高级操作，并提供了常见问题的...
前端加access数据库，如何实现？？
本文收录于《CSDN问答解惑-专业版》专栏，主要记录项目实战过程中的Bug之前因后果及提供真实有效的解决方案，希望能够助你一臂之力，帮你早日登顶实现财富自由；同时，欢迎大家关注&&收藏&&订阅！持续更新中，up！up...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章