📄 admincp.asp
字号:
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=""16"" 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
IF CheckStr(Request.QueryString("memID"))=Empty AND CheckStr(Request.QueryString("memType"))<>"Member" AND CheckStr(Request.QueryString("memType"))<>"Admin" AND CheckStr(Request.QueryString("memType"))<>"SupAdmin" Then
Response.Write("<a href=""admincp.asp?action=member"">对不起，参数错误，点击返回会员管理</a>")
Else
Conn.ExeCute("UPDATE blog_Member SET mem_Status='"&CheckStr(Request.QueryString("memType"))&"' WHERE mem_ID="&CheckStr(Request.QueryString("memID")))
SQLQueryNums=SQLQueryNums+1
Response.Write("<a href=""admincp.asp?action=member"">编辑会员成功，点击返回会员管理</a>")
End IF
ElseIF Request.QueryString("type")="delemem" Then
IF CheckStr(Request.QueryString("memID"))=Empty Then
Response.Write("<a href=""admincp.asp?action=member"">对不起，参数错误，点击返回会员管理</a>")
Else
Conn.ExeCute("DELETE * FROM blog_Member WHERE mem_ID="&CheckStr(Request.QueryString("memID")))
Conn.ExeCute("UPDATE blog_Info SET blog_MemNums=blog_MemNums-1")
SQLQueryNums=SQLQueryNums+2
Response.Write("<a href=""admincp.asp?action=member"">删除会员成功，点击返回会员管理</a>")
End IF
Else
Dim adm_MemList
Set adm_MemList=Server.CreateObject("Adodb.RecordSet")
SQL="SELECT mem_ID,mem_Name,mem_Regtime,mem_Status FROM blog_Member ORDER BY mem_Regtime DESC"
adm_MemList.Open SQL,Conn,1,1
SQLQueryNums=SQLQueryNums+1
IF adm_MemList.EOF AND adm_MemList.BOF Then
Response.Write("暂时没有会员")
Else
Dim Url_Add
IF CheckStr(Request.QueryString("Page"))<>Empty Then
Curpage=Cint(CheckStr(Request.QueryString("Page")))
IF Curpage<0 Then Curpage=1
Else
Curpage=1
End IF
Url_Add="?action=member&"
adm_MemList.PageSize=15
adm_MemList.AbsolutePage=CurPage
Dim adm_MemNums
adm_MemNums=adm_MemList.RecordCount
Dim MultiPages,PageCount
MultiPages="<span class=""smalltxt"">"&MultiPage(adm_MemNums,15,CurPage,Url_Add)&"</span>"
Response.Write(MultiPages)
Response.Write("<table width=""100%"" border=""0"" align=""center"" cellpadding=""4"" cellspacing=""1"" bgcolor=""#CCCCCC""><tr bgcolor=""#EFEFEF""><td nowrap>编号</td><td nowrap>会员名称</td><td nowrap>会员身份</td><td nowrap>注册时间</td><td width=""100%"">会员操作</td></tr>")
Do Until adm_MemList.EOF OR PageCount=15
Dim adm_MemStatus,adm_MemStatusAct
Select Case adm_MemList("mem_Status")
Case "SupAdmin"
adm_MemStatus="超级管理员"
adm_MemStatusAct="<a href=""admincp.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=Member"">设为一般会员</a> | <a href=""admincp.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=Admin"">设为一般管理员</a>"
Case "Admin"
adm_MemStatus="一般管理员"
adm_MemStatusAct="<a href=""admincp.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=Member"">设为一般会员</a> | <a href=""admincp.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=SupAdmin"">设为超级管理员</a>"
Case "Member"
adm_MemStatus="一般会员"
adm_MemStatusAct="<a href=""admincp.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=Admin"">设为一般管理员</a> | <a href=""admincp.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=SupAdmin"">设为超级管理员</a>"
End Select
Response.Write("<tr bgcolor=""#FFFFFF""><td nowrap>"&adm_MemList("mem_ID")&"</td><td nowrap><a href=""member.asp?action=view&memName="&Server.URLEncode(adm_MemList("mem_Name"))&""" target=""_blank"" alt=""点击查看会员资料"">"&adm_MemList("mem_Name")&"</td><td nowrap>"&adm_MemStatus&"</td><td nowrap>"&DateToStr(adm_MemList("mem_RegTime"),"Y-m-d H:I A")&"</td><td> <a href=""admincp.asp?action=member&type=delemem&memID="&adm_MemList("mem_ID")&""">删除会员</a> | "&adm_MemStatusAct&"</td></tr>")
adm_MemList.MoveNext
PageCount=PageCount+1
Loop
Response.Write("</table>")
Response.Write(MultiPages)
End IF
adm_MemList.Close
Set adm_MemList=Nothing
End IF%></td>
</tr>
</table>
<%Else%><br>
<div class="msg_head"><%=SiteName%> 系统信息</div>
<div class="msg_main"><span class="smalltxt">Powered By <a href="http://www.heipi.com/" target="_blank">HeiPi.Com</a> © 2003-04 With <a href="mailto:www@heipi.com">HeiPi</a> Program</span></div>
<br><table width="92%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#CCCCCC" align="center">
<tr>
<td colspan="2" class="msg_head"><%=SiteName%> 服务器基本信息</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="40%" nowrap> 服务器时间：<%=DateToStr(Now(),"Y-m-d H:I A")%></td>
<td bgcolor="#FFFFFF" width="60%"> 服务器IP地址：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td bgcolor="#FFFFFF"> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器空间占用：<%=GetTotalSize(Request.ServerVariables("APPL_PHYSICAL_PATH"),"Folder")%></td>
<td bgcolor="#FFFFFF"> 站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器CPU数量：<%=GetSysInfo("CPUNums")%></td>
<td bgcolor="#FFFFFF"> 脚本超时设置：<%=Server.ScriptTimeout%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> 服务器操作系统：<%=GetSysInfo("OSInfo")%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"> 服务器CPU信息：<%=GetSysInfo("CPUInfo")%></td>
</tr>
<tr>
<td colspan="2" class="msg_head">服务器组件安装情况</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> FileUp上传组件：<%=CheckObjInstalled("FileUp.upload")%></td>
<td bgcolor="#FFFFFF"> FSO文本读写：<%=CheckObjInstalled("Scripting.FileSystemObject")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 数据库使用：<%=CheckObjInstalled("adodb.connection")%></td>
<td bgcolor="#FFFFFF"> Jmail组件支持：<%=CheckObjInstalled("JMail.SMTPMail")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> GflSDK组件支持：<%=CheckObjInstalled("GflAx190.GflAx")%></td>
<td bgcolor="#FFFFFF"> EasyMail邮件支持：<%=CheckObjInstalled("easymail.Mailsend")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 无组件上传－ADODB.Stream：<%=CheckObjInstalled("Scripting.Dictionary")%></td>
<td bgcolor="#FFFFFF"> 无组件上传－Scripting.Dictionary ：<%=CheckObjInstalled("Scripting.Dictionary")%></td>
</tr>
</table>
<%
Function GetSysInfo(InfoType)
Dim WshShell,WshSysEnv
Set WshShell = Server.CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
If InfoType="CPUNums" Then
GetSysInfo=Cstr(WshSysEnv("NUMBER_OF_PROCESSORS"))
If IsNull(GetSysInfo) Then
GetSysInfo = Request.ServerVariables("NUMBER_OF_PROCESSORS")
ElseIf GetSysInfo="" Then
GetSysInfo = Request.ServerVariables("NUMBER_OF_PROCESSORS")
End If
ElseIf InfoType="CPUInfo" Then
GetSysInfo = Cstr(WshSysEnv("PROCESSOR_IDENTIFIER"))
ElseIf InfoType="OSInfo" Then
GetSysInfo = Cstr(WshSysEnv("OS"))
If Request.ServerVariables("OS")="" Then GetSysInfo=GetSysInfo & "(可能是 Windows Server 2003)"
End If
End Function
Function CheckObjInstalled(strClassString)
On Error Resume Next
Dim TmpObj
Set TmpObj = Server.CreateObject(strClassString)
IF Err = 0 OR Err = -2147221477 Then
CheckObjInstalled= "<font color=""#00FF00""><b>√</b></font>"
ElseIF Err = 1 OR Err = -2147221005 Then
CheckObjInstalled="<font color=""#FF0000""><b>×</b></font>"
End IF
Err.Clear
Set TmpObj = Nothing
End Function
Function GetTotalSize(GetLocal,GetType)
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF Err<>0 Then
Err.Clear
GetTotalSize="服务器关闭FSO，查看占用空间失败"
Else
Dim SiteFolder
IF GetType="Folder" Then
Set SiteFolder=FSO.GetFolder(GetLocal)
Else
Set SiteFolder=FSO.GetFile(GetLocal)
End IF
GetTotalSize=SiteFolder.Size
IF GetTotalSize>1024*1024 Then
GetTotalSize=GetTotalSize/1024/1024
IF inStr(GetTotalSize,".") Then GetTotalSize = Left(GetTotalSize,inStr(GetTotalSize,".")+2)
GetTotalSize=GetTotalSize&" MB"
Else
GetTotalSize=Fix(GetTotalSize/1024)&" KB"
End IF
Set SiteFolder=Nothing
End IF
Set FSO=Nothing
End Function
End IF
End IF
Function DeleteFiles(FilePath)
Dim FSO
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
IF Err<>0 Then
Err.Clear
Response.Write("服务器关闭FSO，无法删除文件")
Else
If FSO.FileExists(FilePath) Then
FSO.DeleteFile FilePath,True
DeleteFiles = 1
Else
DeleteFiles = 0
End If
End If
Set FSO = Nothing
End Function
Function FreeApplicationMemory
Response.Write "<b>释放网站数据列表：</b>" & VbCrLf
Dim Thing
For Each Thing IN Application.Contents
IF Left(Thing,Len(CookieName)) = CookieName Then
Response.Write "<font color=""gray"">" & thing & "</font><br>"
IF isObject(Application.Contents(Thing)) Then
Application.Contents(Thing).Close
Set Application.Contents(Thing) = Nothing
Application.Contents(Thing) = Null
Response.Write "成功关闭对象"
ElseIF isArray(Application.Contents(Thing)) Then
Set Application.Contents(Thing) = Nothing
Application.Contents(Thing) = Null
Response.Write "成功释放数组"
Else
Response.Write(HtmlEncode(Application.Contents(Thing)))
Application.Contents(Thing) = Null
End IF
Response.Write(" ")
End IF
Next
End Function%></td>
</tr>
</table><%End IF%></td>
</tr>
</table>
<!--#include file="footer.asp" -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -