在同一页面中添加删除

mkcat 2009-09-07 02:03:56
本人是想在同一页面中完成添加、修改、删除的功能前面的添加修改都成功了 唯有删除语句起不了作用,而地址栏也成功取得IP 我该怎样写呢?下面是删除语句的代码....请告诉指教指教小妹~小妹在此先多谢了
         <%

		 sql="select * from member"

		 set rs=server.CreateObject("adodb.recordset")

		 rs.open sql,conn,1,1

			if rs.eof then

		%>

        <tr>

      <td colspan="9" class="title">暂无管理员,请添加管理帐号!</td>

     </tr>

     </table>

		 <%else

             do while not rs.eof

        %>

  <table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1" class="tab">

    <tr onmouseover="this.className='white';" onmouseout="this.className='';">

      <td width="60" nowrap="nowrap"><%=rs("Level")%></td>

      <td width="100%" nowrap="nowrap"><%=rs("Company")%></td>

      <td width="80" nowrap="nowrap"><%=rs("Country")%></td>

      <td width="80" nowrap="nowrap"><%=rs("Province")%></td>

      <td width="80" nowrap="nowrap"><%=rs("Email")%></td>

      <td width="80" nowrap="nowrap"><%=rs("Fullname")%></td>

      <td width="80" nowrap="nowrap"><%if rs("Language")="cn" then

	  response.Write("中文")

	  else

	  response.Write("英文")

	  end if

	  %></td>

      <td width="70" nowrap="nowrap"><%=rs("RegDate")%></td>

      <td width="70" align="center" nowrap="nowrap"><a href="?app=user&act=update">修改</a>   <a href="?app=user&act=dell?id=<%=rs("id")%>">删除</a></td>

    </tr> 

  </table>

		<%

          rs.movenext

            loop

          end if

          rs.close

          set rs=nothing

          %>

                            <!--删除-->

              <%if request("act")="dell" then

              Conn.execute("DElETE FROM member WHERE ID = "&cint(request("ID")))

              end if

			  %>


...全文
135 23 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
23 条回复
切换为时间正序
请发表友善的回复…
发表回复
mkcat 2009-09-08
  • 打赏
  • 举报
 回复
[Quote=引用 21 楼 pig510520 的回复:]
index.asp?app=user&act=dell?id=43

大哥 这里是
index.asp?app=user&act=dell&id=43 才对吧
[/Quote]


天丫 怎么我想不到是这问题丫 谢谢了
pig510520 2009-09-08
  • 打赏
  • 举报
 回复
index.asp?app=user&act=dell?id=43

大哥 这里是
index.asp?app=user&act=dell&id=43 才对吧
gxq323 2009-09-08
  • 打赏
  • 举报
 回复
用form吧，加个按钮，我就不相信了
mkcat 2009-09-08
  • 打赏
  • 举报
 回复
[Quote=引用 18 楼 gxq323 的回复:]
把删除放到最上面试试，代码有点乱
[/Quote]还是一样
gxq323 2009-09-08
  • 打赏
  • 举报
 回复
把删除放到最上面试试，代码有点乱
mkcat 2009-09-08
  • 打赏
  • 举报
 回复
天丫谁来救救我丫 快给这问题烦死拉
pig510520 2009-09-08
  • 打赏
  • 举报
 回复

小意思啦
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
index.asp?app=user&act=dell?id=43



还是返回到到这里就是不执行 天啊 该怎么办啊
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
[Quote=引用 14 楼 cosler 的回复:]
呵呵，把删除，放在 <%end if%> 后边了。

   
 
<%end if%>
<!--删除-->
<%
if request("act")="dell" then
response.write "DEL OK!"
Conn.execute("DElETE FROM member WHERE ID = "&cint(request("ID")))
end if
%>
[/Quote]


不行,不行......我早就试过了
黑心 2009-09-07
  • 打赏
  • 举报
 回复
呵呵，把删除，放在<%end if%> 后边了。



