如何在asp中的函数中写删除语句，在线等待

必须在服务器端才能执行sql语句。
你的这种样式可以实现,给你一个我写的例子，你看其中的删除部分好了：
<%
call conn_init()
dim filename,link
dim MaxPerPage
MaxPerPage=10
filename="admin_dep.asp"
dim msearchword
msearchword=Request("search")
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
link=""
%>
<%
   dim rs
   dim sql
   dim BoardIDList

      if request("action")="del" then

      set rs=server.createobject("adodb.recordset")
    boardIDlist=Request.Item("selBoard")
    if boardIDlist="" then
       response.write "<center>对不起，请选择要删除的部门信息。</center>"
    else
       boardIDlist="("+boardIDlist+")"
               sql="delete from D_user where D_user_dept in "&boardidlist

               rs.open sql,conn,3,3
               '-----------------------------------
               '删除该部门人员
               '-----------------------------------
               sql="delete from D_dept where D_Dept_ID in "&boardidlist
   rs.open sql,conn,3,3
                  if err.number<>0 then
          response.write "<p><center>删除部门失败，部门库不能操作:"&err.Description &"</center></p>"
          err.clear
       else
          response.write "<p><center>删除部门成功!</center></p>"
'  response.end
        end if
   end if

  end if

%><html>
<head>
<title>部门列表</title>
<LINK href="Style/main.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head><body leftmargin="2" topmargin="0">
<table width="650" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr bgcolor="#0099CC">
  <td width="100" height="23"> </td>
    <td width="250" height="23" align=left> <font color="#FFFFFF">您所在的位置=>部门列表</font>
    </td>
    <td width="200" height="23" align=right>
      <a href="Add_Dep.asp"><font color="#FFFFFF"><b>添加新部门</b></font></a>
    </td>
<td width="100" height="23"> </td>
  </tr>
</table>
<table width="650" border="0" cellspacing="1" cellpadding="0" align="center">
  <tr>
    <td><%

   dim totalPut
   dim CurrentPage
   dim TotalPages
   dim i,j
   dim DEP_NAMEsql="select * from D_dept;"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if err then
response.write err.Description
end if
if rs.eof then
  response.write "<p align='center'>还没有任何部门信息！</p>"
   else

      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
   if (totalPut mod MaxPerPage)=0 then
     currentpage= totalPut \ MaxPerPage
   else
      currentpage= totalPut \ MaxPerPage + 1
   end if

      end if

    if currentPage=1 then
     showpage totalput,MaxPerPage,"admin_dep.asp"
      showContent
     showpage totalput,MaxPerPage,"admin_dep.asp"
response.write "<table bgcolor=""#099cc"" width=650><tr><td> </td></tr></table>"

       else
  if (currentPage-1)*MaxPerPage<totalPut then
    rs.move  (currentPage-1)*MaxPerPage
    dim book
    book=rs.book
     showpage totalput,MaxPerPage,"admin_dep.asp"
showContent
     showpage totalput,MaxPerPage,"admin_dep.asp"
response.write "<table bgcolor=""#099cc"" width=650><tr><td> </td></tr></table>"
else
    currentPage=1
    showpage totalput,MaxPerPage,"admin_dep.asp"
   showContent
    showpage totalput,MaxPerPage,"admin_dep.asp"
response.write "<table bgcolor=""#099cc"" width=650><tr><td> </td></tr></table>"
  end if
   end if

   end if
'rs.close
set rs=nothing

%></td>
  </tr>
</table>
<%
sub showContent
dim i
i=0
%><table width="650" border="0" cellspacing="1" cellpadding="2" bgcolor="#999999" bordercolor="#FFFFFF" align="center">
<form method="POST" action="admin_dep.asp?action=del" name="frmBoardDel">
<% response.write "<tr valign=top bgcolor=""#FFFFFF"" align=center height=36><td colspan=3><input class=""buttonface"" type=""button"" onclick=""confirmDel()"" value=""删除"" name=""cmdDel""><br></td></tr>" %>
    <tr bgcolor="#0099cc">
      <td width="30">
        <div align="center"><font color="#ffff99">删除</font></div>
      </td>
      <td width="590">
        <div align="center"><font color="#ffff99">部门名称</font></div>
      </td>
      <td width="30">
        <div align="center"><font color="#ffff99">修改</font></div>
      </td>
    </tr>
    <%
do while not rs.EOF
if not rs.eof then
%>
    <tr bgcolor="#FFFFFF">
      <td width="30">
        <div align="center">

          <input type=checkbox name=selBoard value=<%=rs("D_dept_id")%> onclick="calc();">
        </div>
      </td>
      <td width="590">
        <div align="center"><%=rs("D_dept_name")%></div>
      </td>
      <td width="30">
        <div align="center"><a href=edit_dep.asp?editid=<%=rs("D_dept_id")%>>修改</a></div>
      </td>
    </tr>
    <%end if
i=i+1
if i>=MaxPerPage then exit do
rs.MoveNext
loop
response.write "<tr bgcolor=""#FFFFFF"" align=center height=36><td colspan=3><br><input type=hidden name=calcit value=0><input class=""buttonface"" type=""button"" onclick=""confirmDel()"" value=""删除"" name=""cmdDel""></td></tr>"
%>
</form>
  </table>
