在同一页面中添加删除

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

			  %>


...全文
136 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循环。  (item, index) in questionList v-bind:key>   :...
同一父页面的一个子页面刷新另一个子页面
在现代Web开发中，经常需要在一个页面中同时展示多个独立的内容区域，这通常是通过使用`iframe`元素实现的。"同一父页面的一个子页面刷新另一个子页面"这个话题聚焦于如何在不重新加载整个父页面的情况下，仅刷新...
实现一个页面(增、删、查、改)
某公司的第一个考核小项目： 用户名 密码 性别 地址 注册时间 电话 登录时间 查询姓名 要求： 使用一张表实现 对其添加 增上改查 附带源码+mysql的表数据！
关于同一用户不能同时登录文件下载
5. **前端提示**：在前端页面添加提示信息，告知用户账户已在其他地方登录，以便用户了解情况并采取相应措施。 标签“同时登录”进一步强调了问题的核心。在实际开发中，处理“同时登录”问题不仅涉及技术实现，还...
wordpress-load-more:WordPress的同一页面分页按钮
（这不是愚人节的笑话）概括向您的WordPress网站存档和搜索结果页面添加“更多加载”按钮。 单击该按钮将按照WordPress管理员中“最大帖子数”选项设置的间隔将帖子的下一个“页面”添加到页面底部。 将根据要添加的...
ASP

28,409

社区成员

356,971

社区内容

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

加载中

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

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

+ 用AI写文章