那位高手帮我看一下,我写的这个现在可以运行,但不能删除啊,我的源程序是下面的:
<%

Class BookManagerClass
    Public chepaihao             
    Public xingming         
    Public sex         
    Public shenfid       
    Public tel          
    Public address     
    Public jiazhenggrade 
    Public dingdenghao 
    Public zujing      
    Public denglin     
    Public chexing     
    Public Actionconn  '数据库连接
    Public Keyword       '关键字
    public adCmdText
    'BookManagerClass的私有属性
    Private action
    Private idd
    
    '构造函数
    Private Sub Class_initialize
        Reset()
    End Sub
    
    '解析函数
    Private Sub Class_terminate
        Reset()
        ActionConn.close
        Set ActionConn=Nothing
    End Sub


    Public Sub Reset()
        chepaihao=""
        xingming=""
        sex="男"
        shenfid=""
        tel=""
        address=""
        jiazhenggrade="A级"
        zujing=""
        denglin=""
        chexing=""
        Keyword=""
        action=Request.QueryString("action")
    End Sub
'# ----------------------------------------------------------------------------
'# 函数：pagehtmlForm
'# 描述：显示表单页面
'#-----------------------------------------------------------------------------
    Private Function PageHtmlForm()
        %>
<
        <%if Request("action")="add" then
            Response.write "添加"
            else 
            Response.write "修改"
            end if%>
      
            <%If action="add" Then
                Response.Write "添加员工信息"
            ElseIf action="modify" Then
                Response.Write "修改员工信息"
            End if 
            %> 
    
        <%
        
    End Function
'# ----------------------------------------------------------------------------
'# 函数：SetSelected
'#-----------------------------------------------------------------------------    
    Private Function SetSelected(op)
      Dim i
      i=1  
      if op=2 then
        do while i<11 %>
          <option  value="<%=i%>" <%if bookedition=i then%>selected<%end if%>><%=i%></option>"
      <%i=i+1
        loop
      end if
      
      if op=1 then
      '获取书籍类型
      Dim Rs,Sql
      Set Rs=Server.Createobject("Adodb.Recordset")
      Sql="Select chepaihao From  员工基本信息表"
      Rs.Open Sql,Actionconn,3,2
      do while not Rs.eof %>
      <option value="<%=Rs("chepaihao")%>" <%if BookType=Rs("chepaihao") then %>selected<%end if%>><%=Rs("chepaihao")%></option>
      <%Rs.movenext
      loop
      Rs.Close
      set Rs=nothing
      end if      
    End Function
    
'# ----------------------------------------------------------------------------
'# 函数：PageHtmlList
'# 描述：实现对员工信息的查询，用like模糊查询
'#-----------------------------------------------------------------------------
    Private Function PageHtmlList()
        Dim sMathod,sKey,condition
        sKey=Request("key")
        sMathod=Request("fw")
        select Case sMathod
          Case "bid" condition=" where chepaihao "
          Case "bname" condition=" where xingming "
          Case "bauthor" condition=" where dingdenghao "
              end select
        if condition<>"" then
          condition=condition+" like '%"&sKey&"%'"
        end if
        %>
        
        <%
        Dim Rs,Sql
        Set Rs=Server.Createobject("Adodb.Recordset")
        Sql="Select * From 员工基本信息表 "&condition&" order by chepaihao"
        Rs.Open Sql,Actionconn,3,2
        Do While not Rs.eof
        chepaihao=Rs("chepaihao")        
        xingming=Rs("xingming")
        sex=Rs("sex")
        shenfid=Rs("shenfid")
        tel=Rs("tel")
        address=Rs("address")
        jiazhenggrade=Rs("jiazhenggrade")
        dingdenghao=Rs("dingdenghao")
        zujing=Rs("zujing")
        denglin=Rs("denglin")
        chexing=Rs("chexing")
        %>
        
        <%
        Rs.movenext
        loop
        Rs.Close
        set Rs=nothing    
        %>
        </table>
        <BR>
        </div>
        </form>
        <% 
    End Function
    
'# ----------------------------------------------------------------------------
'# 函数：RequestForm
'# 描述：将页面信息保存到浏览器缓存中 
'#-----------------------------------------------------------------------------
    Private Function RequestForm()
        action=indb(Request.QueryString("action"))
        '需要被删除的记录
        chepaihao=indb(Request.Form("chepaihao"))   
        xingming=indb(Request.form("xingming"))        
        sex=indb(Request.Form("sex"))
        shenfid=indb(Request.Form("shenfid"))
        tel=indb(Request.Form("tel"))
        address=indb(Request.Form("address"))
        jiazhenggrade=indb(Request.Form("jiazhenggrade"))
        dingdenghao=indb(Request.Form("dingdenghao"))
        zujing=indb(Request.Form("zujing"))
        denglin=indb(Request.Form("denglin"))
        chexing=indb(Request.Form("chexing"))
    End Function
    