<script>
function calc()
{
if(window.event.srcElement.checked)
document.frmBoardDel.calcit.value++;
else
document.frmBoardDel.calcit.value--;
}
function confirmDel(){
if(document.frmBoardDel.calcit.value==0)
{
   alert("您尚未选中任何数据项");
   return false;
}
if (confirm("删除选择的部门会同时删除该部门所属的用户，要继续吗？")){
document.frmBoardDel.submit()
}
}
</script>
<%
rs.close
end sub
%>
很早以前做的，现在都不想再读了！
<%@ Language=VBScript %>
<%Response.Write(Request("deldata"))
  btndel=trim(Request("deldata"))
  If btndel="删除" Then
  Set Conn=Server.CreateObject ("ADODB.Connection")
  Conn.Open Application("connstr")
  sSql=Request("delsql")
  sDelSql1="delete from bankaccount where Bankaccount in (" &  sSql &")"
  'sDelSql2="delete from Pact where PactCode in ("  & sSql & ")"
  Response.Write(sDelSql1)
  'Response.Write(sDelSql2)
  'conn.Execute sDelSql1
  'conn.Execute sDelSql2
  conn.close
  'Response.Redirect "adoread.asp"
%>
<%else%><%set conn = server.CreateObject("Adodb.connection")
  conn.open application("connstr")

  set Rs= Server.CreateObject("Adodb.RecordSet")
  sSql="select bankaccount.bankaccount,bankaccount.openbank,companyaccount.companyname from bankaccount,companyaccount where bankaccount.accountno=companyaccount.accountno"
  'Response.Write(sSql)
  Rs.Open sSql,conn,1,4%>
<html>
<head>
<link href="\stock\css\stock.css" rel=stylesheet>
<title>账号维护</title>
</head>
<body background="/images/bk08.gif">
<form method="post" action="/stock/TransLib/bankno/bankno.asp" name="delform">
<table border="1" width="100%" bordercolorlight="#000080" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" ID="Table1">
  <tr>
    <td width="100%" colspan="5" bgcolor="#0099FF">
      <p align="center"><b><font color="#FFFFFF">公司账号维护</font></b></td>
  </tr>
  <tr>
    <td width="50%" colspan="2" bgcolor="#33CCFF">
      <p align="center">录入</td>
    <td width="50%" colspan="3" bgcolor="#33CCFF">
      <p align="center">查看</td>
  </tr>
  <tr>
    <td width="25%" bgcolor="#66CCFF" align="center"><A href="/stock\TransLib\bankno\newCompanyno.asp">公司账户录入</a></td>
    <td width="25%" bgcolor="#66CCFF" align="center"><a href="/stock\TransLib\bankno\newbankno.asp">银行账户录入</a></td>
    <td width="25%" bgcolor="#66CCFF" align="center" colspan="2"><a href="/stock\TransLib\bankno\companyno.asp">公司账户</a></td>
    <td width="25%" bgcolor="#66CCFF" align="center">银行账户</td>
  </tr>  <tr>
    <td width="25%"><p align="center">银行账号</p></td>
    <td width="38%" colspan="2">开户银行</td>
    <td width="37%" colspan="2">公司账户名称</td>
  </tr>
   <%Do while not Rs.eof %>
  <tr>
    <td width="25%"><input type="checkbox" name="check1" onclick="doCheck(this)" value="<%=RS("bankaccount")%>" ID="Checkbox1">
    <a href="stock\TransLib\bankno\Viewbankno.asp?bankaccount=<%=Rs("bankaccount")%>"><%=Rs("bankaccount")%></a>　</td>
    <td width="38%" colspan="2"><%=Rs("openbank")%>　</td>
    <td width="37%" colspan="2"><%=Rs("companyname")%>　</td>
  </tr>
  <%RS.MoveNext
    loop
    RS.close%>
</table>
  <p align="center">
  <input type="hidden" value="删除" name="deldata" ID="Hidden2">
  <input type="hidden" value="" name="delsql" ID="Hidden1">
  <input type="checkbox" name="chkall" ID="Checkbox2" value="ON" onclick="return CA(1);">
  <input type="button" value="全选" name="selall" ID="Button1" onclick="return CA(2);"> 
  <input type="button" value="删除" name="btndel" ID="Button2" onclick="ondatadel();"> 
  <input type="reset" value="重选" name="btnreset" ID="Reset1"> 
  <input type="button" value="关闭" name="btnclose" ID="Reset2" onclick="return window.close();"> 
</p>
</form><script language="JavaScript">
var aa = new Array()
function CA(n){  //此过程用于全选或取消全选
  var i,j
  i=aa.length
  for (j=0;j<i;j++) aa[j]=null
  if (n==2) document.forms[0].chkall.checked=!document.forms[0].chkall.checked;
  for(var i=0,j=0;i<document.forms[0].length;i++){
    var e=document.forms[0].elements[i];
    if(e.name=="check1") {
       e.checked=document.forms[0].chkall.checked;
       if (e.checked) {aa[j]=e.value;j++;}
       document.forms[0]
       }
  }
}  function doCheck(nsel){ //此过程用于将选定列的合同编号传给数组aa
  var i,j
  i= aa.length;
  for (j=0;j<i;j++) {
      if (aa[j]==nsel.value){
          if (!nsel.checked) {
             aa[j]=null;
             return
             }
           }
      }

  aa[i]=nsel.value;
  //alert(aa)
  }function ondatadel(){  //删除
   var i,j
    ssql=""
    i= aa.length;
    for (j=0;j<i;j++) {
      if (aa[j]!=null) {
        if (j==0)
           ssql="'"  + aa[j] + "'"
        else
           ssql=ssql + ", '" + aa[j] +  "'"
      }
    }
    delform.delsql.value =ssql;
    alert(ssql)

    if (ssql=="")
      {
       alert("请选择要删除的账号!")
       return false;
       }
    else
       {
       if (window.confirm("请确定是否删除所选账号？")==0) return false
          //return true
       //alert(ssql)
       delform.delsql.value=ssql
       //delform.PactCode.value=1
       delform.submit();
       }
  }

</script>
</p></body>
</html>
<%end if%>

调试易

如何在asp中的函数中写删除语句，在线等待

解决方案 »