<%end if%>
<!--删除-->
<%
if request("act")="dell" then
response.write "DEL OK!"
Conn.execute("DElETE FROM member WHERE ID = "&cint(request("ID")))
end if
%>
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
是没有执行删除语句
gxq323 2009-09-07
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 mkcat 的回复:]
引用 2 楼 cosler 的回复

我都试过了  就是不执行删除语句  是不是我判断出错了?
[/Quote]
不执行删除语句还是执行删除语句了但是没有删除记录？
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
<!--#include file="../../boot.ini.asp"-->
<link href="../../themes/blue.css" rel="stylesheet" type="text/css" />
<!--添加-->
<%if request("act")="addnew" then%>
<form action="" method="post" name="form1" id="form1">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tab" id="?add">
<tr>
<td colspan="4" class="title">添加帐号</td>
</tr>
<tr>
<td width="100" nowrap="nowrap">用户名：</td>
<td width="264"><span class="title">
<input type="text" name="Username2" id="Username2" />
</span>*</td>
<td width="100">级别：</td>
<td width="277">
<select name="Level2" id="Level2">
<option value="0">☆☆☆(普通)</option>
<option value="1">★☆☆(一星)</option>
<option value="2">★★☆(二星)</option>
<option value="3">★★★(三星)</option>
</select>
</td>
</tr>
<tr>
<td nowrap="nowrap">密码：</td>
<td><input type="password" name="Password2" id="Password2" />
*</td>
<td>邮件：</td>
<td><input type="text" name="Email2" id="Email2" />
*</td>
</tr>
<tr>
<td nowrap="nowrap">国家/地区：</td>
<td><input name="Company2" type="text" id="Company2" size="40" />
* </td>
<td>省份/城市：</td>
<td><input name="Province2" type="text" id="Province2" maxlength="50" />
*</td>
</tr>
<tr>
<td nowrap="nowrap">公司名称：</td>
<td><input name="Country2" type="text" id="Country2" maxlength="50" /></td>
<td>地址：</td>
<td><input name="Address2" type="text" id="Address2" size="40" /></td>
</tr>
<tr>
<td nowrap="nowrap">邮编：</td>
<td><input type="text" name="Postcode2" id="Postcode2" /></td>
<td>联系人：</td>
<td><input type="text" name="Fullname2" id="Fullname2" />
*</td>
</tr>
<tr>
<td nowrap="nowrap">电话：</td>
<td><input type="text" name="Tel2" id="Tel2" /></td>
<td>传真：</td>
<td><input type="text" name="Fax2" id="Fax2" /></td>
</tr>
<tr>
<td colspan="4" align="center" class="blue"><input type="submit" class="btn" value=" 添 加 " />
<input name="add" type="hidden" id="hiddenField" value="66" />
<input type="button" class="btn" value=" 返 回 " onclick="javascript:history.back(1);" /></td>
</tr>
</table>
</form>
<%if request("add")<>"" then
sql="select * from member"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("Username")=request ("Username2")
rs("Password")=request ("Password2")
rs("Company")=request ("Company2")
rs("Country")=request ("Country2")
rs("Postcode")=request ("Postcode2")
rs("Tel")=request ("Tel2")
rs("Level")=request ("Level2")
rs("Email")=request ("Email2")
rs("Tel")=request ("Tel2")
rs("Province")=request ("Province2")
rs("Address")=request ("Address2")
rs("Province")=request ("Province2")
rs("fullname")=request ("fullname2")
rs("Province")=request ("Province2")
rs("Fax")=request ("Fax2")
rs.update
rs.close
set rs=nothing
response.Redirect("index.asp?app=user")
end if
%>
<%end if%>
<!--修改-->
<%if request("act")="update" then
sql="select * from member"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<form name="form1" method="post" action="">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tab">
<tr>
<td colspan="4" class="title">编辑</td>
</tr>
<tr>
<td nowrap>用户名：</td>
<td><input name="Username" type="text" id="Username" value="<%=rs("Username")%>">
*</td>
<td>级别：</td>
<td><select name="Level" id="Level">
<option value="0">☆☆☆(普通)</option>
<option value="1">★☆☆(一星)</option>
<option value="2">★★☆(二星)</option>
<option value="3">★★★(三星)</option>
</select></td>
</tr>
<tr>
<td nowrap>密码：</td>
<td><input name="Password" type="password" id="Password" value="<%=rs("Password")%>">
(若不修改请留空)</td>
<td>邮件：</td>
<td><input name="Email" type="text" id="Email" value="<%=rs("Email")%>">
*</td>
</tr>
<tr>
<td nowrap>国家/地区：</td>
<td><input name="Country" type="text" id="Country" value="<%=rs("Country")%>" maxlength="50">
*</td>
<td>省份/城市：</td>
<td><input name="Province" type="text" id="Province" value="<%=rs("Province")%>" maxlength="50">
*</td>
</tr>
<tr>
<td nowrap>公司名称：</td>
<td><input name="Company" type="text" id="Company" value="<%=rs("Company")%>" size="40"></td>
<td>地址：</td>
<td><input name="Address" type="text" id="Address" value="<%=rs("Address")%>" size="40"></td>
</tr>
<tr>
<td nowrap>邮编：</td>
<td><input name="Postcode" type="text" id="Postcode" value="<%=rs("Postcode")%>"></td>
<td>联系人：</td>
<td><input name="Fullname" type="text" id="Fullname" value="<%=rs("Fullname")%>">
*</td>
</tr>
<tr>
<td nowrap>电话：</td>
<td><input name="Tel" type="text" id="Tel2" value="<%=rs("Tel")%>"></td>
<td>传真：</td>
<td><input name="Fax" type="text" id="Fax" value="<%=rs("Fax")%>"></td>
</tr>
<tr>
<td colspan="4" align="center" class="blue"><input type="submit" class="btn" value=" 保 存 ">
<input name="up" type="hidden" id="hiddenField2" value="55" />
<input type="button" class="btn" value=" 返 回 " onClick="javascript:history.back(1);"></td>
</tr>
</table>
</form>
<!--修改-->
<%if request("up")<>"" then
sql="select * from member"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs("Username")=request ("Username")
rs("Password")=request ("Password")
rs("Company")=request ("Company")
rs("Country")=request ("Country")
rs("Postcode")=request ("Postcode")
rs("Tel")=request ("Tel")
rs("Level")=request ("Level")
rs("Email")=request ("Email")
rs("Tel")=request ("Tel")
rs("Province")=request ("Province")
rs("Address")=request ("Address")
rs("Province")=request ("Province")
rs("fullname")=request ("fullname")
rs("Province")=request ("Province")
rs("Fax")=request ("Fax")
rs.update
rs.close
set rs=nothing
response.Redirect("index.asp?app=user")
end if
%>
<%
rs.close
set rs=nothing
%>
<%end if%>
<%if request("act")="table" then%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tab">
<tr>
<td colspan="9" class="title">管理</td>
<tr>
<td width="60" nowrap="nowrap" class="shadow"><strong>级别</strong></td>
<td width="100%" nowrap="nowrap" class="shadow"><strong>公司名称</strong></td>
<td width="80" nowrap="nowrap" class="shadow"><strong>国家/地区</strong></td>
<td width="80" nowrap="nowrap" class="shadow"><strong>省份/城市</strong></td>
<td width="80" align="center" nowrap="nowrap" class="shadow"><strong>电子邮件</strong></td>
<td width="80" nowrap="nowrap" class="shadow"><strong>联系人</strong></td>
<td width="80" nowrap="nowrap" class="shadow"><strong>使用语言</strong></td>
<td width="70" nowrap="nowrap" class="shadow"><strong>注册日期</strong></td>
<td width="70" align="center" nowrap="nowrap" class="shadow"><strong>操作</strong></td>
</tr>
<%
sql="select * from member"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then
%>
<tr>
<td colspan="9" class="title">暂无管理员,请添加管理帐号!</td>
</tr>
</table>
<%else
do while not rs.eof
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" class="tab">
<tr onmouseover="this.className='white';" onmouseout="this.className='';">
<td width="60" nowrap="nowrap"><%=rs("Level")%></td>
<td width="100%" nowrap="nowrap"><%=rs("Company")%></td>
<td width="80" nowrap="nowrap"><%=rs("Country")%></td>
<td width="80" nowrap="nowrap"><%=rs("Province")%></td>
<td width="80" nowrap="nowrap"><%=rs("Email")%></td>
<td width="80" nowrap="nowrap"><%=rs("Fullname")%></td>
<td width="80" nowrap="nowrap"><%if rs("Language")="cn" then
response.Write("中文")
else
response.Write("英文")
end if
%></td>
<td width="70" nowrap="nowrap"><%=rs("RegDate")%></td>
<td width="70" align="center" nowrap="nowrap"><a href="?app=user&act=update">修改</a>   <a href="?app=user&act=dell?id=<%=rs("id")%>">删除</a></td>
</tr>
</table>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
<!--删除-->
<%if request("act")="dell" then
Conn.execute("DElETE FROM member WHERE ID = "&cint(request("ID")))
end if
%>
<%end if%>
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
就是没有错误提示才不知道那里错
黑心 2009-09-07
  • 打赏
  • 举报
 回复
