www.gusucode.com > 漂亮的地方旅游景点景观介绍网站源代码 > admin/data/clear.asp

    <!--#include file="../config.asp" -->
<!--#include file="../../inc/page.asp" -->
<%
select case action
case "show",""
call show()
case "go"
call go()
end select

'显示
sub show()
mytit="系统初始化"
call head()
%>
<link href="../inc/mm.css" rel="stylesheet" type="text/css" />
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#116BAE">
<form action="?action=go" method="post" id="form1" name="form1">
<tr>
<td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td height="25" id="tit"><%= mytit %></td>
</tr>
<tr>
<td height="25" bgcolor="#C8E6F7"> &nbsp;<strong><span class="fontr">警告：此操作将会清除网站所有资料、数据，请慎用！</span></strong></td>
</tr>
<tr>
<td bgcolor="#C8E6F7"><input name="go" type="button" class="button_1" id="go" value="系统初始化" onMouseUp="tjqr('此操作将会清除网站所有资料、数据，请慎用！','?action=go')" onMouseOver="this.className='button_2'" onMouseOut="this.className='button_1'"/></td>
</tr>
</table></td>
</tr>
</form>
</table>
<%
call connend()
call foot()
end sub

sub go()
dim i
call record(rs,"select top 1 * from Jw_config",3)
dim ht
ht=rs("hturl")
for i=0 to 62
rs(i)=0
next
rs("hturl")=ht
rs("cssj")=now()
rs.update()
call recordend(rs)

conn.execute("delete * from Jw_aboutclass")
conn.execute("delete * from Jw_adminlog")
conn.execute("delete * from Jw_dc")
conn.execute("delete * from Jw_dcxx")
conn.execute("delete * from Jw_down")
conn.execute("delete * from Jw_downclass")
conn.execute("delete * from Jw_flv")
conn.execute("delete * from Jw_flvclass")
conn.execute("delete * from Jw_guestbook")
conn.execute("delete * from Jw_honor")
conn.execute("delete * from Jw_honorclass")
conn.execute("delete * from Jw_beifen")
conn.execute("delete * from Jw_infos")
conn.execute("delete * from Jw_links")
conn.execute("delete * from Jw_linksclass")
conn.execute("delete * from Jw_menu")
conn.execute("delete * from Jw_menus")
conn.execute("delete * from Jw_news")
conn.execute("delete * from Jw_newsclass")
conn.execute("delete * from Jw_newskey")
conn.execute("delete * from Jw_notice")
conn.execute("delete * from Jw_noticeclass")
conn.execute("delete * from Jw_online")
conn.execute("delete * from Jw_pic")
conn.execute("delete * from Jw_picclass")
conn.execute("delete * from Jw_por")
conn.execute("delete * from Jw_porclass")
conn.execute("delete * from Jw_tongji")
conn.execute("delete * from Jw_tongji2")
conn.execute("delete * from Jw_upfile")
conn.execute("delete * from Jw_yp")
conn.execute("delete * from Jw_zp")

conn.execute("delete * from Jw_admin where admin_name<>'icewolf'")
conn.execute("update Jw_admin set dgrees=0,ctim=now(),lasttime=now() where admin_name='icewolf'")

'压缩数据库
call connend()
dim ys
Const JET_3X = 4 
ys=CompactDB(pdlj(mydb),"false")
'删除文件
call delfol("/uploadfile")
call delfol("/admin/data_bak")
call cc("系统初始化成功")
end sub

Function CompactDB(dbPath, boolIs97) 
Dim fso, Engine, strDBPath 
strDBPath = left(dbPath,instrrev(DBPath,"\")) 
Set fso = CreateObject("Scripting.FileSystemObject") 

If fso.FileExists(dbPath) Then 
Set Engine = CreateObject("JRO.JetEngine") 

If boolIs97 = "True" Then 
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb;" _ 
& "Jet OLEDB:Engine Type=" & JET_3X 
Else 
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _ 
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" 
End If 
fso.CopyFile strDBPath & "temp.mdb",dbpath 
fso.DeleteFile(strDBPath & "temp.mdb") 
Set fso = nothing 
Set Engine = nothing 
CompactDB = "你的数据库, " & dbpath & ", 已经被压缩.!" & vbCrLf 
Else 
CompactDB = "数据库名字不正确!" & vbCrLf 
End If 
End Function 

%>