ASP 没办法提交和删除数据

<%@language="VBScript"%><html><head><metahttp-equiv="Content-Type"content="text/html;... <%@ language="VBScript" %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">

</style>
</head>

<body>
<p> </p>
<p>

</p>
<div align="center">
<h1><span class="STYLE6">管理员管理
</span> </h1>
</div>
<p class="style2"> </p>

<form name="form2" method="post" action="deladmin.asp">
<table width="390" border="1" align="center" cellspacing="0" bordercolor="#6633FF">
<tr>
<td width="93" height="18"><div align="center"><span class="style3">管理员号</span></div></td>
<td width="93"><div align="center"><span class="style3">管理员姓名</span></div></td>
<td width="93"><div align="center"><span class="style3">管理员密码</span></div></td>
<td width="93"><div align="center" class="style3">操作</div></td>
</tr>
<% dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select* from wzf"
rs.open sql,con,1,3
do while not rs.eof
%>
<tr>
<td width="93" height="22"><div align="center"><%=rs("id")%></div></td>
<td width="93"><div align="center"><%=rs("username")%></div></td>
<td width="93"><div align="center"><%=rs("password")%></div></td>
<td width="93"><div align="center"><a href='deladmin.asp?admnum=<%=trim(rs("id"))%>'>删除</a>
</div></td>
<%
rs.movenext
loop
%>
</table>
</form>
<form name="form1" method="post" action="addadmin.asp">
<p align="center" class="style3 style4">添加管理员</p>
<table width="281" height="93" border="1" align="center" cellspacing="0" bordercolor="#6633FF">
<tr>
<td width="135"><div align="left"><span class="style3">管理员号：</span></div></td>
<td width="168"><input type="text" name="admnum"></td>
</tr>
<tr>
<td width="135"><div align="left"><span class="style3">管理员姓名：</span></div></td>
<td width="168"><input type="text" name="admname"></td>
</tr>
<tr>
<td><div align="left"><span class="style3">管理员密码：</span></div></td>
<td><input type="text" name="admpwd"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="添加">
</div></td>
</tr>
</table>
</form>

<p align="center"><span class="style2"><a href="admin.asp">返回管理页</a></span></p>
</body>
</html>
我不会弄，请吧修改后的发上来，谢谢！展开

 我来答

3个回答

#热议# 不吃早饭真的会得胆结石吗？

xingyunok95
2008-05-03

知道答主

回答量：26

采纳率：0%

帮助的人：21.8万

我也去答题访问个人页

关注

展开全部

我看你上面的代码是多个页面都罗列在一起的。。。
我就改个删除，添加在同一页面 admin.asp 的代码...
文件 admin.asp 内容:

...

}
-->
</style>
</head>
<%
if request("t")="del" then
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "delete from wzf where id="&request("id")&" ",con,2,3
rs.close
set rs=nothing
response.redirect "admin.asp"
response.end
end if

if request("t")="add" then

admname=trim(Request("admname"))
admnum=trim(Request("admnum"))
admpwd=trim(Request("admpwd"))

Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "select * from wzf ",con,2,3
rs.AddNew
rs("id")=admnum
rs("username")=admname
rs("password")=admpwd
rs.Update

rs.close
set rs=nothing
response.redirect "admin.asp"
response.end
end if

%>

<body>
<p> </p>
<p>

</p>
<div align="center">
<h1><span class="STYLE6">管理员管理
</span> </h1>
</div>
<p class="style2"> </p>

