📄 admincp.asp
字号:
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 CurPage,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="www.loveyuki.com" target="_blank">L-Blog V1.06(SE) Final</a> © 2003-04 With <a href="mailto:loveyuki@gmail.com">Loveyuki</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 + -