在同一页面中添加删除

2009-09-07 02:03:56 211 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python实现PDF页面的删除与添加本文演示了如何使用Python添加页面到PDF文档中，以及从PDF文档中删除指定页面。阅读详情

本人是想在同一页面中完成添加、修改、删除的功能前面的添加修改都成功了唯有删除语句起不了作用,而地址栏也成功取得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

			  %>

...全文

MineMap开发教程：北斗网格位置码实时调度技术详解本文介绍了MineMap4.0引擎中北斗网格位置码的实时调度技术。北斗网格位置码是我国自主研发的空间位置编码标准，具有层次化结构、三维编码等特点。MineMap4.0通过BeiDouGrid类实现了高效的实时调度机制，重点展示了按预想高度进行网格调度的核心功能。关键技术包括视锥体裁剪、LOD控制、高度筛选算法和交互式查询等。该技术在智慧城市、环境监测等领域具有广泛应用前景，凭借高性能、高精度等优势，为三维地理信息可视化提供了有力支撑。阅读详情

mkcat

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

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

打赏
举报

<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）

在同一页面中添加删除

相关推荐