| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 901 人关注过本帖
标题:急需解决
只看楼主 加入收藏
yaohu
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-4-21
收藏
 问题点数:0 回复次数:7 
急需解决
ad-user.asp
<%
    set conn= Server.CreateObject("adodb.connection")
    cs="provider=microsoft.jet.oledb.4.0;data source="
    conn.open (cs & server.MapPath("info-share.mdb"))
    'response.Write conn.state
    'response.end
    'conn.open
    
    set rs= Server.CreateObject("adodb.recordset")
       sql="select * from [user] "
       rs.open sql,conn,1,3
    
%>

 <table align="center"  border="0">
  <tr><td width="200" align="center" valign="top" >账号</td>
      <td width="200" align="center" valign="top" >密码</td>
      <td width="200" align="center" valign="top" >权限</td>
      <td width="200" align="center" valign="top" >操作</td>
  </tr>
  <tr><td><hr size="1" /></td><td><hr size="1"/></td><td><hr  size="1"/></td><td><hr  size="1"/></td></tr>
 


 <% do while not rs.eof     %>
    <tr><td><%=rs("username")%></td>
        <td><%=rs("userpassword")%></td>
        <td><%=rs("userduty")%></td>
        <td><a href="deleteuser.asp?&id1=<%=rs("username")%>">删除</a>/<a href="updateuser.asp?&id2=<%=rs("username")%>">更新</a></td>
          </tr>
     <tr><td><hr /></td>
         <td><hr /></td>
         <td><hr /></td>
         <td><hr /></td>
             </tr>
<% rs.movenext
   loop
 %>
</table>                   
<%
  rs.close
  set rs=nothing
%>


deleteuser.asp

<%
    set conn= Server.CreateObject("adodb.connection")
    cs="provider=microsoft.jet.oledb.4.0;data source="
    conn.open (cs & server.MapPath("info-share.mdb"))
    'response.Write conn.state
    'response.end
    'conn.open
    dim strname
    strname=request("id1")

    
    set rs= Server.CreateObject("adodb.recordset")
    sql="delete from [user] where username='"&trim(strname)&"'"
        rs.open sql,conn,1,3
             
            
      response.Redirect("ad-user.asp")
%>
<%
   rs.close
   set rs=nothing
%>


问题: 当点击删除后,没有执行杀出操作。也没有提示任何错误!


请高手帮忙解决,在线等
搜索更多相关主题的帖子: conn align open response 
2008-05-06 12:09
tianyu123
Rank: 1
等 级:新手上路
威 望:2
帖 子:576
专家分:0
注 册:2007-8-26
收藏
得分:0 
set rs= Server.CreateObject("adodb.recordset")
sql="delete from [user] where username='"&trim(strname)&"'"
rs.open sql,conn,1,3

改为:
sql="delete from [user] where username='"&trim(strname)&"'"
conn.execute sql

改变一切,须从改变观念开始!
2008-05-06 12:33
yaohu
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-4-21
收藏
得分:0 
我试了一下,还是老样子.
既不提示错误,也不能删除纪录.
2008-05-06 12:39
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
改成
sql="delete * from [user] where username='"&trim(strname)&"'"
2008-05-06 12:55
yaohu
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2008-4-21
收藏
得分:0 
还是不行
2008-05-06 13:08
lili0610931
Rank: 1
等 级:新手上路
帖 子:133
专家分:0
注 册:2007-7-6
收藏
得分:0 
rs.open sql,conn,3,3
你再试试
我再帮你看看
2008-05-06 13:15
lili0610931
Rank: 1
等 级:新手上路
帖 子:133
专家分:0
注 册:2007-7-6
收藏
得分:0 
你的ID1获取的时候有值吗?看一下,有没有值再说一下
2008-05-06 13:18
hmhz
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:30
帖 子:1890
专家分:503
注 册:2006-12-17
收藏
得分:0 
<%
    set conn= Server.CreateObject("adodb.connection")
    cs="provider=microsoft.jet.oledb.4.0;data source="
    conn.open (cs & server.MapPath("info-share.mdb"))
    'response.Write conn.state
    'response.end
    'conn.open
    dim strname
    strname=request("id1")

   
    set rs= Server.CreateObject("adodb.recordset")
    sql="delete from [user] where username='"&trim(strname)&"'"
        rs.open sql,conn,1,3
            
            
      response.Redirect("ad-user.asp")
%>
<%
   rs.close
   set rs=nothing
%>

改成

<%
set conn= Server.CreateObject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source="&Server.MapPath("info-share.mdb")
strname=trim(request("id1"))
conn.execute "delete [user] where username='"&strname&"'"
response.Redirect("ad-user.asp")
%>
2008-05-06 17:14
快速回复:急需解决
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022066 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved