|
社区版主
  
- 帖子
- 488
- 积分
- 3893
- 注册时间
- 2008-1-9
- 最后登录
- 2008-10-14
|
楼主
大 中
小 发表于 2008-5-15 16:29 只看该作者
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
%>
|
