?? admin_dbmake.asp
字號(hào):
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%
Dim Admin_Class,Page
Call Master_Us()
Header()
Admin_Class=",10,"
Call Master_Se()
team.SaveLog (" 論壇維護(hù)")
Page = HRF(2,2,"Page")
Select Case Request("action")
Case "updates"
Call updates
Case "runquery"
Call runquery
Case "reforums"
Call reforums
Case "updatestb"
Call updatestb
Case "creattable"
Call creattable
Case "reforumdel"
Call reforumdel
Case "upfiles"
Call upfiles
Case "attachments"
Call attachments
Case "deleattachments"
Call deleattachments
Case "BakUserbf"
Call BakUserbf
Case "SQLUserReadme"
Call SQLUserReadme
Case "rebakuserdata"
Call rebakuserdata
Case "compressdata"
Call compressdata
Case "clearmsg"
Call clearmsg
Case "delmsgok"
Call delmsgok
Case "savelog"
Call savelog
Case "dellogok"
Call dellogok
Case Else
Call Main
End Select
Sub dellogok
Dim lConnStr,lConn,ldb,ho
ldb = MyDbPath & LogDate
lConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(ldb)
Set lConn = Server.CreateObject("ADODB.Connection")
lConn.Open lConnStr
for each ho in Request.form("deleteid")
lConn.execute("Delete from [SaveLog] Where ID="&ho)
Next
SuccessMsg " 選中的操作記錄已經(jīng)被刪除，請(qǐng)等待系統(tǒng)自動(dòng)返回到 <a href=Admin_dbmake.asp?action=savelog>操作記錄管理 </a> 頁(yè)面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=savelog>。 "
End Sub
Sub savelog %>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<br>
<form method="post" action="?action=dellogok">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr>
<td class="a1" colspan="6">操作記錄管理</td>
</tr>
<tr class="tab3">
<td><input type="checkbox" name="chkall" onClick="checkall(this.form)" class="radio"> 刪</td><td>操作人員</td><td>登陸IP</td><td>操作詳情</td><td>操作時(shí)間</td><td>用戶瀏覽器</td>
</tr>
<%
Dim Rs,tocou,Maxpage,PageNum,Shows
Dim SQL,i
Dim lConnStr,lConn,ldb
ldb = MyDbPath & LogDate
lConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(ldb)
Set lConn = Server.CreateObject("ADODB.Connection")
lConn.Open lConnStr
Set Rs = Server.CreateObject("ADODB.RecordSet")
If Not IsObject(Conn) Then ConnectionDatabase
tocou = lConn.execute("Select Count(ID) From [SaveLog]")(0)
SQL = "Select ID,UserName,IP,Windows,Remark,Logtime From [SaveLog] Order By ID DESC"
Rs.Open SQL,lConn,1,1,&H0001
If Rs.Eof And Rs.Bof Then
Echo "<tr class=""a4""><td colspan=""6"" align=""center""> 暫無(wú)內(nèi)容操作記錄 </td></tr></table>"
Else
Maxpage = 50
PageNum = Abs(int(-Abs(tocou/Maxpage))) '頁(yè)數(shù)
Page = CheckNum(Page,1,1,1,PageNum) '當(dāng)前頁(yè)
Rs.AbsolutePosition=(Page-1)*Maxpage+1
Shows = Rs.GetRows(Maxpage)
Rs.Close:Set Rs=Nothing
End If
If Not IsArray(Shows) Then
Exit Sub
End If
For i=0 To Ubound(shows,2)
Echo "<tr class=""tab4""><td><input type=""checkbox"" name=""deleteid"" value="&Shows(0,i)&" class=""radio""></td><td> <a href=""../Profile.asp?username="& Shows(1,i) &""" target=""_blank"" alt=""點(diǎn)擊查看"">"& Shows(1,i) &"</a> </td><td> "& Shows(2,i) &" </td><td align=""left""> "& Shows(4,i) &" </td><td>"& Shows(5,i) &" </td><td>"& Shows(3,i) &" </td></tr>"
Next
Echo "<tr class=""a4""><td colspan=""6"">"
Echo "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center""><tr><td>"
Echo "<script language=""JavaScript"">"
Echo" var pg = new showPages('pg'); "
Echo" pg.pageCount = "& PageNum &" ; "
Echo" pg.dispCount = "& tocou &"; "
Echo" pg.argName = 'Page';"
Echo" pg.printHtml(1); "
Echo "</script></td></tr></table></td></tr></table><BR/><center><input type=""submit"" name=""onlinesubmit"" value=""提 交""></center></form>"
Set lConn = Nothing
End Sub
Sub delmsgok
Dim ho
If Request.Form("chkallmsg") = 1 Then
team.execute("Delete from ["&IsForum&"Message] ")
SuccessMsg " 所有的短信已經(jīng)被刪除，請(qǐng)等待系統(tǒng)自動(dòng)返回到 <a href=Admin_dbmake.asp?action=clearmsg>短信管理 </a> 頁(yè)面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=clearmsg>。 "
Else
for each ho in Request.form("deleteid")
team.execute("Delete from ["&IsForum&"Message] Where ID="&ho)
Next
SuccessMsg " 選中的短信已經(jīng)被刪除，請(qǐng)等待系統(tǒng)自動(dòng)返回到 <a href=Admin_dbmake.asp?action=clearmsg>短信管理 </a> 頁(yè)面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=clearmsg>。 "
End if
End Sub
Sub clearmsg %>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<br>
<form method="post" action="?action=delmsgok">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr>
<td class="a1" colspan="5">短信管理 (刪除所有短信<input type="checkbox" name="chkallmsg" class="radio" value="1"> )</td>
</tr>
<tr class="tab3">
<td><input type="checkbox" name="chkall" onClick="checkall(this.form)" class="radio"> 刪 </td><td>發(fā)送人</td><td>接受人</td><td>標(biāo)題</td><td>發(fā)送時(shí)間</td>
</tr>
<%
Dim Rs,tocou,Maxpage,PageNum,Shows
Dim SQL,i
Set Rs = Server.CreateObject("ADODB.RecordSet")
If Not IsObject(Conn) Then ConnectionDatabase
tocou = team.execute("Select Count(ID) From ["&IsForum&"Message]")(0)
SQL = "Select ID,author,incept,msgtopic,Sendtime,isbak From ["&IsForum&"Message] Order By Sendtime asc"
Rs.Open SQL,Conn,1,1,&H0001
If Rs.Eof And Rs.Bof Then
Echo "<tr class=""a4""><td colspan=""5"" align=""center""> 短信箱暫無(wú)內(nèi)容 </td></tr></table>"
Else
Maxpage = 20
PageNum = Abs(int(-Abs(tocou/Maxpage))) '頁(yè)數(shù)
Page = CheckNum(Page,1,1,1,PageNum) '當(dāng)前頁(yè)
Rs.AbsolutePosition=(Page-1)*Maxpage+1
Shows = Rs.GetRows(Maxpage)
Rs.Close:Set Rs=Nothing
End If
If Not IsArray(Shows) Then
Exit Sub
End If
For i=0 To Ubound(shows,2)
Echo "<tr class=""tab4""><td><input type=""checkbox"" name=""deleteid"" value="&Shows(0,i)&" class=""radio""></td><td> <a href=""../Profile.asp?username="& Shows(1,i) &""" target=""_blank"" alt=""點(diǎn)擊查看"">"& Shows(1,i) &"</a> </td><td> <a href=""../Profile.asp?username="& Shows(2,i) &""" target=""_blank"">"& Shows(2,i) &"</a> </td><td align=""left""> <a href=""../Msg.asp?action=readmsg&sid="& Shows(0,i) &""" target=""_blank"">"& Shows(3,i) &"</a> "
If Shows(5,i) = 1 Then
Echo " - [草稿]"
End if
Echo "</td><td>"& Shows(4,i) &" </td></tr>"
Next
Echo "<tr class=""a4""><td colspan=""5"">"
Echo "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center""><tr><td>"
Echo "<script language=""JavaScript"">"
Echo" var pg = new showPages('pg'); "
Echo" pg.pageCount = "& PageNum &" ; "
Echo" pg.dispCount = "& tocou &"; "
Echo" pg.argName = 'Page';"
Echo" pg.printHtml(1); "
Echo "</script></td></tr></table></td></tr></table><BR/><center><input type=""submit"" name=""onlinesubmit"" value=""提 交""></center></form>"
End Sub
Sub deleattachments
Dim ho,mFso,fPath,Rs,fName
fPath = "../Images/Upfile/"
Set mFso = Server.CreateOBject("Scripting.FileSystemObject")
for each ho in Request.form("deleteid")
Set Rs = team.execute("Select FileName From ["&IsForum&"Upfile] Where FILEID="&ho)
If Not Rs.Eof Then
fName = fPath & Rs(0)
If mFso.FileExists(Server.mappath(fName)) Then
'On Error Resume Next
mFso.deletefile(Server.mappath(fName))
End If
End if
team.execute("Delete from ["&IsForum&"Upfile] Where FILEID="&ho)
SuccessMsg " 選中的附件已經(jīng)被刪除，請(qǐng)等待系統(tǒng)自動(dòng)返回到 <a href=Admin_dbmake.asp?action=upfiles>附件管理 </a> 頁(yè)面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=upfiles>。 "
Next
End Sub
Sub attachments
Dim inforum,dmincount,dmaxcount,upname,upsize
Dim Twher,tocou,sql,Maxpage,PageNum,Rs,Shows
Dim i,tids
inforum = HRF(1,2,"inforum")
tids = HRF(1,2,"tids")
upname = HRF(1,1,"upname")
upsize = HRF(1,1,"upsize")
dmaxcount = HRF(1,2,"dmaxcount")
dmincount = HRF(1,2,"dmincount")
If upname&"" = "" Then
Twher = " UserName <>'' "
Else
Twher = " UserName Like '% "& upname &" %' "
End if
If upsize <> "" Then
Twher = Twher & " and FileName Like '% "& upsize &" %'"
End if
If dmaxcount > 0 Then
Twher = Twher & " and Upcount>"& dmaxcount &" "
End if
If dmincount > 0 Then
Twher = Twher & " and Upcount<"& dmincount &" "
End If
If inforum > 0 Then
Twher = Twher & " and FID="& Int(inforum) &" "
End If
If tids > 0 Then
Twher = Twher & " and ID="& Int(tids) &" "
End if
tocou = team.execute("Select Count(ID) From ["&IsForum&"Upfile] Where "&Twher&" ")(0)
Set Rs = Server.CreateObject("ADODB.RecordSet")
If Not IsObject(Conn) Then ConnectionDatabase
SQL = "Select FILEID,ID,FID,UserName,FileName,Types,FileSize,Upcount,ByPowers,Lasttime From ["&IsForum&"Upfile] Where "&Twher&" Order By Lasttime Desc"
Rs.Open SQL,Conn,1,1,&H0001
Response.Write "<body Style=""background-color:#8C8C8C"" text=""#000000"" leftmargin=""10"" topmargin=""10""><br><br><form method=""post"" action=""?action=deleattachments""><table cellspacing=""1"" cellpadding=""5"" width=""95%"" align=""center"" border=""0"" class=""a2""><tr class=""a3""><td colspan=""8"" align=""center"">本次搜索共找到 <Font color=""red"">"& tocou &"</Font> 條相關(guān)附件記錄</td></tr><tr class=""tab1""><td><input type=""checkbox"" name=""chkall"" onClick=""checkall(this.form)"" class=""radio""> 刪</td><td> 附件名稱</td><td>帖子鏈接</td><td>上傳用戶</td><td>上傳時(shí)間</td><td>閱讀權(quán)限</td><td>下載次數(shù)</td><td>主題狀態(tài)</td></tr>"
If Rs.Eof And Rs.Bof Then
Echo "<tr class=""a4""><td colspan=""8"" align=""center""> 對(duì)不起，沒(méi)有找到您要查詢的內(nèi)容 </td></tr></table>"
Else
Maxpage = 20
PageNum = Abs(int(-Abs(tocou/Maxpage))) '頁(yè)數(shù)
Page = CheckNum(Page,1,1,1,PageNum) '當(dāng)前頁(yè)
Rs.AbsolutePosition=(Page-1)*Maxpage+1
Shows = Rs.GetRows(Maxpage)
Rs.Close:Set Rs=Nothing
End If
If Not IsArray(Shows) Then
Exit Sub
End If
For i=0 To Ubound(shows,2)
Echo "<tr class=""tab4""><td><input type=""checkbox"" name=""deleteid"" value="&Shows(0,i)&" class=""radio""></td><td> <a href=""../Images/Upfile/"& Shows(4,i) &""" target=""_blank"" alt=""點(diǎn)擊查看"">"& Shows(4,i) &"</a> </td><td> <a href=""../Thread.asp?tid="& Shows(1,i) &""" target=""_blank"">帖子鏈接</a> </td><td>"& Shows(3,i) &"</td><td>"& Shows(9,i) &" </td><td>"& Shows(8,i) &"</td><td>"& Shows(7,i) &"</td><td>"
Set Rs = team.execute("Select Deltopic from ["&IsForum&"Forum] Where ID="& Shows(1,i))
If Rs.Eof And Rs.Bof Then
Echo "已刪除"
Else
If Rs(0) = 1 Then
Echo "已刪除"
Else
Echo "正常"
End If
End if
Echo "</td></tr>"
Next
Echo "<tr class=""a4""><td colspan=""8"">"
Echo "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center""><tr><td>"
Echo "<script language=""JavaScript"">"
Echo" var pg = new showPages('pg'); "
Echo" pg.pageCount = "& PageNum &" ; "
Echo" pg.dispCount = "& tocou &"; "
Echo" pg.argName = 'inforum="&inforum&"&upname="&upname&"&upsize="&upsize&"&dmaxcount="&dmaxcount&"&dmincount="&dmincount&"&Page';"
Echo" pg.printHtml(1); "
Echo "</script></td></tr></table></td></tr></table><BR/><center><input type=""submit"" name=""onlinesubmit"" value=""提 交""></center></form>"
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -