📄 admincp.asp
字号:
</table>
<%ElseIF Request.QueryString("action")="setting" 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" align="center" height="48"><%IF Request.QueryString("type")="EnableSite" Then
Application.Lock()
Application(CookieName & "_SiteEnable") = 1
Application(CookieName & "_SiteDisbleWhy") = ""
Application.UnLock()
Response.Write("<a href=""admincp.asp?action=setting"">开启站点成功，请点击返回</a>")
ElseIF Request.QueryString("type")="DisableSite" Then
Set znwl=Nothing
FreeApplicationMemory
Application.Lock()
Application(CookieName & "_SiteEnable") = 0
Application(CookieName & "_SiteDisbleWhy")="站点维护中，请稍候再来..."
Application.UnLock()
Response.Write("<br><a href=""admincp.asp?action=setting"">关闭站点成功</a>")
Else
IF Application(CookieName & "_SiteEnable") = 0 AND Application(CookieName & "_SiteDisbleWhy")<>"" Then
Response.Write("<b>站点已关闭</b> | <a href=""admincp.asp?action=setting&type=EnableSite"">点击开启站点</a>")
Else
Response.Write("<b>站点已开启</b> | <a href=""admincp.asp?action=setting&type=DisableSite"">点击关闭站点</a>")
End IF
End IF%></td>
</tr>
</table><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>
<%IF Request.QueryString("type")="baseInfo" Then
Dim edit_blogName,edit_blogURL,edit_blogPerpage,edit_blogSpamIP,edit_threadPerpage,edit_postPerpage,edit_blogqq,edit_blogtime,edit_blogreg
edit_blogName=CheckStr(Request.Form("blog_Name"))
edit_blogURL=CheckStr(Request.Form("blog_URL"))
edit_blogPerpage=CheckStr(Request.Form("blog_PerPage"))
edit_blogSpamIP=CheckStr(Request.Form("spam_IP"))
edit_threadPerpage=CheckStr(Request.Form("thread_PerPage"))
edit_postPerpage=CheckStr(Request.Form("post_PerPage"))
edit_blogqq=CheckStr(Request.Form("blog_qq"))
edit_blogtime=CheckStr(Request.Form("blog_time"))
edit_blogreg=CheckStr(Request.Form("blog_reg"))
IF edit_blogName<>Empty OR edit_blogURL<>Empty OR IsInteger(edit_blogPerpage)=True Then
znwl.ExeCute("UPDATE blog_Info SET blog_Name='"&edit_blogName&"',blog_URL='"&edit_blogURL&"',thread_PerPage='"&edit_threadPerpage&"',post_PerPage='"&edit_postPerpage&"',blog_PerPage="&edit_blogPerpage&",blog_SpamIP='"&edit_blogSpamIP&"',blog_qq='"&edit_blogqq&"',blog_time='"&edit_blogtime&"',blog_reg='"&edit_blogreg&"'")
SQLQueryNums=SQLQueryNums+1
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"" height=""48""><a href=""admincp.asp?action=setting"">基本信息修改成功，请点击返回</a></td>")
Else
Response.Write("<td bgcolor=""#FFFFFF"" align=""center"" height=""48""><a href=""admincp.asp?action=setting"">基本信息修改失败，请点击返回</a></td>")
End IF
Else
Response.Write("<form name=""blogInfo"" action=""admincp.asp?action=setting&type=baseInfo"" method=""post""><td bgcolor=""#FFFFFF"" align=""center"" height=""48"">BLOG 名称：<input name=""blog_Name"" value="""&siteName&""" type=""text""> BLOG 地址：<input name=""blog_URL"" value="""&siteURL&""" type=""text"" size=""25""><br> 每页日志：<input name=""blog_PerPage"" size=""2"" type=""text"" value="""&blogPerPage&"""> 每页主题：<input name=""thread_PerPage"" size=""2"" type=""text"" value="""&threadPerPage&"""> 每页帖子：<input name=""post_PerPage"" size=""2"" type=""text"" value="""&postPerPage&"""><br>备案号：<input name=""blog_qq"" size=""20"" type=""text"" value="""&blog_qq&"""> 建站时间：<input name=""blog_time"" size=""12"" type=""text"" value="""&blog_time&"""><br>注册状态：<input name=""blog_reg"" size=""1"" type=""text"" value="""&blog_reg&"""> 1表示可以注册，0表示禁止注册<br>IP禁止：<textarea id=""spam_IP"" name=""spam_IP"" cols=""48"" rows=""5"">"&blog_SpamIP&"</textarea><br /><br /><center><input type=""submit"" value="" 确定 ""></td></form>")
End IF%>
</tr>
</table><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" align="center" height="48"><%IF Request.QueryString("type")="memPosts" Then
Dim PostNums_MemList
SET PostNums_MemList=Server.CreateObject("Adodb.Recordset")
SQL="SELECT mem_Name,mem_PostLogs,mem_PostComms FROM blog_Member"
PostNums_MemList.Open SQL,znwl,1,3
SQLQueryNums=SQLQueryNums+1
Do While Not PostNums_MemList.EOF
PostNums_MemList("mem_PostLogs")=znwl.ExeCute("SELECT COUNT(log_ID) FROM blog_Content WHERE log_Author="""&PostNums_MemList("mem_Name")&"""")(0)
SQLQueryNums=SQLQueryNums+1
PostNums_MemList("mem_PostComms")=znwl.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_downloadNums,blog_GuestbookNums,blog_VisitNums,blog_QuoteNums,blog_ThreadNums,blog_PostNums,blog_photoNums FROM blog_Info"
blog_Info.Open SQL,znwl,1,3
SQLQueryNums=SQLQueryNums+1
Do While Not blog_Info.EOF
blog_Info("blog_CommNums")=znwl.ExeCute("SELECT COUNT(comm_ID) FROM blog_Comment")(0)
blog_Info("blog_LogNums")=znwl.ExeCute("SELECT COUNT(log_ID) FROM blog_Content")(0)
blog_Info("blog_MemNums")=znwl.ExeCute("SELECT COUNT(mem_ID) FROM blog_Member")(0)
blog_Info("blog_GuestbookNums")=znwl.ExeCute("SELECT COUNT(gb_ID) FROM blog_Guestbook")(0)
blog_Info("blog_downloadNums")=znwl.ExeCute("SELECT COUNT(downl_ID) FROM blog_Download")(0)
'blog_Info("blog_VisitNums")=znwl.ExeCute("SELECT COUNT(coun_ID) FROM blog_Counter")(0)
blog_Info("blog_QuoteNums")=znwl.ExeCute("SELECT COUNT(tb_ID) FROM blog_TrackBack")(0)
blog_Info("blog_ThreadNums")=znwl.ExeCute("SELECT COUNT(thread_ID) FROM blog_Threads")(0)
blog_Info("blog_PostNums")=znwl.ExeCute("SELECT COUNT(post_ID) FROM blog_Posts")(0)
blog_Info("blog_photoNums")=znwl.ExeCute("SELECT COUNT(photo_ID) FROM blog_photo")(0)
SQLQueryNums=SQLQueryNums+9
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,znwl,1,3
SQLQueryNums=SQLQueryNums+1
Do While Not Nums_CommList.EOF
Nums_CommList("log_CommNums")=znwl.ExeCute("SELECT COUNT(comm_ID) FROM blog_Comment WHERE blog_ID="&Nums_CommList("log_ID"))(0)
Nums_CommList("log_QuoteNums")=znwl.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
znwl.ExeCute("UPDATE blog_Info SET blog_VisitBaseNums="&blog_VisitNums&",blog_VisitNums=0")
'znwl.ExeCute("DELETE * FROM blog_Counter")
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admincp.asp?action=setting"">清空访问记录表成功，请点击返回</a>")
ElseIf Request.QueryString("type")="deltrack" Then
znwl.ExeCute("DELETE * FROM blog_Trackback")
'znwl.ExeCute("UPDATE blog_Info SET blog_QuoteNums=0")
SQLQueryNums=SQLQueryNums+1
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=deltrack"">清除引用记录</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
znwl.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
znwl.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=znwl.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -