admin_delall.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%admheader
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_delall.asp
'Version:2.0
'UpdateTime: 2004-10-6 19:20:13
'Script Written by www.aspease.com 
'=========================================================
if rst("action")="delcat" then
	if request("catid")="" or (not isnumeric(request("catid"))) then
		response.write "error"
		response.end
	end if
	conn.execute("delete from auctions where auc_catid="&request("catid"))
	response.write "数据清空成功,请返回"
	admfooter
	response.end
end if
if rst("action")="save" then
c1=rst("c1")
c1=replace(c1,"'","")
c1=replace(c1,";","")
c1=replace(c1,"--","")
c1=replace(c1,")","")
incept=split(c1,",")
for i=0 to ubound(incept)
conn.execute("delete from "&incept(i))
next
admfooter
response.Write("<script language=javascript>{alert( '已经全部清空数据');location.href='admin_delall.asp';}</script>")
end if
response.Write("<table width=""95%"" align=center border=""0"" cellspacing=""1"" cellpadding=""0"" class=""tableBorder"">")
response.Write("  <form name=""form1"" method=""post"" action=""admin_delall.asp?action=save"">")
response.Write("    <tr> ")
response.Write("      <th height=""25"" colspan=""2"">请选择要清空的数据表 </th>")
response.Write("    </tr>")
set rs = conn.OpenSchema(adSchemaTables)
i=0
response.write "<tr>"
rs.movefirst
do while not rs.eof
if rs("table_type") = "TABLE" then
response.Write("<td class=""Row""><input name=""c1"" type=""checkbox"" value=""")
response.Write(rs("table_name"))
response.Write(""" ")
if rs("table_name")="admin" or rs("table_name")="webconfig" or rs("table_name")="address" then response.write "disabled" else response.write "checked" end if
response.Write(">")
response.Write(rs("table_name"))
response.Write("</td>")
end if
if instr(rs("table_name"),"MSys")>0 then 
	i=i
	rs.movenext	
else
i=i+1
	rs.movenext	
	If rs.eof AND i mod 2 = 1 Then
		Response.Write "<TD class=""Row"">&nbsp;</TD>"
	End If
	if i mod 2 =0 then 
		response.write "</tr><tr>"
	end if
end if
loop
admfooter
Response.Write "</TR>"
response.Write(" <tr> ")
response.Write("      <td colspan=""2"" class=""Row"">")
response.Write("        <input type=""submit"" name=""Submit"" value=""清空"" onclick=""{if(confirm('确定要清空这些表中记录吗?\n希望你备份数据库，再做清空操作')){this.document.frmShop.submit();return true;}return false;}""> ")
response.Write("        <input type=""reset"" name=""Submit2"" value=""重置""></td>")
response.Write("    </tr>")
response.Write("  </form>")
response.Write("</table>")
response.Write("</body>")
response.Write("</html>")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: admin_delall.asp
'Version:2.0
'UpdateTime: 2004-10-6 19:20:13
'Script Written by www.aspease.com 
'=========================================================%>