把这一页的代码全贴出来，看下。
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 cosler 的回复:]
1.F5刷新看一下了。
2.如果都有值，条件都成立，那就应该是数据库表没有删除权限了。
[/Quote]
数据库表我没有设置权限,是可以删除的;

gxq323 2009-09-07
  • 打赏
  • 举报
 回复
没有错误提示吗？注释掉 on error
黑心 2009-09-07
  • 打赏
  • 举报
 回复
1.F5刷新看一下了。
2.如果都有值，条件都成立，那就应该是数据库表没有删除权限了。
mkcat 2009-09-07
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 cosler 的回复:]
response.write "a="&request("act")
response.write "b="&cint(request("ID"))
看一下有没有值？
[/Quote]
都有值..
黑心 2009-09-07
  • 打赏
  • 举报
 回复
response.write "a="&request("act")
response.write "b="&cint(request("ID"))
看一下有没有值？
加载更多回复（3）
vue 实现在同一界面实现组件的动态添加和删除功能
1.插入静态组件，将自己想要循环的组件显示在页面上，利用v-for进行循环操作，操作包括增删。 //所有要显示的子组件，写在一个li标签，有 v-for循环。   
  •                                       <el-select                 size=small                 v-model=ch
    • 同一父页面的一个子页面刷新另一个子页面
    在同一个父页面中的两个iframe里面的两个子页面，进行无刷新的更新！
    实现一个页面(增、删、查、改)
    某公司的第一个考核小项目： 用户名 密码 性别 地址 注册时间 电话 登录时间 查询姓名 要求： 使用一张表实现 对其添加 增上改查 附带源码+mysql的表数据！
    关于同一用户不能同时登录文件下载
    http://www.cnblogs.com/tv151579/p/3400510.html中关于同一用户不能同时登录问题的探讨（1/2）的文件下载.自己整理了一下，有需要的可以下来借鉴一下
    wordpress-load-more:WordPress的同一页面分页按钮
    “加载更多内容”分页 关闭！ 作为针对WordPress 4.x和更早版本的以开发人员为中心的插件，此插件更有意义。 作为WordPress 5.0的插件没有任何意义，并且该插件没有活动实例，因此我决定在2020年4月1日关闭该插件并将其从删除。（这不是愚人节的笑话） 概括 向您的WordPress网站存档和搜索结果页面添加“更多加载”按钮。 单击该按钮将按照WordPress管理员中“最大帖子数”选项设置的间隔将帖子的下一个“页面”添加到页面底部。 将根据要添加的剩余帖子数自动调整要更新的帖子数，并且当没有更多帖子要加载时，该按钮将自动隐藏。
    ASP

    28,409

    社区成员

    356,971

    社区内容

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

    加载中

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

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

    + 用AI写文章