...一共有三个页面,list.asp页面是用来显示数据库中所有记录的。还有一...
发布网友
发布时间：2024-10-24 13:31
共1个回答
热心网友
时间：9分钟前
1.能用文本类型的传值，但要保证这个字段值的唯一性，不然就跟新到不想更新的记录了。
2.提示的错误信息是什么？如果提示错误，最好在执行语句前也就是
rs.open sql,conn,1,3
conn.execute(sql)
前用Response.Write(sql)在页面显示语句，比较容易的看出错误。正常通过后在把它去掉
看删除中sql="delete * from acc where zth='01' and o1='ztlb'and o2='"&o2&"'"
更新中的sql="select * from azz where zth='01'and o1 ='ztlb' and o2='"&o2 & "'"
都是在and前没加空格。另外显示页面用的是get方式往删除页面传值就是通过url，但是在删除页面用的是o2=Request.form("o2")接收值，这是接收不到通过get方式传过来的值的
3.在你发布的代码中没发现添加的代码无法判断
下面是修改过的语句
list
<%
o2=request("o2")
set rs=Server.CreateObject("adodb.recordset")
dim sql
sql="select * from acc where zth='01' and o1='ztlb'"
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
Response.Write("<table><tr><td width=60>编码</td><td width=120>名称(简体）</td><td width=120>名称（繁体)</td><td width=120>名称（英文）</td><td width=150>操作</td></tr>")
while not rs.eof
Response.Write("<tr><td > ")
Response.Write(rs("o2"))
Response.Write("</td><td >")
Response.Write(rs("lmc1"))
Response.Write("</td><td>")
Response.Write(rs("lmc2"))
Response.Write("</td><td >")
Response.Write(rs("lmc3"))
Response.Write("</td>")
%>
<td ><a href="update1.asp?o2=<%=rs("o2")%>">修改</a>
<a href='javascript:if(confirm("您确认要删除该条记录吗？"))document.location.href="delete.asp?o2=<%=rs("o2")%>"'>删除</a></td>
<%
rs.movenext
wend
Response.Write("</tr></table>")
else
response.Write("还没有记录！")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
update
<%
set rs=Server.CreateObject("adodb.recordset")
dim sql,rs
o2=Trim(Request.QueryString("o2"))
sql="select * from azz where zth='01' and o1 ='ztlb' and o2='" & o2 & "'"
rs.open sql,conn,1,3
if not rs.bof and not rs.eof then
bianma=rs("o1")
mingyi=rs("lmc1")
minger=rs("lmc2")
mingsan=rs("lmc3")
rs("o1")=bianma
rs("lmc1")=mingyi
rs("lmc2")=minger
rs("lmc3")=mingsan
rs.Update
end if
rs.Close
conn.close
set rs=nothing
set conn=nothing
response.Redirect("list.asp")
%>
delete
<!--#include file="conn.asp"-->
<%
dim sql
o2=Request.QueryString("o2")
sql="delete * from acc where zth='01' and o1='ztlb' and o2='" & o2 & "'"
conn.execute(sql)
conn.close
set conn=nothing
Response.Redirect"list.asp"
%>
其中update发现是把字段本来的信息更新一遍没什么意义
