?? u_lb_rx.asp
字號(hào):
<!--#include file="conn.asp" -->
<%
rx=request("rx")
session(rx)=request("rx")
exec="select * from user where rx='"+rx+"'order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<link href="../css/aindex.css" rel="stylesheet" type="text/css" />
<link href="../css/index.css" rel="stylesheet" type="text/css" />
<link href="../css/alink.css" rel="stylesheet" type="text/css" />
<table width="100%" align="right" cellpadding="5" cellspacing="1" class="bx">
<tr>
<td colspan="8" bgcolor="#FFFFFF" class="bg">會(huì)員列表</td>
</tr>
<tr>
<td colspan="8" bgcolor="#FFFFFF"><!--#include file="u_so.asp" --></td>
</tr>
<tr>
<td colspan="8" class="bg4">
<%
rs.pagesize=10
pagecount=rs.pagecount
page=int(request.QueryString("page"))
bt=session(rx)
if page<1 then page=1
if request.QueryString("page")="" then
page=1
end if
rs.AbsolutePage=page
%>
<%
if Page<>1 then
response.write "<a href=?rx="+cstr(bt)+"&page=1>首頁(yè)</a> "
response.write "<a href=?rx="+cstr(bt)+"&page="+cstr(Page-1)+">上一頁(yè)</a> " '********
else
Response.Write "首頁(yè) 上一頁(yè) "
end if
if Page<>pagecount then
response.write "<a href=?rx="+cstr(bt)+"&page="+cstr(Page+1)+">下一頁(yè)</a> "
response.write "<a href=?rx="+cstr(bt)+"&page="+cstr(pagecount)+">尾頁(yè)</a> "
else
Response.Write "下一頁(yè) 尾頁(yè) "
end if
%>
<% for i=1 to pagecount %>
<% if cstr(i)=request.querystring("page") then
response.write(cstr(i))
else
response.write" <a href=?rx="+cstr(bt)+"&page="+cstr(i)+">"+cstr(i)+"</a> "
end if
%>
<% next %>
</td>
</tr>
<tr>
<td width="13%" class="bg">用戶</td>
<td width="12%" class="bg">姓名</td>
<td width="5%" class="bg">性別</td>
<td width="9%" class="bg">生日</td>
<td width="13%" class="bg">電話</td>
<td width="12%" class="bg">QQ</td>
<td width="11%" class="bg">操作</td>
<td width="25%" class="bg">是否已入學(xué)</td>
</tr>
<% for i=1 to rs.pagesize %>
<% if rs.eof then
exit for
end if
%>
<tr bgColor=#FFFFFF onMouseOver="javascript:this.bgColor='#E6F7FB';"onMouseOut="javascript:this.bgColor='#FFFFFF';" >
<td><a href="u_u.asp?id=<%=rs("id")%>"><%=rs("uname")%></a> </td>
<td><a href="u_u.asp?id=<%=rs("id")%>"><%=rs("un")%></a><font color=#009900"><strong><%if rs("rx")="是" then response.write"√" %></strong></font></td>
<td align="center"><%=rs("xb")%></td>
<td><%=rs("sr")%></td>
<td><%=rs("tel")%></td>
<td><a href="href=http://wpa.qq.com/msgrd?V=1&Uin=314191031&Site=互動(dòng)服務(wù)&Menu=yes"target=blank ><%=rs("qq")%></a></td>
<td>
<a href="u_check.asp?id=<%=rs("id")%>">修改</a>
<a href="u_del.asp?id=<%=rs("id")%>">刪除</a>
<a href="u_check.asp?id=<%=rs("id")%>"></a></td>
<td>
<%
if rs("rx")="是" then
Response.Write "<a href=ubm.asp?rx=否&id="&rs("id")&">√</a>"
else
Response.Write "<a href=ubm.asp?rx=是&id="&rs("id")&">●</a>"
end if
%></td>
</tr>
<%
rs.movenext
next
%>
</table>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -