📄 user_list.asp

📁 本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
  <TBODY>
    <TR> <td><!--#include file="top.asp"-->
<BODY topmargin="0">
<TABLE width=760 border=0 align=center cellpadding="4">
  <TBODY>
    <TR align="center"> 
      <TD vAlign=top> 
        <TABLE cellSpacing="1" width="100%" cellpadding="0" border=0>
          <TBODY>
            
<SCRIPT LANGUAGE="JavaScript">
<!--
function GoPage() {
window.location.href="?page_no="+ page.value;
}
//-->
</SCRIPT>

<%
Dim StrSql,Rs
StrSql="select * from user_info order by user_id desc"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open StrSql,conn,1,1

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


                  <tr> 

                    <td height=18 bgcolor="#FFFFFF"</td>

                  <div align="center">
					<table border="0" width="100%" cellpadding="0" cellspacing="1" bgcolor="#C0C0C0">

						<tr>
							<td align="center" width="53" background="img/bg.gif" height="25">
							序号</td>
							<td align="center" background="img/bg.gif" height="25">
							用户名</td>
							<td align="center" width="99" background="img/bg.gif" height="25">
							性别</td>
							<td align="center" width="128" background="img/bg.gif" height="25">
							电子信箱</td>
							<td align="center" width="85" background="img/bg.gif" height="25">
							QQ</td>
							<td align="center" width="127" background="img/bg.gif" height="25">
							注册时间</td>
							
							<td align="center" width="71" background="img/bg.gif" 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" bgcolor="#FFFFFF" width="53"><%=rs("user_id")%></td>
							<td align="center" bgcolor="#FFFFFF"><a href="userinfo.asp?user_id=<%=rs("user_id")%>" title="查看此用户的信息" target="_blank">
							<%=rs("user_name")%></a></td>
							<td align="center" bgcolor="#FFFFFF" width="99"><%=sex1(rs("user_sex"))%></td>
							<td align="center" bgcolor="#FFFFFF" width="128"><%=rs("user_email")%></td>
							<td align="center" bgcolor="#FFFFFF" width="85"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("user_qq")%>&Site=jjyy&Menu=yes title="有事Ｑ我"><%=rs("user_qq")%></a></td>
							<td align="center" bgcolor="#FFFFFF" width="127"><%=rs("user_date")%></td>
							
							<td align="center" bgcolor="#FFFFFF" 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">
              <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>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<!--#include file="bottom.asp"--> </TD>
    </TR>
  </TBODY>
</TABLE>
⌨️ 快捷键说明

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