'# ----------------------------------------------------------------------------
'# 函数：Addpage
'# 描述：添加书籍信息页面
'# 参数： -
'# 返回：
'# 日期：2005-11-14
'#-----------------------------------------------------------------------------
    Public Function AddPage()
        If LCase(Request.ServerVariables("request_method"))="post" Then
            RequestForm()
            pagination()            
        Else
            PageHtmlForm()
        End If
    End Function
'# ----------------------------------------------------------------------------
'# 函数：Pagination
'# 描述：内容分页的实现--->通过Add（）函数添加员工信息
'#-----------------------------------------------------------------------------
    Private Function Pagination()
        Add()
        If Err Then
            Call Go2_Error("员工信息添加失败")
        Else
            Call Go_Success("员工信息添加成功","?action=list")
        End If
    End Function
'# ----------------------------------------------------------------------------
'# 函数：Modifypage
'# 描述：修改员工信息
'#-----------------------------------------------------------------------------
    Public Function ModifyPage()
        RequestForm()
        
        If LCase(Request.ServerVariables("request_method"))="post" Then
            RequestForm()
            Modify()
        Else
            GetBook(chepaihao)
            PageHtmlForm()
        End If
    End Function
'# ----------------------------------------------------------------------------
'# 函数：listpage
'# 描述：员工信息列表函数
'#-----------------------------------------------------------------------------
    Public Function ListPage() 
        PageHtmlList()
    End Function    
'# ----------------------------------------------------------------------------
'# 函数：Deletepage
'# 描述：删除员工信息页面
'#-----------------------------------------------------------------------------
    Public Function DeletePage()
        If LCase(Request.ServerVariables("request_method"))="post" Then
            RequestForm()
            Delete()
        Else
            PageHtmlList()
        End If
    End Function
    
'# ----------------------------------------------------------------------------
'# 函数：Delete
'# 描述：删除员工
'#-----------------------------------------------------------------------------
    Private Function Delete()
        Dim Sql
        If chepaihao<>"" Then
            Sql="Delete From 员工基本信息表 Where chepaihao="&chepaihao
        Else 
            Sql="Delete From 员工基本信息表 where chepaihao in ('&idd&')"
        End If
        Actionconn.Execute Sql,,adCmdText

        If Err Then
            Call Go2_Error("员工删除失败")
        Else
            Call Go_Success("员工删除成功","?action=list")
        End If
        
    End Function


'# ----------------------------------------------------------------------------
'# 函数：add
'# 描述：添加员工信息
'#-----------------------------------------------------------------------------
    Private Function Add()
        if Trim(chepaihao)="" then
           Go2_Error("车牌号不能为空！")
        End If
        
        sSql="insert into 员工基本信息表 ([chepaihao],[xingming],[sex],[shenfid],[tel],[address],[jiazhenggrade],[dingdenghao],[zujing],[denglin],[chexing]) Values "&_
             "('"&chepaihao&"','"&xingming&"','"&sex&"','"&shenfid&"','"&tel&"','"&address&"','"&jiazhenggrade&"','"&dingdenghao&"','"&zujing&"','"&denglin&"','"&chexing&"')"
        Actionconn.Execute sSql
    End Function

'# ----------------------------------------------------------------------------
'# 函数：Modify
'# 描述：修改员工信息
'#-----------------------------------------------------------------------------
    Private Function Modify()
        if Trim(chepaihao)="" then
           Go2_Error("员工信息不能为空！")
        End If
        Dim Rs,Sql
        Set Rs=Server.Createobject("Adodb.Recordset")
        Sql="Select * From 员工基本信息表 Where chepaihao="&chepaihao&""
        Rs.Open Sql,Actionconn,3,2
        Rs("chepaihao")=chepaihao
        Rs("xingming")=xingming
        Rs("sex")=sex
        Rs("shenfid")=shenfid
        Rs("tel")=tel
        Rs("address")=address
        Rs("jiazhenggrade")=jiazhenggrade
        Rs("dingdenghao")=dingdenghao
        Rs("zujing")=zujing
        Rs("denglin")=denglin
        Rs("chexing")=chexing
        Rs.Update
        Rs.Close
        Set Rs=Nothing
        If Err Then
            Call Go_Error("员工信息修改失败")
        Else
            Call Go_Success("员工信息修改成功","?action=list")
        End If
    End Function


'# ----------------------------------------------------------------------------
'# 函数：GetReader
'# 描述：取得单个员工的信息
'#-----------------------------------------------------------------------------
    Public Function GetBook(Gid)
        Dim Rs
        Set Rs=Actionconn.Execute("Select * From 员工基本信息表 Where chepaihao='"&Gid&"'")
        if Not (Rs.eof and Rs.bof) then
        chepaihao=Rs("chepaihao")
        xingming=Rs("xingming")
        sex=Rs("sex")
        shenfid=Rs("shenfid")
        tel=Rs("tel")
        address=Rs("address")
        jiazhenggrade=Rs("jiazhenggrade")
        dingdenghao=Rs("dingdenghao")
        zujing=Rs("zujing")
        denglin=Rs("denglin")
        chexing=Rs("chexing")
        end if
        Rs.Close
        Set Rs=Nothing
    End Function
    
    
End Class

%>
我要通过idd那个复选框实现多个删除,麻烦帮我看一下,谢谢了啊