vbscript 传递选择行的 ID 接受ID并删除所有行

<script LANGUAGE="vbscript">
<!--
 sub doDel()
 if msgbox("确认要删除所选的信息吗?",vbQuestion+vbyesno,"删除信息")=vbno then exit sub    
 Dim StrID,m
 StrID=""     
 for each m in form1.elements   
  if m.type="checkbox"  then
   if m.checked then
    if StrID = "" then     
     StrID= m.value
    else
     StrID=StrID &  ","  &  m.value
    end if
   end if
  END IF     
 next      
 
 IF StrID<>"" THEN
  //form1.id.value=StrID
  form1.action="jsy_del.asp?jsyxh="+ StrID
  form1.submit()  
 else
  msgbox "您没有选择任何单据!" ,vbExclamation,"提示"
  exit sub
 END IF     
 end sub
-->
</script>

 

 

 

 

<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../data/connect.asp" -->
<!-- #INCLUDE FILE="../Share/pubfunction.asp" -->

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
    dim sJsyxh
 sJsyxh = ""
 sJsyxh = Request("jsyxh") 
 Response.Write sClxh
    set rs = server.CreateObject("adodb.recordset")
    sql = "delete from OA_CLJSY where jsyxh in ( "&sJsyxh&")"
    rs.Open sql,conn,1,3
%>
<script language=vbscript>
location.href = "../shebei/jsy_list.asp?"
</script>
</BODY>
</HTML>

你可能感兴趣的:(sql,Microsoft,File,delete,VBScript,generator)