📄 user_list.asp

📁 校园二手交易系统,具有完备的后台操作以及应用功能!
💻 ASP
字号:
<!--#include file="top.asp"-->
<BODY>
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR align="center"> 
      <TD vAlign=top> 
               <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">
          <TBODY>
                <TR> 
              <TD  class=th> 
						&nbsp;<img border="0" src="images/news.gif" width="15" height="15"> 
						会员列表</TD>
                  
            </TR>
            
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>

<%
'****************************************************
' 多多校园电子商务工作室        Power by ddtaobao.com
' Email:kayvin@sohu.com    OICQ:6334278     站长:小羽
' Web: http://www.ddtaobao.com    淘宝旺旺:qq63334278
' Copyright (C) 2006 ddtaobao.com All Rights Reserved
'****************************************************
Dim StrSql,Rs
StrSql="select * from dduser order by user_id desc"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open StrSql,conn,1,1

'判断
Function sex1(str)
IF str="0" Then   
sex1="<img src=images/male.gif width=23 height=21 border=0 alt=我是帅哥，快来找我>"
ElseIF str="1" Then   
sex1="<img src=images/female.gif width=23 height=21 border=0 alt=我是美女，快来找我>"
End IF
End Function
%>


                  <tr> 

              

                  <div align="center">
           <TABLE cellpadding="3" cellspacing="1" align="center" class="tableborder1">

						<tr>
							<td align="center" width="53" class="tablebody1" height="25">
							序号</td>
							<td align="center" class="tablebody1" height="25">
							用户名</td>
							<td align="center" width="99" class="tablebody1" height="25">
							性别</td>
							<td align="center" width="128" class="tablebody1" height="25">
							电子信箱</td>
							<td align="center" width="85" class="tablebody1" height="25">
							QQ</td>
							<td align="center" width="127" class="tablebody1" height="25">
							注册时间</td>
							
							<td align="center" width="71" class="tablebody1" height="25">
							站内短信</td>
							
						</tr>
						<%
	  IF not rs.eof and not rs.bof then
	  dim page_size
	  dim page_no
	  dim page_total
	  page_size=15
	  if request.QueryString("page_no")="" then
	  page_no=1
	  else
	  page_no=cint(request.QueryString("page_no"))
	  end if
	  rs.pagesize=page_size
	  page_total=rs.pagecount
	  rs.absolutepage=page_no
	  dim I,J
	  I=0
	  J=page_size
	  do while not rs.eof and J>0
	  J=J-1
	  I=I+1
      %>

						<tr>
							<td align="center"class="tablebody1" width="53"><%=rs("user_id")%></td>
							<td align="center"class="tablebody1"><a href="userinfo.asp?user_id=<%=rs("user_id")%>" title="查看此用户的信息" target="_blank">
							<%=rs("user_name")%></a></td>
							<td align="center"class="tablebody1" width="99"><%=sex1(rs("user_sex"))%></td>
							<td align="center"class="tablebody1" width="128"><%=rs("user_email")%></td>
							<td align="center"class="tablebody1" width="85"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("user_qq")%>&Site=<%=homepage%>&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:<%=rs("user_qq")%>:16 alt="点击这里给我发消息"></a></td>
							<td align="center"class="tablebody1" width="127"><%=rs("user_date")%></td>
							
							<td align="center"class="tablebody1" width="71">
							<a target="_blank" title="给我发消息"  href="L_user.asp?pname=<%=rs("user_name")%>">
							<img border="0" src="img/mail.gif" width="45" height="18"></a></td>
							
						</tr><%
	      Rs.MoveNext
		Loop      
	  End IF
	  %>

					</table>
					
<table  width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class=page>
              <tr>
                <td><div align="center">[本页是<%=int(page_no)%>/<%=int(page_total)%>] [<a href="?page_no=1">第一页</a>]
              <%if int(page_no)>1 then%>
              [<a href="?page_no=<%=cstr(int(page_no-1))%>">前一页</a>]
              <%elseif int(page_no)<=1 then%>
              [<a href="?page_no=1">前一页</a>]
              <%end if%>
              <%if int(page_no)<int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_no+1))%>">后一页</a>]
              <%elseif int(page_no)>=int(page_total) then%>
              [<a href="?page_no=<%=cstr(int(page_total))%>">后一页</a>]
              <%end if%>
              [<a href="?page_no=<%=page_total%>">最后一页</a>] 转到
              <input name="page" type="text" value="<%=page_no%>" size="5">页
			<input type="button" class=input name="Submit" value="转到" onclick="GoPage()"></div></td>
              </tr>
</table>
					</div>

                  </tr>



          </TBODY>
        </TABLE>
  
<!--#include file="bottom.asp"--> 

<%
Rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
⌨️ 快捷键说明

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