📄 all_user.asp
字号:
<!--#include file="../conn/boardconn.asp"-->
<!--#include file="../style/sql.asp" -->
<!--#include file="../CHAR.INC"-->
<!--#include file="../function.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string")
dim nothis(18)
nothis(0)="net user"
nothis(1)="xp_cmdshell"
nothis(2)="/add"
nothis(3)="exec%20master.dbo.xp_cmdshell"
nothis(4)="net localgroup administrators"
nothis(5)="select"
nothis(6)="count"
nothis(7)="asc"
nothis(8)="char"
nothis(9)="mid"
nothis(10)="'"
nothis(11)=":"
nothis(12)=""""
nothis(13)="insert"
nothis(14)="delete"
nothis(15)="drop"
nothis(16)="truncate"
nothis(17)="from"
nothis(18)="%"
errc=false
for i= 0 to ubound(nothis)
if instr(FQYs,nothis(i))<>0 then
errc=true
end if
next
if errc then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%CheckAdmin2%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.keyword.value=="")
{
alert("友好提示！\n\n请填写您要搜索的关键字!")
document.form.keyword.focus()
return false
}
}
// -->
</script>
<body topmargin="0" leftmargin="0">
<div align="center"><center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td valign="top"><table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" height="10" style="word-break:break-all" colspan="5"></td>
</tr>
<tr>
<td width="5%" height="3" style="word-break:break-all"></td>
<td width="90%" height="30" colspan="3" style="word-break:break-all" align="center">
<form method="post" name="form" action="search.asp" onSubmit="return form_onsubmit()">
<input class="input" onFocus="this.value=''" maxLength="50" size="40" value="请输入吧主名称" name="keyword"><input class="input1" type="submit" value=" 搜索吧主 " name="Submit2" align="absmiddle"></td>
</form></td>
<td width="5%" height="3" style="word-break:break-all"></td>
</tr>
<tr>
<td width="5%" height="3" style="word-break:break-all"></td>
<td width="90%" height="3" colspan="3" background="../Images/News_Hot.gif" style="word-break:break-all"></td>
<td width="5%" height="3" style="word-break:break-all"></td>
</tr>
<tr>
<td width="5%" height="25" style="word-break:break-all"></td>
<td width="60%" height="25" align="center" bgColor="#DFEFFF" style="word-break:break-all"><img src="../Images/Subject.gif" width="57" height="5" align="absmiddle"></td>
<td width="20%" height="25" align="center" bgColor="#DFEFFF" style="word-break:break-all"><img src="../Images/UpdateTime.gif" width="79" height="5" align="absmiddle"></td>
<td width="10%" height="25" align="center" bgColor="#DFEFFF" style="word-break:break-all"><img src="../Images/Click.gif" width="46" height="5" align="absmiddle"></td>
<td width="5%" height="25" style="word-break:break-all"></td>
</tr>
<tr>
<td width="5%" height="3" style="word-break:break-all"></td>
<td width="90%" height="3" colspan="3" background="../Images/News_Hot.gif" style="word-break:break-all"></td>
<td width="5%" height="3" style="word-break:break-all"></td>
</tr>
<%
Dim MyPageSize,MyPage
Page=CInt(Request.QueryString("Page"))
MyPageSize = 50
If Not IsNumeric(Page) Or IsEmpty(Page) Or Page <=0 Then
MyPage=1
else
MyPage=Abs(Page)
end if
set rs=server.CreateObject("ADODB.RecordSet")
Sql="select * from Aymi_User_Disp where UserGroupID=2 Order By UserID Desc"
rs.Open sql,conn,1,1
if not rs.eof then
rs.PageSize = MyPageSize
MaxPages = rs.PageCount
Total = rs.RecordCount
rs.absolutepage = MyPage
end if
dim i
Counter=0
%>
<%
for i = 1 to MyPageSize
if not rs.eof then
bgcolor="ffffff"
if i mod 2 = 0 then
bgcolor="f0faff"
else
bgcolor="ffffff"
end If
%>
<tr>
<td width="5%" height="25" style="word-break:break-all"></td>
<td width="60%" height="25" style="word-break:break-all" valign="top"><img src="../Images/News_Dot.gif" width="9" height="7" border="0" align="absmiddle"> <a href="edit_user.asp?NumID=<%Response.Write (rs(0))%>"><%Response.Write (rs(1))%></A> <%if (year(rs("RegTime"))&month(rs("RegTime"))&day(rs("RegTime")))=(year(date())&month(date())&day(date())) then%><IMG border="0" src="../Images/new.gif"><%else%><%end if%></td>
<td width="20%" height="25" style="word-break:break-all" valign="top"><FONT color="#008800"><%Response.Write (rs(10))%></FONT></td>
<td width="10%" height="25" align="center" style="word-break:break-all" valign="top"><FONT color="#CC0000"><a href="del_user.asp?NumID=<%Response.Write (Server.UrlEncode(rs(1)))%>">Ｘ</a></FONT></td>
<td width="5%" height="25" style="word-break:break-all"></td>
</tr>
<tr>
<td width="5%" height="3" style="word-break:break-all"></td>
<td width="90%" height="3" colspan="3" background="../Images/News_Hot.gif" style="word-break:break-all"></td>
<td width="5%" height="3" style="word-break:break-all"></td>
</tr>
<%
else
exit for
end if
rs.movenext
Next
%>
<tr>
<td width="5%" height="25" style="word-break:break-all"></td>
<td width="90%" height="25" colspan="3" style="word-break:break-all"><div align="right">
<%
response.Write("[<a href=""?page=1"" title=""第一页""><<</a>] ")
if MyPage > 1 then
response.Write("[<a href=""?page="&MyPage-1&""" title=""上一页""><</a>] ")
end if
if (MyPage >= 5 and MaxPages-MyPage <1) then response.Write("[<a href=""?page="&MyPage-4&""">"&MyPage-4&"</a>] ")
if (MyPage >= 4 and MaxPages-MyPage <2) then response.Write("[<a href=""?page="&MyPage-3&""">"&MyPage-3&"</a>] ")
if MyPage >=3 then response.Write("<a href=""?page="&MyPage-2&""">["&MyPage-2&"]</a> ")
if MyPage >=2 then response.Write("<a href=""?page="&MyPage-1&""">["&MyPage-1&"]</a> ")
response.Write("[<font color=#cc0000>"&MyPage&"</font>] ")
if MaxPages-MyPage >=1 then response.Write("[<a href=""?page="&MyPage+1&""">"&MyPage+1&"</a>] ")
if MaxPages-MyPage >=2 then response.Write("[<a href=""?page="&MyPage+2&""">"&MyPage+2&"</a>] ")
if (MyPage <3 and MaxPages-MyPage >=3) then response.Write("[<a href=""?page="&MyPage+3&""">"&MyPage+3&"</a>] ")
if (MyPage <2 and MaxPages-MyPage >=4) then response.Write("[<a href=""?page="&MyPage+4&""">"&MyPage+4&"</a>] ")
if (MyPage <1 and MaxPages-MyPage >=5) then response.Write("[<a href=""?page="&MyPage+5&""">"&MyPage+5&"</a>] ")
if MyPage < MaxPages then
response.Write("[<a href=""?page="&MyPage+1&""" title=""下一页"">></a>] ")
end if
response.Write("[<a href=""?page="&MaxPages&""" title=""最后页"">>></a>]")
response.Write(" Pages: [<font color=""#CC0000""><b>"&MyPage&"</b></font>/<b>"&MaxPages&"</b>] Total [<b>"&Total&"</b>] Items [<b>"&MyPageSize&"</b>] Items in this page")
%>
</td>
<td width="5%" height="25" style="word-break:break-all"></td>
</tr>
<%
rs.close
Set rs=NOTHING
conn.Close
set conn=nothing
%>
</table>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -