usermanage.asp

来自「采用ASP。NET做的网上游戏交易平台」· ASP 代码 · 共 123 行

ASP
123 行
字号 
<!--#include file="dbconn.asp"-->
<html>
<%
Response.Expires = 0 
Response.ExpiresAbsolute=now()-1
if session("admin_username")="" then
Response.Write "<script language=javascript>" &vbCrLf&_
"alert('请确认您已经登录本系统或者您已经超时！！！');" &vbCrLf&_
"top.window.location='login.asp';"&vbCrLf&_
"</script>"
end if
const recordsize=5
dim mycurpage,rs,sql,pagemsg,totalpage,recordlen,tblname,myareakey
'/////////////////////////////////////////////////////////////////////////////
if request.querystring("curpage")="" then
mycurpage=1
else
mycurpage=cint(request.querystring("curpage"))
end if
'/////////////////////////////////////////////////////////////////////////////
set rs=server.createobject("adodb.recordset")
sql="select * from userinfo order by regDate desc"
rs.open sql,conn,3,1 
recordlen=rs.recordcount
if recordlen=0 then
pagemsg="对不起，还没有人注册帐号..."
else
if recordlen mod recordsize=0 then
totalpage=recordlen/recordsize
else
totalpage=fix(recordlen/recordsize)+1
end if
'/////////////////////////////////////////////////////////////////////////////
pagemsg="总共  <font color='#ff0000'>"&recordlen&"</font>  人注册 每页 <font color='#ff0000'>"&recordsize&" </font>人 当前: "&mycurpage&" / "&totalpage&" 页"
if mycurpage=1 then
pagemsg=pagemsg&"  [首页]    "
else
pagemsg=pagemsg&"  <a href='?curpage=1'>[首页] </a>   "
end if
if mycurpage=1 then
pagemsg=pagemsg&"   [上页]  "
else
pagemsg=pagemsg&"   <a href='?curpage="&(mycurpage-1)&"'>[上页]</a>  "
end if
if mycurpage=totalpage then
pagemsg=pagemsg&"   [下页]  "
else
pagemsg=pagemsg&"   <a href='?curpage="&(mycurpage+1)&"'>[下页]</a>  "
end if
if mycurpage=totalpage then
pagemsg=pagemsg&"   [尾页]"
else
pagemsg=pagemsg&"   <a href='?curpage="&totalpage&"'>[尾页]</a>"
end if
end if
%>
<head>
<link href="../wgcs.css" rel=stylesheet>
<title>交易信息</title>
<script language='javascript'>
function openMoneyWin(myid,flag){
var newWin=window.open("../seeInfo.asp?id="+myid+"&flagid="+flag,"8000WG","width=770,height=350,top=30,left=100");
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#dddddd">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="5" align="center" height="25"> 所 有 注 册 用 户 列 表 </td>
  </tr>
  <tr bgcolor="#eeeeee" align="center" height="40"> 
    <td><strong>帐 号</strong></td>
    <td><strong>注册日期</strong></td>
    <td><strong>电子信箱</strong></td>
    <td><strong>联系人&lt;电话&gt;</strong></td>
    <td><strong>操 作</strong></td>
  </tr>
  <%
  if recordlen=0 then
  response.write "<tr bgcolor='#FFFFFF'><td colspan=5 height=200><center><br><br>"&pagemsg&"</center></td></tr>"
  response.end
  end if
  rs.move((mycurpage-1)*recordsize)
  for j=1 to recordsize
  tmpid=rs("id")
  %>
  <tr bgcolor="#FFFFFF" align="center" height="22"> 
    <td> <%response.write rs("username")%> </td>
    <td> <%=rs("regDate")%> </td>
    <td> <font color="#800000"><%=rs("email")%></font> 
    </td>
    <td> <%=rs("contact")&"<"&rs("phone")&">"%> </td>
    <td> 
      <%
	  response.write "<a href='action.asp?actionstr=delete&tblname=userinfo&fieldid=ID&value="&tmpid&"'><font size=2 color='#800000'>删除此帐号</font></a>"
	  %>
    </td>
  </tr>
  <%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="5" align="right"> 
      <%
	if recordlen>0 then 
	response.write pagemsg
	else
	response.write "<center><br><br><br><br>***  对不起，没有找到任何消息！！！<center>"
	response.end
	end if
	%>
    </td>
  </tr>
</table>
</body>
</html>

usermanage.asp - 源码说明

本页面展示了「采用ASP。NET做的网上游戏交易平台」中的 usermanage.asp 源码文件，采用 ASP 编程语言编写，共 123 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?