在同一页面中添加删除

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


...全文
134 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)

28,409

社区成员

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

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