If Trim(Request.Form("chkBox"))<>"" Then
'Dim chks,strSQL,rsDel
'strSQL = " DELETE FROM V_DQ_CDS00COR WHERE CORPKEY IN ( "
set rsSchema=conn.OpenSchema(20) '先获取数据库中的表名及相关属性
do while not rsSchema.eof
if rsSchema(3)="TABLE" then '从所有表中找出用户表
' response.write "select * from '"&rsSchema(2)&"' where 1<>1"&"<br>"
colstr=""
set col=conn.execute("select * from "&rsSchema(2)&" where 1<>1")
for i=0 to col.fields.count-1
colstr=colstr&col.fields(i).name&"," '获得每个表的列名,形成一个字符串
next
if instr(1,colstr,"CORPKEY") then '查看关键字是否在列名字符串中,如在,则执行删除操作.
strSQL="delete from "&rsSchema(2)&" where corpkey in ( "
For Each chks In Request.Form("chkBox")
strSQL = strSQL & "'"&chks & "',"
Next
strSQL = Left(strSQL,Len(strSQL)-1)
strSQL = strSQL & " ) "
'response.write instr(1,colstr,"CORPKEY")
'response.write strSQL&"<br>"
conn.Execute(strSQL) '删除记录
end if
'response.write rsSchema(2)&"<br>" 'strSql
'response.write rsSchema(3)&"<br>"'
'response.write colstr&"&<br>"
'response.write instr(colstr,"CORPKEY,")&"<br>"
col.close
end if
'col.close
rsSchema.movenext
loop
rsSchema.close
End If