📄 admin_dbmake.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="const.asp"-->
<%
Dim Admin_Class,Page
Call Master_Us()
Header()
Admin_Class=",10,"
Call Master_Se()
team.SaveLog (" 论坛维护")
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 " 选中的操作记录已经被删除，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=savelog>操作记录管理 </a> 页面 。<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>操作时间</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""> 暂无内容操作记录 </td></tr></table>"
Else
Maxpage = 50
PageNum = Abs(int(-Abs(tocou/Maxpage))) '页数
Page = CheckNum(Page,1,1,1,PageNum) '当前页
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=""点击查看"">"& 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 " 所有的短信已经被删除，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=clearmsg>短信管理 </a> 页面 。<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 " 选中的短信已经被删除，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=clearmsg>短信管理 </a> 页面 。<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>发送人</td><td>接受人</td><td>标题</td><td>发送时间</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""> 短信箱暂无内容 </td></tr></table>"
Else
Maxpage = 20
PageNum = Abs(int(-Abs(tocou/Maxpage))) '页数
Page = CheckNum(Page,1,1,1,PageNum) '当前页
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=""点击查看"">"& 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 " 选中的附件已经被删除，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=upfiles>附件管理 </a> 页面 。<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> 条相关附件记录</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>上传时间</td><td>阅读权限</td><td>下载次数</td><td>主题状态</td></tr>"
If Rs.Eof And Rs.Bof Then
Echo "<tr class=""a4""><td colspan=""8"" align=""center""> 对不起，没有找到您要查询的内容 </td></tr></table>"
Else
Maxpage = 20
PageNum = Abs(int(-Abs(tocou/Maxpage))) '页数
Page = CheckNum(Page,1,1,1,PageNum) '当前页
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=""点击查看"">"& 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -