📄 admincp.asp
字号:
SET PostNums_MemList=Server.CreateObject("Adodb.Recordset")
SQL="SELECT mem_Name,mem_PostLogs,mem_PostComms FROM blog_Member"
PostNums_MemList.Open SQL,Conn,1,3
SQLQueryNums=SQLQueryNums+1
Do While Not PostNums_MemList.EOF
PostNums_MemList("mem_PostLogs")=Conn.ExeCute("SELECT COUNT(log_ID) FROM blog_Content WHERE log_Author="""&PostNums_MemList("mem_Name")&"""")(0)
SQLQueryNums=SQLQueryNums+1
PostNums_MemList("mem_PostComms")=Conn.ExeCute("SELECT COUNT(comm_ID) FROM blog_Comment WHERE comm_Author="""&PostNums_MemList("mem_Name")&"""")(0)
SQLQueryNums=SQLQueryNums+1
PostNums_MemList.Update
PostNums_MemList.MoveNext
Loop
PostNums_MemList.Close
SET PostNums_MemList=Nothing
Response.Write("<a href=""admincp.asp?action=setting"">统计用户发表数成功，请点击返回</a>")
ElseIF Request.QueryString("type")="blogNums" Then
Dim blog_Info
SET blog_Info=Server.CreateObject("Adodb.Recordset")
SQL="SELECT blog_LogNums,blog_CommNums,blog_MemNums,blog_VisitNums,blog_QuoteNums FROM blog_Info"
blog_Info.Open SQL,Conn,1,3
SQLQueryNums=SQLQueryNums+1
Do While Not blog_Info.EOF
blog_Info("blog_CommNums")=Conn.ExeCute("SELECT COUNT(comm_ID) FROM blog_Comment")(0)
blog_Info("blog_LogNums")=Conn.ExeCute("SELECT COUNT(log_ID) FROM blog_Content")(0)
blog_Info("blog_MemNums")=Conn.ExeCute("SELECT COUNT(mem_ID) FROM blog_Member")(0)
blog_Info("blog_VisitNums")=Conn.ExeCute("SELECT COUNT(coun_ID) FROM blog_Counter")(0)
blog_Info("blog_QuoteNums")=Conn.ExeCute("SELECT COUNT(tb_ID) FROM blog_TrackBack")(0)
SQLQueryNums=SQLQueryNums+5
blog_Info.Update
blog_Info.MoveNext
Loop
blog_Info.Close
SET blog_Info=Nothing
Response.Write("<a href=""admincp.asp?action=setting"">统计BLOG数据成功，请点击返回</a>")
ElseIF Request.QueryString("type")="blogPosts" Then
Dim Nums_CommList
Set Nums_CommList=Server.CreateObject("Adodb.Recordset")
SQL="SELECT log_ID,log_CommNums,log_QuoteNums FROM blog_Content"
Nums_CommList.Open SQL,Conn,1,3
SQLQueryNums=SQLQueryNums+1
Do While Not Nums_CommList.EOF
Nums_CommList("log_CommNums")=Conn.ExeCute("SELECT COUNT(comm_ID) FROM blog_Comment WHERE blog_ID="&Nums_CommList("log_ID"))(0)
Nums_CommList("log_QuoteNums")=Conn.ExeCute("SELECT COUNT(tb_ID) FROM blog_TrackBack WHERE blog_ID="&Nums_CommList("log_ID"))(0)
SQLQueryNums=SQLQueryNums+2
Nums_CommList.Update
Nums_CommList.MoveNext
Loop
Nums_CommList.Close
SET Nums_CommList=Nothing
Response.Write("<a href=""admincp.asp?action=setting"">统计日志评论数成功，请点击返回</a>")
ElseIf Request.QueryString("type")="blogVisitNums" Then
Conn.ExeCute("UPDATE blog_Info SET blog_VisitBaseNums="&blog_VisitNums&",blog_VisitNums=0")
Conn.ExeCute("DELETE * FROM blog_Counter")
SQLQueryNums=SQLQueryNums+2
Response.Write("<a href=""admincp.asp?action=setting"">清空访问记录表成功，请点击返回</a>")
Else
Response.Write("<b><a href=""admincp.asp?action=setting&type=blogNums"">统计BLOG数据</a> | <a href=""admincp.asp?action=setting&type=memPosts"">统计用户发表数</a> | <a href=""admincp.asp?action=setting&type=blogPosts"">统计日志评论数</a> | <a href=""admincp.asp?action=setting&type=blogVisitNums"">清空访问记录表</a>")
End If%></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="attachment" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 附件管理</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%If Request.QueryString("type")="DeleFile" Then
If Request.QueryString("filename")=Empty Then
Response.Write("<a href=""admincp.asp?action=attachment"">没有选择要删除的文件，请点击返回</a>")
Else
If DeleteFiles(Server.MapPath("attachments/"&Request.QueryString("filename")))=1 Then
Response.Write("<a href=""admincp.asp?action=attachment"">文件删除成功，请点击返回</a>")
Else
Response.Write("<a href=""admincp.asp?action=attachment"">文件删除失败，请点击返回</a>")
End If
End If
Else
Dim AttachmentFolder
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
If Err<>0 Then
Err.Clear
Response.Write("服务器关闭FSO，无法查看附件")
Else
If Request.QueryString("FolderName")=Empty Then
Set AttachmentFolder=FSO.GetFolder(Server.MapPath("attachments"))
Dim AttachmentFolderList
Set AttachmentFolderList=AttachmentFolder.SubFolders
Dim AttachmentFolderName,AttachmentFolderEvery
For Each AttachmentFolderEvery IN AttachmentFolderList
AttachmentFolderName=AttachmentFolderEvery.Name
Response.Write("<a href=""admincp.asp?action=attachment&foldername="&AttachmentFolderName&""">浏览文件夹"&AttachmentFolderName&"中的附件</a><br><img name=""HideImage"" src="""" width=""2"" height=""5"" alt="""" style=""background-color: #FFFFFF""><br>")
Next
Set AttachmentFolderList=Nothing
Else
Set AttachmentFolder=FSO.GetFolder(Server.MapPath("attachments/"&Request.QueryString("FolderName")))
Dim AttachmentFileList
Set AttachmentFileList=AttachmentFolder.Files
Dim AttachmentFileName,AttachmentFileEvery
For Each AttachmentFileEvery IN AttachmentFileList
AttachmentFileName=AttachmentFileEvery.Name
Response.Write("浏览附件 <a href=""attachments/"&Request.QueryString("FolderName")&"/"&AttachmentFileName&""" target=""_blank"">"&AttachmentFileName&"</a> | <a href=""admincp.asp?action=attachment&type=DeleFile&filename="&Request.QueryString("FolderName")&"/"&AttachmentFileName&"""><b>删除文件</b></a><br><img name=""HideImage"" src="""" width=""2"" height=""5"" alt="""" style=""background-color: #FFFFFF""><br>")
Next
Set AttachmentFileList=Nothing
End If
Set AttachmentFolder=Nothing
End If
Set FSO=Nothing
End If%></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="linkscheck" Then%>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 友情链接验证</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%If Request.QueryString("type")="linkcheckedit" Then
If CheckStr(Request.QueryString("linkID"))=Empty Then
Response.Write("<a href=""javascript:history.go(-1);"">参数错误，点击返回上一页</a>")
Else
Conn.ExeCute("UPDATE blog_Links SET link_IsShow=True WHERE link_ID="&CheckStr(Request.QueryString("linkID"))&"")
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admincp.asp?action=linkscheck"">链接验证成功，点击返回</a>")
End If
ElseIF Request.QueryString("type")="linkcheckdele" Then
If CheckStr(Request.QueryString("linkID"))=Empty Then
Response.Write("<a href=""javascript:history.go(-1);"">参数错误，点击返回上一页</a>")
Else
Conn.ExeCute("DELETE * FROM blog_Links WHERE link_ID="&CheckStr(Request.QueryString("linkID"))&"")
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admincp.asp?action=linkscheck"">链接删除成功，点击返回</a>")
End If
Else
Dim blog_LinksCheck
Set blog_LinksCheck=Conn.Execute("SELECT * FROM blog_Links WHERE link_IsShow=False ORDER BY link_Order ASC")
SQLQueryNums=SQLQueryNums+1
If blog_LinksCheck.EOF AND blog_LinksCheck.BOF Then
Response.Write("暂时没有需要验证的友情链接")
Else
Response.Write("<div style=""overflow-y: scroll;overflow-x:hidden;height: 388px;""><table border=""0"" cellpadding=""3"" cellspacing=""1"" bgcolor=""#DFDFDF"" width=""98%""><tr bgcolor=""#EFEFEF""><td><b>需要验证的友情链接</b></td><td><b>操作</b></td></tr>")
Do While Not blog_LinksCheck.EOF
Dim blog_LinksCheckImage
If blog_LinksCheck("link_Image")<>Empty Then
blog_LinksCheckImage="<img src='"&CheckLinkStr(blog_LinksCheck("link_Image"))&"' border='0' />"
Else
blog_LinksCheckImage="没有图片"
End If
Response.Write("<tr bgcolor=""#FFFFFF""><td><a href="""&CheckLinkStr(blog_LinksCheck("link_URL"))&""" alt="""&blog_LinksCheckImage&""" target=""_blank"">"&HTMLEncode(blog_LinksCheck("link_Name"))&"</a></td><td><a href=""admincp.asp?action=linkscheck&type=linkcheckedit&linkID="&blog_LinksCheck("link_ID")&""">通过链接验证</a> | <a href=""admincp.asp?action=linkscheck&type=linkcheckdele&linkID="&blog_LinksCheck("link_ID")&""">删除此链接</a></td></tr>")
blog_LinksCheck.MoveNext
Loop
Response.Write("</table></div>")
End If
Set blog_LinksCheck=Nothing
End If%></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="links" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 友情链接管理</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%If Request.QueryString("type")="linkedit" Then
If CheckStr(Request.QueryString("linkID"))=Empty OR CheckStr(Request.Form("edit_blogLinkName"))=Empty OR CheckStr(Request.Form("edit_blogLinkURL"))=Empty Then
Response.Write("<a href=""javascript:history.go(-1);"">请将信息填写完整，点击返回上一页</a>")
Else
If CheckStr(Request.Form("edit_blogLinkDele"))="True" Then
Conn.ExeCute("DELETE * FROM blog_Links WHERE link_ID="&CheckStr(Request.QueryString("linkID"))&"")
SQLQueryNums=SQLQueryNums+1
Else
Dim link_IsMainValue
If CheckStr(Request.Form("edit_blogLinkMain"))="True" Then
link_IsMainValue=True
Else
link_IsMainValue=False
End If
Conn.ExeCute("UPDATE blog_Links SET link_Name='"&CheckStr(Request.Form("edit_blogLinkName"))&"',link_Image='"&CheckStr(Request.Form("edit_blogLinkImage"))&"',link_URL='"&CheckStr(Request.Form("edit_blogLinkURL"))&"',link_Order="&CheckStr(Request.Form("edit_blogLinkOrder"))&",link_IsMain="&link_IsMainValue&" WHERE link_ID="&CheckStr(Request.QueryString("linkID"))&"")
SQLQueryNums=SQLQueryNums+1
End If
Application.Lock
Application(CookieName&"_blog_Bloglinks")=""
Application.UnLock
Response.Write("<a href=""admincp.asp?action=links"">编辑友情链接成功，请点击返回</a>")
End If
ElseIF Request.QueryString("type")="linkadd" Then
If CheckStr(Request.Form("new_blogLinkName"))=Empty OR CheckStr(Request.Form("new_blogLinkURL"))=Empty Then
Response.Write("<a href=""javascript:history.go(-1);"">请将信息填写完整，点击返回上一页</a>")
Else
Conn.ExeCute("INSERT INTO blog_Links(link_Name,link_Image,link_URL,link_Order,link_IsShow) VALUES ('"&CheckStr(Request.Form("new_blogLinkName"))&"','"&CheckStr(Request.Form("new_blogLinkImage"))&"','"&CheckStr(Request.Form("new_blogLinkURL"))&"',"&CheckStr(Request.Form("new_blogLinkOrder"))&",True)")
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admincp.asp?action=links"">添加友情链接成功，请点击返回</a>")
End If
Else
Dim blog_Links
Set blog_Links=Conn.Execute("SELECT * FROM blog_Links WHERE link_IsShow=True ORDER BY link_Order ASC")
SQLQueryNums=SQLQueryNums+1
If blog_Links.EOF AND blog_Links.BOF Then
Response.Write("暂时没有友情链接")
Else
Response.Write("<div style=""overflow-y: scroll;overflow-x:hidden;height: 388px;""><table border=""0"" cellpadding=""3"" cellspacing=""1"" bgcolor=""#DFDFDF"" width=""98%""><tr bgcolor=""#FFFFFF""><td>删？</td><td>首？</td><td>名称</td><td>图片</td><td>链接</td><td>排序</td><td>操作</td></tr>")
Do While Not blog_Links.EOF
Dim link_IsMainChecked
If blog_Links("link_IsMain")=True Then
link_IsMainChecked=" checked"
Else
link_IsMainChecked=""
End If
Response.Write("<tr bgcolor=""#FFFFFF""><form name=""addlink"" action=""admincp.asp?action=links&type=linkedit&linkID="&blog_Links("link_ID")&""" method=""post""><td><input name=""edit_blogLinkDele"" type=""checkbox"" id=""edit_blogLinkDele"" value=""True""></td><td><input name=""edit_blogLinkMain"" type=""checkbox"" id=""edit_blogLinkMain"" value=""True"""&link_IsMainChecked&"></td><td><input type=""text"" size=""12"" id=""edit_blogLinkName"" name=""edit_blogLinkName"" value="""&blog_Links("link_Name")&"""></td><td><input type=""text"" size=""25"" id=""edit_blogLinkImage"" name=""edit_blogLinkImage"" value="""&blog_Links("link_Image")&"""></td><td><input type=""text"" size=""25"" id=""edit_blogLinkURL"" name=""edit_blogLinkURL"" value="""&blog_Links("link_URL")&"""></td><td><input type=""text"" size=""2"" id=""edit_blogLinkOrder"" name=""edit_blogLinkOrder"" value="""&blog_Links("link_Order")&"""></td><td><input type=""Submit"" name=""Submit"" value="" 编 辑 ""></td></form></tr>")
blog_Links.MoveNext
Loop
Response.Write("</table></div>")
End If
Set blog_Links=Nothing
Response.Write("<hr width=""100%"" size=""1""><table><tr><form name=""addlink"" action=""admincp.asp?action=links&type=linkadd"" method=""post""><td>名称：<input type=""text"" size=""10"" id=""new_blogLinkName"" name=""new_blogLinkName""> 图片：<input type=""text"" size=""20"" id=""new_blogLinkImage"" name=""new_blogLinkImage""> 链接：<input type=""text"" size=""20"" id=""new_blogLinkURL"" name=""new_blogLinkURL""> 排序：<input type=""text"" size=""2"" id=""new_blogLinkOrder"" name=""new_blogLinkOrder""> <input type=""Submit"" name=""Submit"" value="" 添 加 ""></td></form></tr></table>")
End If%></td>
</tr>
</table>
<%ElseIF Request.QueryString("action")="member" Then%><br>
<table width="99%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF" class="siderbar_head"><%=SiteName%> 会员管理</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><%If Request.QueryString("type")="editmem" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -