求ASP源码。实现提交下拉列表内容和多按钮提交

请帮忙把下面代码写成如下要求：（最好能QQ教我一下，能说的清楚些，我QQ：三五五四五三三三四）1：当下拉列表被选择后，自动更新数据库中的内容！2：点删除按钮删除相应的记录... 请帮忙把下面代码写成如下要求：（最好能QQ教我一下，能说的清楚些，我QQ：三五五四五三三三四）
1：当下拉列表被选择后，自动更新数据库中的内容！
2：点删除按钮删除相应的记录！

代码如下：

if request("action")="delete" then
conn.execute("delete from Lzwudi where 编号=" & request("id"))
Response.redirect "admin.asp"
end if

<%
if rs.eof and rs.bof then
response.write "没有记录"
else
%>
<form name="change" action="?action=change&id=<%=rs("编号")%>&state=" method="post">
<form name="delete" action="?action=delete&id=<%=rs("编号")%>" method="post">
<table border=1 bordercolor="#000000" width=100% height="10" >
<tr>
<td width=10% align="center">ID</td>
<td width=20% align="center">域名</td>
<td width=20% align="center">时间</td>
<td width=20% align="center">IP</td>
<td width=20% align="center">状态</td>
<td width=10% align="center">操作</td>
</tr>
<%
do while not rs.eof and not rs.bof
%>
<tr>
<td width=10% align="center"><%=rs("编号")%></td>
<td width=20% align="center"><%=rs("域名")%></td>
<td width=20% align="center"><%=rs("时间")%></td>
<td width=20% align="center"><%=rs("IP")%></td>
<td width=20% align="center">
<select name="state">
<option value="支持" <% if rs("状态")="支持" then response.write "selected" %>>支持</option>
<option value="不支持" <% if rs("状态")="不支持" then response.write "selected" %>>不支持</option>
<option value="未知" <% if rs("状态")="未知" then response.write "selected" %>>未知</option>
</select>
</td>
<td width=10% align="center">
<input type="Submit" name="delete" value="删除" id="btn_submit">
</td>
</tr>
<%
rs.movenext
loop
end if
%>
</table>
</body>
</html>
<%end if%>
谢谢你的回答，可是为什么删除的时候还是只删除第一条数据！展开

 我来答

1个回答

#热议# 在购买新能源车时，要注意哪些？

jiangxibaiyi
推荐于2016-11-04 · 跟随风去旅行-伤心的歌

jiangxibaiyi

采纳数：3973 获赞数：14412

向TA提问私信TA

关注

展开全部

<!--#include file="config.asp"-->
<%
if Request("type")<>"" then
set rs= Server.CreateObject("ADODB.Recordset")
rs.open"Select * From [数据表] where 编号="&Request("编号"),conn,1,3
rs("状态")=Request("type")
rs.update
rs.close
conn.close
Set rs=nothing
Set Conn=nothing
Response.redirect "admin.asp"
Response.End
end if

if Request("action")="delete" then
set rs= Server.CreateObject("ADODB.Recordset")
rs.open"Delete From [数据表] where id="&Request("id"),conn,1,3
rs.Delete
rs.update
rs.close
conn.close
Set rs=nothing
Set conn=nothing
Response.redirect "admin.asp"
Response.End
end if
 %>
 <html>
 <head>
<script language="javascript">
<!--
function dels(a){
if(a!=""){
window.location=("?type="+a);
 }
}
//-->
</script>
</head>
<body>
<table border=1 bordercolor="#000000" width=100% height="10" >
<tr>
 <td width=10% align="center">ID</td>
 <td width=20% align="center">域名</td>
 <td width=20% align="center">时间</td>
 <td width=20% align="center">IP</td>
 <td width=20% align="center">状态</td>
 <td width=10% align="center">操作</td>
</tr>
<%
Set re=Server.CreateObject("ADODB.Recordset")
Sql="Select * From [数据表]"
re.open Sql,conn,1,1
For i=1 to re.recordcount
if re.eof then exit for
%>
<form name="delete" action="?action=delete&id=<%=re("编号")%>" method="post">
 <tr>
 <td width=10% align="center"><%=re("编号")%></td>
 <td width=20% align="center"><%=re("域名")%></td>
 <td width=20% align="center"><%=re("时间")%></td>
 <td width=20% align="center"><%=re("IP")%></td>
 <td width=20% align="center">
  <select name="state" onChange="dels(this.value);">
   <option value="支持&id=<%=re("编号")%>" <% if re("状态")="支持" then response.write "selected" %>>支持</option>
   <option value="不支持" <% if re("状态")="不支持" then response.write "selected" %>>不支持</option>
   <option value="未知" <% if re("状态")="未知" then response.write "selected" %>>未知</option>
  </select>
 </td>
 <td width=10% align="center">
  <input type="Submit" name="delete" value="删除" id="btn_submit">
 </td>
</tr>
</form>
<%
re.movenext
if re.eof then exit for
next
re.close
Set re=nothing
%>
</table>
</body>
</html>


本回答被提问者采纳






已赞过已踩过<

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

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

求ASP源码。实现提交下拉列表内容和多按钮提交

其他类似问题

为你推荐：