求教：如何修改数据库的纪录？

cep50 2003-08-09 06:21:07
我要修改数据库的纪录,用 uploadid 字段定位指针,但没次修改都是第一条记录,请帮我解决这一问题. uploadid 字段类型:自动编号

网页一:xgwz0.asp<%@ LANGUAGE="VBSCRIPT"%>


<!--#include file="ADOVBS.INC"-->
<%
if session("first")="" then
page=1
session("first")=1
else
page=request("page")
end if
if page<1 then
page=1
end if

DbPath = SERVER.MapPath("..\data\htgh.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")


sql="select * from upload order by uploaddt desc "
rs.open sql,conn,1


%>


<%
if rs.eof and rs.bof then
response.write "没有图片"
response.write"<br>"
response.write "<a href='javascript:window.history.go(-1)'>返回</a>"
rs.close
conn.close
response.end
end if
rs.pagesize=1
rs.absolutepage=page

%>

<html>
<head>
<title>修改文章</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<style type="text/css">
<!--
.botton { font-size: 12px; color: #006600; background-color: #FFFFF8}
.title { font-size: 14px; line-height: 16pt; font-weight: bold; color: #FF6633}
-->
</style>
</head>

<body bgcolor="#FFFFF8">
<div align="center">
<center>
<table width="770" border="0" cellspacing="0" cellpadding="0" height="20" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center" valign="bottom">
<td height="20" class="title" width="770"> 修 改 文 章 </td>
</tr>
</table>
</center>
<%
i=1
While (Not rs.EOF) and (i<=rs.pagesize)
%>


</div>
<form method="post" action="xgwz1.asp" name=frmSend >
<div align="center">
<center>

<table width="770" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#008080" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#CCCCFF">
<tr>
<td width="70" align="right">〖标题〗</td>
<td width="700">
<INPUT maxLength=60 name=Title class="botton" size="50" value=<%=rs("Title")%>>
* </td>
</tr>
<tr>
<td width="70" align="right">〖作者〗</td>
<td width="700">
<INPUT maxLength=60 name=username class="botton" size="40" value=<%=rs("username")%>>
</td>
</tr>
<tr>
<td width="70" align="right">〖说明〗</td>
<td width="700">
<textarea cols=108 name=Description rows=3 class="botton"><%=rs("Description")%></textarea></td>
</tr>
</table>

<div><input type='hidden' name='SouceFileName1' value=<%=rs("SouceFileName1")%>></div>


</center>
</div>
<div align="center">
<center>
<table width="770" border="1" cellpadding="0" cellspacing="0" bgcolor="#FFFFCC" height="400" bordercolordark="#008080" bordercolorlight="#008080" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center">
<td width="770"><img height="400" width="600" src="showimage.asp?uploadid=<% =rs("uploadid")%>" <% =rs("data1")%> ></td>
</tr>
</table>
</center>
</div>
<%
rs.MoveNext
i=i+1
Wend
%>

<div align="center">
<center>
<table width="770" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#008080" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="770" align="center" bgcolor="#CCCCFF" height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="160" id="AutoNumber2" height="20">
<tr>
<%
if (page>1) then
%>
<td align="center" width="40" height="20"><input type="button" name="Button" value="首页" class="botton" onClick="window.location.href='xgwz0.asp?page=1'"></td>
<td align="center" width="40" height="20"><input type="button" name="Botton" value="前页" class="botton" onClick="window.location.href='xgwz0.asp?page=<%=page-1%>'"></td>
<%
end if
if (cint(page) < rs.pagecount) then
%>

<td align="center" width="40" height="20"><input type="button" name="Botton2" value="下页" class="botton" onClick="window.location.href='xgwz0.asp?page=<%=page+1%>'"></td>
<td align="center" width="40" height="20"><input type="button" name="Botton3" value="末页" class="botton" onClick="window.location.href='xgwz0.asp?page=<%=rs.pagecount%>'"></td>
</tr>
<%
end if
%>

</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table width="770" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr align="right">
<td colspan="2" align="center" height="20">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="160" id="AutoNumber1" height="20">
<tr>
<td width="40" height="20" align="center">　</td>
<td width="40" height="20" align="center">
<input type="Submit" name="Submit" value="修改" class="botton"></td>
<td width="40" height="20" align="center">
<input type="submit" name="Submit2" value="删除" class="botton" ></td>
<td width="40" height="20" align="center">　</td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td colspan="2" height="20">
 
</td>
</tr>
<tr>

<td>
<input type="hidden" name="data1" value=<%=rs("data1")%>>
</td>
</tr>
</table>

<% rs.close
conn.close
%>

</center>
</div>
</form>
</body>
</html>

网页二:xgwz1.asp

<%@ LANGUAGE="VBSCRIPT"%>
<%

Title=request("Title")
username=request("username")
Description=request("Description")

uploadid=request("uploadid")

dbpath=server.mappath("..\data\htgh.mdb")
set conn=server.createObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
rs.open "upload",conn,2,2


sql="select * from upload where uploadid='"&uploadid &"'"

rs("Title")=Title
rs("username")=username
rs("Description")=Description

rs.update
set conn=nothing

%>

<script language=javascript>
<!--
alert("修改成功！");
for(i=0;i<10000;i++);
window.location.href="xgwz0.asp"
//-->
</script>


...全文
48 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
cep50 2003-08-09
  • 打赏
  • 举报
 回复
将 rs.open sql,conn,1,3 或 rs.open sql,conn,2,2 改为 rs.open "upload",conn,2,2 或 rs.open "upload",conn,1,3 就不报错，但又是改的第一条记录。
cep50 2003-08-09
  • 打赏
  • 举报
 回复
改为：
dbpath=server.mappath("..\data\htgh.mdb")
set conn=server.createObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
'set rs=server.createobject("ADODB.Recordset")
'rs.open "upload",conn,2,2

sql="select * from upload where uploadid='"&uploadid &"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,3

报错：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'

[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。

/htgh/tpsc/xgwz1.asp，行18
cep50 2003-08-09
  • 打赏
  • 举报
 回复
改为：
<%@ LANGUAGE="VBSCRIPT"%>
<%

Title=request("Title")
username=request("username")
Description=request("Description")

uploadid=request("uploadid")

dbpath=server.mappath("..\data\htgh.mdb")
set conn=server.createObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
'set rs=server.createobject("ADODB.Recordset")
'rs.open "upload",conn,2,2

sql="select * from upload where uploadid='"&uploadid &"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,2,2

'sql="select * from upload where uploadid='"&uploadid &"'"

rs("Title")=Title
rs("username")=username
rs("Description")=Description

rs.update
set conn=nothing

%>

<script language=javascript>
<!--
alert("修改成功！");
for(i=0;i<10000;i++);
window.location.href="xgwz0.asp"
//-->
</script>


不行，报错：
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e07'

[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。

/htgh/tpsc/xgwz1.asp，行18

realplm 2003-08-09
  • 打赏
  • 举报
 回复
sql="select * from upload where uploadid='"&uploadid &"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,3

rs("Title")=Title
rs("username")=username
rs("Description")=Description

rs.update
set conn=nothing
swans 2003-08-09
  • 打赏
  • 举报
 回复
sql="select * from upload where uploadid='"&uploadid &"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,2,2

rs("Title")=Title
rs("username")=username
rs("Description")=Description

rs.update
set conn=nothing
数据库帖子收集
更改数据库的排序规则，出现如下问题，大力帮忙吧？ 存储过程可以一次删掉多个数据吗？ SQL server 安装问题 使用bulk insert将txt文件数据转为sql的时候，顺序发生改变，请问怎么使写入的顺序和txt顺序...
05 ORM
Django中内嵌了ORM框架，不需要直接编写SQL语句进行数据库操作，而是通过定义模型类，操作模型类来完成对数据库中表的增删改查和创建等操作。 O是object，也就类对象的意思。 R是relation，翻译成中文是关系，也...
Mysql-两个表之间复制数据
想把一个数据库中表中数据复制到另一个数据库或者同一个数据库中可以采取以下方法：  1.表结构相同的表，且在同一数据库（如，table1,table2)  Sql ：insert into table1 select * from table2 (完全复制) ...
几个概念问题- about RMAN backup
比如说，如果我无意中删除了一个数据文件，并且没有备份，而这个数据文件时空的，没有内容，那么，重做控制文件时，系统是否就会读取系统视图，把当前正常状态的文件重新纪录，从而使数据库可以恢复时用呢。...
我在CSDN参与的3000个帖子
请问：如果表1中有相同的纪录应如何消除，使用distnct关键字吗？ 26： 关于一个VB三角型运算的问题求解 27： 如何获得计算机的计算机名 28： 一个简单的算法问题，怎么样在一个数组里获得4个不同的...
ASP

28,391

社区成员

357,060

社区内容

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

加载中

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

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

+ 用AI写文章