新手asp数据修改和删除的问题

Ivan2978 2015-11-23 05:14:48
先说问题。

点击修改和删除都提示成功,但是无法修改和删除,和原来一样,是什么回事,麻烦帮忙看下,谢谢!

-----------------------------------------------------------以下是admin_Product_class.ASP--------------------------------------------------------
<!--#include File="inc/Conn.asp"-->
<%
If Session("AdminName")="" and Session("adminpass")="" Then
Response.Redirect "Error.asp?id=001"
Else
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>产品类别管理</title>
<link rel="stylesheet" href="css/main.css">
<body>
<table width="95%" border="0" cellpadding="0" cellspacing="0" class="list_table">
<form name="form1" method="post" action="admin_Product_class_save.asp?action=add">
<tr>
<th width="20%">产品分类名称</th>
<th width="10%">排序 </th>
<th width="10%">添加 </th>
</tr>
<tr>
<td height="30"> <div align="center">
<input name="classid" type="hidden" id="classid" value="0">
<input name="name" type="text" class="input-text" id="name" value="" size="30" maxlength="100">
</div></td>
<td> <div align="center">
<input name="px_id" type="text" class="input-text" id="px_id" size="5" maxlength="5" >
</div></td>
<td> <div align="center">
<input name="Submit2" type="submit" class="btn btn82 btn_save2" value="添加">
</div></td>
</tr>
</form>
</table>

<table width="95%" border="0" cellpadding="0" cellspacing="0" class="list_table">
<tr>

<th width="5%">分类ID</th>
<th width="30%">产品分类名称</th>
<th width="10%">排序/数值越小越排前 </th>
<th width="10%">修改 </th>
<th width="10%">删除 </th>
</tr><%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From ProductClass where classid='0' order by px_id asc"
Rs.open Sql,Conn,1,3
Do While not Rs.Eof
%>
<Form Method="post" action="admin_Product_class_save.asp?action=edit&id=<%=rs("id")%>">
<tr>
<td width="80" height="38"> <div align="center"><%=rs("id")%></div></td>
<td><div align="center">
<input name="classid" type="hidden" id="classid" value="0">
<input name="name" type="Text" class="input-text" id="name" value="<%=rs("name")%>" size="30" maxlength="100">
</div></td>
<td width="10%" height="38"><div align="center">
<input name="px_id" type="text" class="input-text" id="px_id" value="<%=rs("px_id")%>" size="6">
</div></td>
<td><div align="center">
<Input Type="Submit" Name="Submit" value="修改" class="btn btn82 btn_add">
</div></td>
<td colspan="3"> <div align="left"><input type="button" class="btn btn82 btn_del" name="button" value="删除" onClick="javascript:if(confirm('亲:确定要删除吗!\n\n此操作将删除所有与之相关的产品且无法恢复!')){window.location.href='admin_Product_class_save.asp?action=delyi&Classid=<%=rs("id")%>';}else{history.go(0);}" /></div></td>
</tr>
</form>
<%
Rs.Movenext
Loop
Rs.Close
Set Rs=nothing
Conn.Close
Set Conn=nothing
%>
</table>
</body>
</html>
<%end if%>
<!-- -->


--------------------------------------------------------------这个是分界线------------------------------------------------------------


------------------------------------------------------admin_Product_class_save..ASP-------------------------------------------------------------------------

<!--#include File="inc/Conn.asp"-->
<%
Dim OO0O00,OO0O0O,OO0OO0,OO0OOO,OOO00
Set OO0OO0=Response:Set OO0O0O=Request:Set OOO00=Session:Set OO0O00=Application:Set OO0OOO=Server
If OOO00("AdminName")="" and OOO00("adminpass")="" Then
OO0OO0.Redirect "Error.asp?id=001"
OO0OO0.end
end if
if OO0O0O("action")="add" then
name=trim(OO0O0O("name"))
classid=trim(OO0O0O("classid"))
px_id=OO0O0O.form("px_id")
set rs=OO0OOO.CreateObject("ADODB.RecordSet")
Sql="Select * From ProductClass Where name='"&name&"'"
Rs.Open Sql,Conn, (73 * 88 - 6423), (71 * 14 - 991)
if name="" then
OO0OO0.Write("<script language=javascript>alert('产品分类名称不能为空!');history.go(-1)</script>")
OO0OO0.end
end if
if not rs.eof then
OO0OO0.Write("<script language=javascript>alert('此分产品类已存在,请不要重复提交!');history.go(-1)</script>")
OO0OO0.end
end if
IF not isNumeric(OO0O0O("px_id")) then
OO0OO0.write("<script>alert(""亲!排序必须为数字!\n\n比如填写数字:2""); history.go(-1);</script>")
OO0OO0.end
end if
If Rs.Eof And Rs.Bof Then
Rs.AddNew
End If
rs("name")=name
rs("classID")=classid
rs("px_id")=px_id
rs.update
rs.close
Set Rs = Nothing
Conn.Close
Set Conn=nothing
OO0OO0.redirect "admin_Product_class.asp"
OO0OO0.end
end if
if OO0O0O("action")="del" then
OO0OO0.Write "<script>alert('操作成功!');history.go(-1);</script>"


End if


if OO0O0O("action")="delyi" then
OO0OO0.Write "<script>alert('删除成功!');history.go(-1);</script>"


End if
if OO0O0O("action")="edit" then
OO0OO0.Write("<script language=""javascript"">alert(""当前产品分类修改成功!"");window.location.href='admin_Product_class.asp';</script>")
end if
%>
...全文
138 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Linghao24 2015-11-25
  • 打赏
  • 举报
回复
引用 2 楼 xdashewan 的回复:
主要代码太长,又没格式,变量名还特别非主流,所以没人愿意花功夫去分辨。毕竟是义务回答,提问人都懒得整理代码,别人也可以选择不答。
对!!!
Linghao24 2015-11-25
  • 打赏
  • 举报
回复
引用 4 楼 Ivan2978 的回复:
[quote=引用 3 楼 myhope88 的回复:] 貌似没看到删除数据表的操作呀,只是提示而已
是阿,那怎么才能达到删除和[/quote]你的数据是在数据库的话就连接到数据库执行删除语句啊。
Ivan2978 2015-11-25
  • 打赏
  • 举报
回复
引用 3 楼 myhope88 的回复:
貌似没看到删除数据表的操作呀,只是提示而已
是阿,那怎么才能达到删除和
myhope88 2015-11-25
  • 打赏
  • 举报
回复
貌似没看到删除数据表的操作呀,只是提示而已
xdashewan 2015-11-24
  • 打赏
  • 举报
回复
主要代码太长,又没格式,变量名还特别非主流,所以没人愿意花功夫去分辨。毕竟是义务回答,提问人都懒得整理代码,别人也可以选择不答。
Ivan2978 2015-11-24
  • 打赏
  • 举报
回复
怎么没人回答 啊。

62,025

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

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