📄 user.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from v_usertable",conn,1,1
sql="select count(*) as users from usertable"
set rsusers=conn.execute(sql)
Dim License
Set License=Server.CreateObject("SmartSales.License")
Licenseinfo=License.GetLicense()
'response.write Licenseinfo
Destr = Split(Licenseinfo, "*_*")
if Request.QueryString("CurPage") = "" or Request("CurPage") = 0 or tofirstpage=true then
CurPage = 1
else
CurPage = cint(Request.QueryString("CurPage"))
end If
if not Rs.eof then
Rs.PageSize=session("PageSize")
Rs.AbsolutePage=CurPage
else
CurPage=0
end if
i=1
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>用户列表</title>
</head>
<body vlink="#48576C" link="#48576C" alink="#000000" bgcolor="#FFFFFF" topmargin="3">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50%"><strong><font class=title>用户列表</font></strong>
<%if rsusers("users")<cint(500) then%>
<a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=500, height=400','newuser.asp');"><img src="../images/button_new.gif" border=0></a>
<%end if%>
最大用户数量：<font color=red>500</font> 当前用户数量：<font color=red><%=rsusers("users")%></font>
</td>
<td height="25"> <div align="right">
<%
if CurPage<=1 then
Response.Write "<a href='user.asp?CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='user.asp?CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='user.asp?CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='user.asp?CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='user.asp?CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='user.asp?CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</div></td>
</tr>
<tr >
<td height="16" colspan="3" background="../images/title.gif"> </td>
</tr>
<tr>
<td></td>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="5%" height="20" align=center>No</td>
<td width="10%" align=center>登录名</td>
<td width="10%" align=center>用户名</td>
<td width="10%" align=center>职务</td>
<td width="15%" align=center>最后登录时间</td>
<td width="12%" align=center>登录IP</td>
<td width="10%" align=center>登录次数</td>
<td width="10%" align=center>最大折扣</td>
<td align=center>操作</td>
</tr>
<%
do while not rs.EOF and i<=session("pagesize")
%>
<tr bgcolor="#FFFFFF">
<td height="20" align=center><%=i%></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=500, height=400','newuser.asp?id=<%=rs("id")%>');"><%=rs("loginid")%></a></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=600, height=500','authorization.asp?loginid=<%=rs("loginid")%>&username=<%=rs("username")%>');"><%=rs("username")%></a></td>
<td align=center><%=rs("title")%></td>
<td align=center><%=rs("lastlogindate")%></td>
<td align=center><%=rs("loginip")%></td>
<td align=center><%=rs("logintimes")%></td>
<td align=center><%=rs("maxdiscount")%>%</td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=500, height=400','newuser.asp?id=<%=rs("id")%>');">编辑</a>
<a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 100, top=100, menubar=no, location=no, toolbar=no ,width=600, height=500','authorization.asp?loginid=<%=rs("loginid")%>&username=<%=rs("username")%>');">授权</a>
<a href="javascript:opensubwin('resizable=yes, scrollbars=no, left= 300, top=220, menubar=no, location=no, toolbar=no ,width=300, height=200','../delete.asp?userid=<%=rs("id")%>');">删除</a></td>
</tr>
<%
rs.MoveNext
i=i+1
loop
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -