📄 admin_user.asp
字号:
<%
bg_id=1
%>
<!--#include file="../main/conn.asp" -->
<!--#include file="admin_session.asp" -->
<!--#include file="../function/nextpage.asp" -->
<!--#include file="../function/function.asp" -->
<head>
<SCRIPT src="../js/win_js.js"></SCRIPT>
</HEAD>
<SCRIPT>SL_open(730,470);</SCRIPT>
<%
web_id1="../language/"
web_id=web_id1&l_id&"/USER_INFO.ASP"
call include(web_id)
RESPONSE.WRITE "<table border=1 width=100% bgcolor='"&top_bg_color&"' bordercolor='"&top_borderbg_color&"'>"
RESPONSE.WRITE "<tr><td width=6% align=center bgcolor='"&tr_bg_color&"'>"
RESPONSE.WRITE L_USER_r&"</td>"
RESPONSE.WRITE "<td width=11% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_USERNAME
RESPONSE.WRITE "</td><td width=4% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_USERGROUP&"'</td>"
RESPONSE.WRITE "<td width=12% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_GROUP
RESPONSE.WRITE "</td><td width=12% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_LOGIN
RESPONSE.WRITE "</td><td width=25% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_TIME
RESPONSE.WRITE "</td><td width=6% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_sub
RESPONSE.WRITE "</td><td width=6% align=center bgcolor='"&tr_bg_color&"'>"&L_USER_del
RESPONSE.WRITE "</td></tr>"
set rs=server.CreateObject("adodb.recordset")
sql="SELECT * FROM [user] where g_id='"&session_cookie_gid&"' order by regtime desc"
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize =admin_userpage '每页记录条数
result_num=rs.RecordCount '记录总数
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
size=(page-1)*rs.PageSize
if not rs.eof then
for i=1 to rs.PageSize
addtime=year(rs("logtime"))&L_USER_year&month(rs("logtime"))&L_USER_month&day(rs("logtime"))&L_USER_day
size=size+1
%>
<tr style="background-color: <%=test_style_onMouseOut%>" onMouseOver = "this.style.backgroundColor = '<%=test_style_onMouseOver%>'" onMouseOut = "this.style.backgroundColor = '<%=test_style_onMouseOut%>'">
<td width="6%">
<img src="<%=web_background%>/rigth1.gif">
<%=size%></td>
<td width="11%" align="center">
<a href="#" title="
<%
RESPONSE.WRITE "<font color='#ff0000'>"&L_USER_USERNAME&":"&rs("username")&"<br>"&L_USER_IP&":"&rs("ip")
RESPONSE.WRITE "<br>"&L_USER_GROUP&"："&rs("usergroup")&"<br>"&L_USER_webonline&":"
RESPONSE.WRITE rs("on_web")&"<br>"&L_USER_TIME&":"&rs("logtime")&"</font>"
%>
onClick="javascript:window.open('member.asp?id=<%=rs("username")%>','','width=<%=win_w%>,height=<%=win_h%>,left=<%=win_left%>,top=<%=win_top%>')">
<%
RESPONSE.WRITE rs("username")
RESPONSE.WRITE "</a></td><td width=4% align=center>"
sex_i=rs("sex")
sex_f(sex_i)
RESPONSE.WRITE "</td><td width=15% align=center>"
user_group_inof=CINT(rs("usergroup"))
f_id=1
call user_group_f(user_group_inof,f_id)
RESPONSE.WRITE "</td><td width=12% height=18 align=center>"
logno_a=rs("logno")
logno_inof_f(logno_a)
RESPONSE.WRITE "</td><td width=25% height=18 align=center>"
RESPONSE.WRITE addtime
RESPONSE.WRITE "</td><td width=6% height=18 align=center>"
RESPONSE.WRITE "<a href=admin_memberedit.asp?id="&rs("username")&">"
RESPONSE.WRITE "<img src="&web_background&"/edit.gif border=0></a></td>"
RESPONSE.WRITE "<td width=6% height=18 align=center>"
RESPONSE.WRITE "<a href='memberdel.asp?id="&rs("userid")&"' border=0>"
RESPONSE.WRITE "<img src="&web_background&"/del.gif border=0></a></td>"
RESPONSE.WRITE "</tr>"
rs.movenext:if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing
RESPONSE.WRITE "</table><center>"
call LastNextPage(maxpage,page,result_num)
%>
<SCRIPT>SL_close();</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -