ASP删除与批量删除的代码
<STRONG><FONT size=4><FONT color=#ff0000><FONT face=楷体_GB2312><!--#include file="Connections/conn.asp" --><BR><%<BR>set c.CreateObject("ADODB.Connection")<BR>conn.c<BR>conn.open<BR>set com=server.CreateObject("ADODB.Command")<WBR><WBR><BR><WBR></FONT></FONT></FONT></STRONG><STRONG><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000>com.CommandText="delete from Portal_Articles where articleid="+ request.QueryString("articleId")<BR>com.ActiveC<BR>com.execute()<BR>response.Redirect("admin_articles.asp")<BR>'conn.execute("insert into portal_articles (title,author,catid) values('1314','test',5)")<BR>'conn.close()<BR>'response.Redirect("admin_articles.asp")<BR>%></FONT><WBR><WBR><BR></STRONG><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000>''批量删除代码</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000><%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><BR><script language="javascript"></FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000>function SelectAllCheckboxes(spanChk){<BR><BR>var xState=spanChk.checked;<BR>var theBox=spanChk;<BR> elm=theBox.form.elements;//获取form下的所有控件<BR> for(i=0;i<elm.length;i++)<BR> if(elm[i].type=="checkbox" && elm[i].id!=theBox.id)<BR> {</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000> if(elm[i].checked!=xState)<BR> elm[i].click();</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000> }<BR>}<BR></script></FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000><!--#include file="Connections/conn.asp" --><BR><%<BR>'获取所有选中ID串<BR>dim myIds <BR>myIds=request.Form("chkId")</FONT><WBR></B><WBR><BR><B><WBR><FONT style="FONT-SIZE: medium; LINE-HEIGHT: 1.3em" face=楷体_GB2312 color=#ff0000>'分离Id到数组<BR>dim ArticleIds<BR>ArticleIds=split(myIds,", ")<BR>'response.write(ubound(ArticleIds))<BR>'连接数据库<BR>'response.write(myIds)<BR>set c.CreateObject("ADODB.Connection")<BR>conn.c<BR>conn.open<BR>'''''''''''''''''''''''''''''''''''''''''''<BR>'循环删除选中id<BR>dim i<BR>for i=0 to ubound(ArticleIds)<BR> sqlstr="delete from portal_articles where ArticleId="+ArticleIds(i)<BR> conn.execute(sqlstr)<BR> 'response.write(sqlstr+"<br />") <BR>next<BR>conn.close<BR>if ubound(ArticleIds)>=0 then response.redirect("admin_articles.asp")'修正dreamweaver自动生成代码仍显示清除记录的Bug<BR>%></FONT><WBR></B><WBR><IMG id=paperPicArea1 style="DISPLAY: none; POSITION: relative" src="http://imgcache.qq.com/ac/qzone_v4/b.gif">页:
[1]