ASP刪除與大量刪除的代碼

 

<!--#include file="Connections/conn.asp" -->
<%
set c.CreateObject("ADODB.Connection")
conn.c
conn.open
set com=server.CreateObject("ADODB.Command")
com.CommandText="delete from Portal_Articles where articleid="+ request.QueryString("articleId")
com.ActiveC
com.execute()
response.Redirect("admin_articles.asp")
'conn.execute("insert into portal_articles (title,author,catid) values('1314','test',5)")
'conn.close()
'response.Redirect("admin_articles.asp")
%>
''大量刪除代碼
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<script language="javascript">
function SelectAllCheckboxes(spanChk){

var xState=spanChk.checked;
var theBox=spanChk;
  elm=theBox.form.elements;//擷取form下的所有控制項
  for(i=0;i<elm.length;i++)
  if(elm.type=="checkbox" && elm.id!=theBox.id)
   {
   if(elm.checked!=xState)
   elm.click();
   }
}
</script>
<!--#include file="Connections/conn.asp" -->
<%
'擷取所有選中ID串
dim myIds
myIds=request.Form("chkId")
'分離Id到數組
dim ArticleIds
ArticleIds=split(myIds,", ")
'response.write(ubound(ArticleIds))
'串連資料庫
'response.write(myIds)
set c.CreateObject("ADODB.Connection")
conn.c
conn.open
'''''''''''''''''''''''''''''''''''''''''''
'迴圈刪除選中id
dim i
for i=0 to ubound(ArticleIds)
  sqlstr="delete from portal_articles where ArticleId="+ArticleIds(i)
  conn.execute(sqlstr)
  'response.write(sqlstr+"<br />")  
next
conn.close
if ubound(ArticleIds)>=0 then response.redirect("admin_articles.asp")'修正dreamweaver自動產生代碼仍顯示清除記錄的Bug
%>   

''刪除代碼

<!--#include file="Connections/conn.asp" -->
<%
set conn=server.CreateObject("ADODB.Connection")
conn.connectionString=MM_conn_STRING
conn.open
set com=server.CreateObject("ADODB.Command")

com.CommandText="delete from Portal_Articles where articleid="+ request.QueryString("articleId")
com.ActiveConnection=conn
com.execute()
response.Redirect("admin_articles.asp")
'conn.execute("insert into portal_articles (title,author,catid) values('1314','test',5)")
'conn.close()
'response.Redirect("admin_articles.asp")
%>

''大量刪除代碼

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<script language="javascript">

 function SelectAllCheckboxes(spanChk){
 
 var xState=spanChk.checked;
 var theBox=spanChk;
  elm=theBox.form.elements;//擷取form下的所有控制項
  for(i=0;i<elm.length;i++)
  if(elm[i].type=="checkbox" && elm[i].id!=theBox.id)
   {

   if(elm[i].checked!=xState)
   elm[i].click();

   }
 }
</script>

<!--#include file="Connections/conn.asp" -->
<%
'擷取所有選中ID串
dim myIds
myIds=request.Form("chkId")

'分離Id到數組
dim ArticleIds
ArticleIds=split(myIds,", ")
'response.write(ubound(ArticleIds))
'串連資料庫
'response.write(myIds)
set conn=server.CreateObject("ADODB.Connection")
conn.connectionString=MM_conn_STRING
conn.open
'''''''''''''''''''''''''''''''''''''''''''
'迴圈刪除選中id
dim i
for i=0 to ubound(ArticleIds)
  sqlstr="delete from portal_articles where ArticleId="+ArticleIds(i)
  conn.execute(sqlstr)
  'response.write(sqlstr+"<br />") 
next
conn.close
if ubound(ArticleIds)>=0 then response.redirect("admin_articles.asp")'修正dreamweaver自動產生代碼仍顯示清除記錄的Bug
%>