<table width="390" border="1" align="center" cellspacing="0" bordercolor="#6633FF">
<tr>
<td width="93" height="18"><div align="center"><span class="style3">管理员号</span></div></td>
<td width="93"><div align="center"><span class="style3">管理员姓名</span></div></td>
<td width="93"><div align="center"><span class="style3">管理员密码</span></div></td>
<td width="93"><div align="center" class="style3">操作</div></td>
</tr>
<% dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select* from wzf"
rs.open sql,con,1,3
if rs.bof and rs.eof then
response.write "当前还没有用户！"
end if
do while not rs.eof
%>
<tr>
<td width="93" height="22"><div align="center"><%=rs("id")%></div></td>
<td width="93"><div align="center"><%=rs("username")%></div></td>
<td width="93"><div align="center"><%=rs("password")%></div></td>
<td width="93"><div align="center"><a href='admin.asp?t=del&id=<%=trim(rs("id"))%>'>删除</a>
</div></td>
<%
rs.movenext
loop
rs.colse
set rs=nothing
%>
</table>

<form name="form1" method="post" action="admin.asp">
<p align="center" class="style3 style4">添加管理员</p>
<table width="281" height="93" border="1" align="center" cellspacing="0" bordercolor="#6633FF">
<tr>
<td width="135"><div align="left"><span class="style3">管理员号：</span></div></td>
<td width="168"><input type="text" name="admnum"></td>
</tr>
<tr>
<td width="135"><div align="left"><span class="style3">管理员姓名：</span></div></td>
<td width="168"><input type="text" name="admname"></td>
</tr>
<tr>
<td><div align="left"><span class="style3">管理员密码：</span></div></td>
<td><input type="text" name="admpwd">
<input type="hidden" name="t" value="add">
</td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="添加">
</div></td>
</tr>
</table>
</form>

</body>
</html>
******************************************************
总的就用上面一个 admin.asp 页面来实现，管理员的添加和删除。
上面的代码我也没调试，只是自己改了下，不排除可能出错。。。
还有上面只实现了简单的功能，还有一些不完善，我也就正对你的问题，改了下，具体的完善，你自己在琢磨下哈...
希望我上面写的能给你带来帮助...

已赞过 已踩过<

评论收起

gegeasp
2008-04-30 · 超过43用户采纳过TA的回答

知道答主

回答量：220

采纳率：0%

帮助的人：0

我也去答题访问个人页

关注

展开全部

先要判断是否为空记录
if rs.bof and rs.eof then
无记录
else
显示记录
end if

如果你的代码没有问题，而且还没有错误提示，那么请检查你的磁盘是否为NTFS分区，请将网站根目录上赋予EVERYONE以修改权限。

已赞过 已踩过<

评论收起

百度网友34d4ba3c7
推荐于2016-04-11 · 超过22用户采纳过TA的回答

知道答主

回答量：64

采纳率：0%

帮助的人：68.2万

我也去答题访问个人页

关注

展开全部

<!--#include file="conn.asp"-->
<%
   admname=LCase(Request("admname"))
   admnum=LCase(Request("admnum"))
   admpwd=LCase(Request("admpwd"))

   Set rs=Server.CreateObject("Adodb.RecordSet")
   
   rs.Open "Select * from wzf where [user]='"&user&"' or name='"&name&"'",conn

   if not rs.EOF then

   Response.Write "<font color=red><div align=center><br><br>该帐号已经存在!<br>* 注：姓名和帐号必须是唯一的 *</div></font>"
   Response.End   

   end if
   rs.close
   sql="select * from wzf"
   rs.open sql,conn,1,3
   rs.addnew
   rs("admname")=admname
   rs("admnum")=admnum
   rs("admpwd")=admpwd
 
   rs.update
   rs.Close
   set rs=Nothing
   
   conn.Close
   set conn=Nothing

   Response.Redirect "index.asp"
%>

这句
rs.Open "Select * from wzf where [user]='"&user&"' or admname='"&admname&"'",conn是判断有没有重复的姓名 [user]和&user&是你的姓名字段名 自己改

还有conn里面用单独的数据库连接了
<%
 dim conn
 dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={SQL Server};server=(local);database=date;User Id=sa;pwd=;" 
conn.Open connstr

%>    server=(local)是数据库名这个是自选 
database=date  data是数据库表User Id=sa;pwd=;" 
sql用户名和密码
数据库是sql


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起

更多回答（1）

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

ASP 没办法提交和删除数据

其他类似问题

为你推荐：