📄 manage.asp
字号:
Response.Write "</tr>"
rs.MoveNext
i = i + 1
if i = 2 then
i = 0
end if
rec = rec + 1
loop
End If
rs.close
set rs=nothing
%>
</table>
<% case 3
'## 打开数据库连接
strSql ="SELECT * FROM Members INNER JOIN UserInfo ON Members.Member_id = UserInfo.User_ID order by Members.M_Name"
set rs=server.createobject("adodb.recordset")
rs.cachesize=Pagesize
rs.open strSql,conn,3
mypage=request.QueryString("pageno")
If mypage="" then
if session("manage_pageno3") <> "" then
mypage = session("manage_pageno3")
else
mypage=1
end if
end if
session("manage_pageno3")=mypage
%>
<table width="100%" border="0" cellspacing="2">
<tr bgcolor="#9999FF">
<td width="5%">
<div align="center">选择</div>
</td>
<td width="15%">
<div align="center">姓名</div>
</td>
<td width="20%">
<div align="center">级别</div>
</td>
<td width="15%">
<div align="center">类别</div>
</td>
<td width="30%">
<div align="center">影集目录</div>
</td>
</tr>
<%
'显示所有用户
If rs.Eof or rs.Bof then
' No items found in DB
Response.Write "<tr><td> </td><td collspan=4>没有记录！</td></tr>"
Else
showBtn="true"
rs.movefirst
rs.pagesize=Pagesize
maxpages=cint(rs.pagecount)
if cint(mypage) > maxpages then
mypage=maxpages
session("manage_pageno3")=mypage
end if
rs.absolutepage=mypage
i=0
rec = 1
do until rs.Eof or rec > Pagesize '## Display Forum
if i = 0 then
CColor = AltForumCellColor
else
CColor = ForumCellColor
End if
strSql ="SELECT Album.A_Name, Album.A_Directory FROM Album where Album.Album_ID = " & rs("U_Album_ID")
'Response.write strSql
set rs1 = conn.Execute (strSql)
Response.Write "<tr>"
Response.Write "<td width='5%' bgcolor='" & CColor & "' valign='top' align='center'><input type='radio' name='SelectedID' value='" & rs("Member_id") & "'></td>"
Response.Write "<td width='15%' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'><A href='#' onClick='WinOpen(""user_post.asp?method=edit&id=" & rs("Member_id") & """)'>" & rs("M_Name") & "</a></font></td>"
Response.Write "<td width='20%' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & getLevelName(rs("M_Level")) & "</font></td>"
Response.Write "<td width='15%' bgcolor='" & CColor & "' valign='top' align='center'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & IsTeacher(rs("U_Is_Teacher")) & "</font></td>"
Response.Write "<td width='30%' bgcolor='" & CColor & "' valign='top' align='left'><font face='" & DefaultFontFace & "' color='" & ForumFontColor & "' size='2'>" & rs1("A_Directory") & "</font></td>"
Response.Write "</tr>"
rs.MoveNext
rs1.close
set rs1=nothing
i = i + 1
if i = 2 then
i = 0
end if
rec = rec + 1
loop
End If
rs.close
set rs=nothing
%>
</table>
<% case 4
strSql = "SELECT * FROM Backup"
set rs = conn.Execute (StrSql)
%>
<table width="100%" border="0" cellspacing="2">
<tr>
<td height="15">
</td>
</tr>
<tr>
<td height="60" valign="top">
<div align="center">最近一次数据备份由<font face="<% =SpecificFontFace %>" color="<% =SpecificFontColor %>"><% =getUserName(rs("B_Backup_By"))%></font>备份于<font face="<% =SpecificFontFace %>" color="<% =SpecificFontColor %>"><% =formatDate(rs("B_Last_Backup")) %></font></div>
</td>
</tr>
<tr>
<td>
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="center">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:document.forms[0].submit()"><font size=2>备 份</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<% End Select%>
<% if maxpages > 1 then %>
<hr><div align=left><font face="<% =DefaultFontFace %>" size="2">
<%
pad=" "
scriptname=request.servervariables("script_name")
Response.Write "页数: "
for counter=1 to maxpages
If counter>10 then
pad=" "
end if
if counter <> cint(mypage) then
ref="<a href='" & scriptname
ref=ref & "?pageno=" & counter
ref=ref & "'>" & counter & "</a>"
response.write ref & pad
Else
Response.Write "<font color='" & DefaultFontColor & "'>" & counter & "</font>" & pad
End if
if counter mod Linesize = 0 then
response.write "<br> "
end if
next
%>
</font></div>
<% End if%>
<br></td>
</tr>
<% if showBtn="true" then %>
<tr align="center">
<td>
<table width="100%" border="0">
<tr>
<td width="46%">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="right">
<tr>
<td>
<div align="center" class="p9">
<% if mode=3 then %>
<A href='#' onClick='WinOpen("user_post.asp")'><font size=2>增 加</font></a>
<% else %>
<a href="manage.asp?a=true"><font size=2>全部选中</font></a>
<% end if %></div>
</td>
</tr>
</table>
</td>
<td width="7%"> </td>
<td width="47%">
<table border="1" cellspacing="0" cellpadding="2" bgcolor="<% =ButtonBgColor %>" bordercolorlight="#000000" bordercolordark="#FFFFFF" width="80" align="left">
<tr>
<td>
<div align="center" class="p9"><A href="javascript:doConfirm()"><font size=2>删 除</font></a></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<% end if %>
</table>
<input name="m" type="hidden" value="<% =mode %>">
</form>
<%else
Select Case m
case 1
if Request.Form("SelectedID")<>"" then
For Each id in Request.Form("SelectedID")
strSQL = "Delete * From Login where login_ID = " & id
conn.Execute strSQL
Next
GO_Result "成功删除记录!", true, "manage.asp"
else
GO_Result "没有选择要删除的记录!", false, "javascript:history.back()"
end if
case 2
if Request.Form("SelectedID")<>"" then
For Each id in Request.Form("SelectedID")
strSQL = "Delete * From Events where Log_ID = " & id
conn.Execute strSQL
Next
GO_Result "成功删除记录!", true, "manage.asp"
else
GO_Result "没有选择要删除的记录!", false, "javascript:history.back()"
end if
case 3
if Request.Form("SelectedID")<>"" then
uid = Request.Form("SelectedID")
if cint(uid)=cint(session("user_id")) then
GO_Result "不能删除当前用户！", false, "javascript:history.back()"
else
albumid = getAlbumID(uid)
strSql ="SELECT * FROM Album where Album_id = " & albumid
'Response.write strSql
set rs = conn.Execute (strSql)
dir=Server.URLEncode(rs("A_Directory"))
rs.close
set rs=nothing
strSQL = "Delete * From Photoes where P_Album_ID = " & albumid
conn.Execute (StrSql)
strSQL = "Delete * From Album where Album_ID = " & albumid
conn.Execute (StrSql)
strSQL = "Delete * From UserInfo where User_ID = " & uid
conn.Execute (StrSql)
strSQL = "Delete * From Members where Member_id = " & uid
conn.Execute (StrSql)
Response.redirect ("del.cgi?path=" & dir & "&location=" & Server.URLEncode("/manage.asp"))
'Response.write "del.cgi?path=" & dir & "&location=" & Server.URLEncode("/manage.asp")
end if
else
GO_Result "没有选择要删除的记录!", false, "javascript:history.back()"
end if
case 4
strSql = "update Backup set B_Backup_By = " & session("user_id") & ", B_Last_Backup = #" & now() & "#"
conn.Execute (StrSql)
Response.redirect "backup.cgi"
End Select
end if%>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
'## 关闭数据库连接
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -