📄 admincp.asp
字号:
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,admin_upfilesize
edit_blogName=CheckStr(Request.Form("blog_Name"))
edit_blogURL=CheckStr(Request.Form("blog_URL"))
edit_blogPerpage=CheckStr(Request.Form("blog_PerPage"))
admin_upfilesize=CheckStr(Request.Form("admin_upsize"))*1024
blog_time_year=Request.Form("blog_time_year")
blog_time_mon=Request.Form("blog_time_mon")
blog_time_day=Request.Form("blog_time_day")
IF edit_blogName<>Empty AND edit_blogURL<>Empty AND IsInteger(edit_blogPerpage)=True AND Int(edit_blogPerpage)>0 Then
Conn.ExeCute("UPDATE blog_Info SET blog_Name='"&edit_blogName&"',blog_URL='"&edit_blogURL&"',blog_PerPage="&edit_blogPerpage&",blog_upfilesize="&admin_upfilesize&",blog_time_year="&blog_time_year&",blog_time_mon="&blog_time_mon&",blog_time_day="&blog_time_day&"")
'Conn.ExeCute("UPDATE blog_Info SET blog_Name='"&edit_blogName&"',blog_URL='"&edit_blogURL&"',blog_PerPage="&edit_blogPerpage&",blog_upfilesize="&admin_upfilesize&"")
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=""left"" height=""48"">BLOG 名称：<input name=""blog_Name"" value="""&siteName&""" type=""text"" size=""25""> <br>BLOG 地址：<input name=""blog_URL"" value="""&siteURL&""" type=""text"" size=""25""> <br>每页日志： <input name=""blog_PerPage"" size=""2"" type=""text"" value="""&blogPerPage&"""> <br>上传文件大小：<input name=""admin_upsize"" value="""&admin_upsize&""" type=""text"" size=""10""> KB <br>建站时间：<input name=""blog_time_year"" value="""&blog_time_year&""" type=""text"" size=""4"">年<input name=""blog_time_mon"" value="""&blog_time_mon&""" type=""text"" size=""4"">月<input name=""blog_time_day"" value="""&blog_time_day&""" type=""text"" size=""4"">日<br><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,mem_PostGBNums 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)
PostNums_MemList("mem_PostComms")=Conn.ExeCute("SELECT COUNT(comm_ID) FROM blog_Comment WHERE comm_Author='"&PostNums_MemList("mem_Name")&"'")(0)
PostNums_MemList("mem_PostGBNums")=Conn.ExeCute("SELECT COUNT(gb_ID) FROM blog_Guestbook WHERE gb_Author='"&PostNums_MemList("mem_Name")&"'")(0)
SQLQueryNums=SQLQueryNums+3
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,blog_GuestbookNums 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_GuestbookNums")=Conn.ExeCute("SELECT COUNT(gb_ID) FROM blog_Guestbook")(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+6
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='"&blog_LinksCheck("link_Image")&"' border='0' />"
Else
blog_LinksCheckImage="没有图片"
End IF
Response.Write("<tr bgcolor=""#FFFFFF""><td><a href="""&blog_LinksCheck("link_URL")&""" alt="""&blog_LinksCheckImage&""" target=""_blank"">"&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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -