📄 admin.asp
字号:
End IF
ElseIF Request.QueryString("type")="delemem" Then
IF CheckStr(Request.QueryString("memID"))=Empty Then
Response.Write("<a href='admin.asp?action=member'>对不起，参数错误，点击返回会员管理</a>")
Else
Conn.ExeCute("DELETE * FROM 17u0_Member WHERE mem_ID="&CheckStr(Request.QueryString("memID")))
Conn.ExeCute("UPDATE 17u0_Info SET R17u0_MemNums=R17u0_MemNums-1")
SQLQueryNums=SQLQueryNums+2
Response.Write("<a href='admin.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 17u0_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' class=header><tr bgcolor='#EFEFEF'><td nowrap>编号</td><td nowrap>名称</td><td nowrap>身份</td><td nowrap>注册时间</td><td width='100%'>会员操作</td></tr>")
Dim adm_MemStatus,adm_MemStatusAct,theUserGroup,theUserGroupItem
Do Until adm_MemList.EOF OR PageCount=15
Select Case adm_MemList("mem_Status")
Case "1"
adm_MemStatusAct="<a href='admin.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=2'>设为游客</a>"
Case "2"
adm_MemStatusAct="<a href='admin.asp?action=member&type=editmem&memID="&adm_MemList("mem_ID")&"&memType=1'>设为网管</a>"
End Select
For Each theUserGroup IN Arr_UserGroup
theUserGroupItem=Split(theUserGroup,"|")
If adm_MemList("mem_Status")=theUserGroupItem(0) Then adm_MemStatus=theUserGroupItem(1)
Next
Response.Write("<tr bgcolor='#FFFFFF'><td nowrap>"&adm_MemList("mem_ID")&"</td><td nowrap><a href='member.asp?action=view&memName="&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 hh:mm:ss AMPM")&"</td><td><a href='admin.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>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td class="leftbartop">
<%=SiteName%>
系统信息:<b>Power By <a href="http://ro.day8.com.cn" target="_blank">RO-17u0 V2.0</a> Copying
Right 2004 ©<a href="http://www.17u0.com" target="_blank">大学生信息门户NO.1</a></b></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="left" class="smalltxt"><b>升级信息:</b><marquee onmouseover="this.stop()" onmouseout="this.start()" height="10" width="100%" direction=left scrollamount="3" scrolldelay="5"><script language="JavaScript" src="http://www.17u0.com/bookupdata.js" type="text/javascript"></script></marquee> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" align="left" class="smalltxt"><b>站长工具:</b><script language="JavaScript" src="http://www.17u0.com/tool.js" type="text/javascript"></script></td>
</tr>
</table><br><table width="99%" border="0" align="center" cellpadding="5" cellspacing="1" class=header align="center">
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="leftbartop"><%=SiteName%> 服务器基本信息</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" width="40%" nowrap> 服务器时间：<%=DateToStr(Now(),"Y-m-d H:I A")%></td>
<td bgcolor="#FFFFFF" width="60%"> 服务器空间占用：<%=GetTotalSize(Request.ServerVariables("APPL_PHYSICAL_PATH"),"Folder")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器IIS版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
<td bgcolor="#FFFFFF"> 客户端IP地址：<%=Request.ServerVariables("REMOTE_ADDR")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器操作系统：<%=Request.ServerVariables("OS")%></td>
<td bgcolor="#FFFFFF"> 服务器IP地址：<%=Request.ServerVariables("LOCAL_ADDR")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
<td bgcolor="#FFFFFF"> 站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"> 服务器CPU数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
<td bgcolor="#FFFFFF"> 脚本超时设置：<%=Server.ScriptTimeout%></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF"><b>服务器组件安装情况</b></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 CheckObjInstalled(strClassString)
On Error Resume Next
Dim Temp
Err = 0
Dim TmpObj
Set TmpObj = Server.CreateObject(strClassString)
Temp = Err
IF Temp = 0 OR Temp = -2147221477 Then
CheckObjInstalled= "<font color=""#00FF00""><b>√</b></font>"
ElseIF Temp = 1 OR Temp = -2147221005 Then
CheckObjInstalled="<font color=""#FF0000""><b>×</b></font>"
End IF
Err.Clear
Set TmpObj = Nothing
Err = 0
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 FSO.FileExists(FilePath) Then
FSO.DeleteFile FilePath,True
DeleteFiles = 1
Else
DeleteFiles = 0
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 + -