继续求助 - ASP技术论坛

问题点数：0 回复次数：2

继续求助

现在的问题是应该删除的和实际删除的不一样，我把原来执行的那个网页代码贴出来啊 <%@language=VBScript%> <% dim belong1 belong1=CStr(server.htmlencode(request("belong1")))

Set Conn=Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("装备分布.mdb") CommandText="select * from 装备分布 where 所属市局='"&belong1&"'" Set RS=Conn.Execute(CommandText) %>

<html>

<body> 装备分布情况 <table border=0 cellspacing="1" bgcolor="#000080" width="99%"> <% Response.write "<tr>" For I=0 To RS.Fields.Count-1 %>

<% Next Response.write "<td bgcolor="&"#FFF7E6"&">"&" "&"</td>"&"<td bgcolor="&"#FFF7E6"&">"&" "&"</td>"&"</tr>"

While Not RS.EOF Response.write "<tr>" For I=0 To RS.Fields.Count-1 %> <td bgcolor="#FFFFFF"><%=RS(I).Value%></td> <%

Next %> <td bgcolor="#FFFFFF" width="29"> <a style="font-size:9pt;color:#293876;text-decoration:none" href="modify.asp?key=<%=RS("编号")%>">修改</a> </td> <td bgcolor="#FFFFFF" width="36"> <a style="font-size:9pt;color:#293876;text-decoration:none" href="delete.asp?key=<%=RS("编号")%>">删除</a> </td>

<% RS.MoveNext Response.write "</tr>" Wend

RS.Close Conn.Close %> </table> <a style="font-size:9pt;color:#293876" href=add.asp>点击此处添加新纪录</a> <input type="button" name="Button" value="返回" onclick="history.back();">

</body>

</html>

第 2 楼

得分:0

我把delete.asp代码贴出来啊， <% dim key key=Request.QueryString("key")

Set Conn=Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("装备分布.mdb") CommandText="select * from 装备分布 where [编号]=" &key Set RS=Conn.Execute(CommandText) %>

装备分布

<table border=0 cellspacing="1" bgcolor="#808080" width="99%" style="font-size: 9pt; font-family: 宋体"> <% Response.write "<tr>" For I=0 To RS.Fields.Count-1 Response.write "<td bgcolor=#f5f5f5>"& RS(I).Name & "</td>" Next Response.write "</tr>"

While Not RS.EOF Response.write "<tr>" For I=0 To RS.Fields.Count-1 Response.Write "<td bgcolor=#ffffff>" & RS(I).Value & "</td>" Next Response.write "</tr>" RS.MoveNext Wend RS.MoveFirst

%> </table>

<html>

<body style="text-align: center"> 你确定删除此条记录吗？

<% RS.close conn.close %>

</body>

</html> 帮我看看怎么改

第 3 楼

得分:0

谢谢islet