📄 user_xiugai.asp

📁 一个朋友购买的商业版房产网源程序
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="pass.asp"-->
<link href="../images/css.css" rel="stylesheet" type="text/css">
<body background="../images/bg2.gif">
<form name="form1" method="post" action="?gn=search">
  <TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
    <TR borderColor=#ffffff bgColor=#ffffff> 
      <TD><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="#999999">
          <tr bgcolor="#FFFFFF"> 
            <td width="15%" bgcolor="#FFFFFF"><font color="#007db5"><strong>用户查找：</strong></font></td>
            <td width="12%" bgcolor="#FFFFFF"><div align="center"><font color="#007db5">输入关键字：</font></div></td>
            <td width="23%"><input name="ss" type="text" id="ss"></td>
            <td width="15%" bgcolor="#FFFFFF"><div align="center"><font color="#007db5">选择查找方式：</font> 
              </div></td>
            <td width="27%">
<input name="sslb" type="radio" value="uid" checked>
              用户名 
              <input type="radio" name="sslb" value="xb">
              性别
              <input type="radio" name="sslb" value="VIP">
              VIP</td>
            <td width="8%" bgcolor="#FFFFFF"> <div align="center">
                <input type="submit" name="Submit" value="GO">
              </div></td>
          </tr>
        </table></TD>
    </TR>
  </TABLE>
</form>
<br>
<br>
<% if request("gn")="search" then %>
<!--#include file="user_search.asp"-->
<% 
else
response.Write""
end if
%>
<% if request("gn")<>"search" then %>
<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff bgColor=#00659c>
  <TR borderColor=#007db5 bgColor=#007db5> 
    <TD vAlign=bottom bgcolor="#007db5"><font color="#FFFFFF">&nbsp;所有注册用户信息：</font></TD>
  </TR>
  <TR borderColor=#ffffff bgColor=#ffffff> 
    <TD><table width="100%" border="0" align="center" cellpadding="2" cellspacing="0" bordercolor="#999999">
<%
set rs=server.createobject("adodb.recordset") 
sql="select * from puser order by id desc"
rs.open sql,conn,1
		  
rs.pagesize=15 '每页显示多少条
pagecount=rs.pagecount '总页数
		  
if rs.bof and rs.eof then
response.write ""
else
					 
page=clng(request.querystring("page"))
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page  '跳到多少页
  
for i=1 to rs.pagesize
%>
        <tr bgcolor="#FFFFFF"> 
          <td>用户ID：</td>
          <td> 
            <div align="center"> 
              <input name="uid" type="text" id="uid" value="<% =rs("uid")%>">
            </div></td>
          <td> 
            <div align="center">用户姓名：</div></td>
          <td> 
            <div align="center"> 
              <input name="uname" type="text" id="uname" value="<% =rs("uname")%>">
            </div></td>
          <td> 
            <div align="center">注册日期：</div></td>
          <td> 
            <div align="center">
              <input name="data" type="text" id="data" value="<% =rs("data")%>" size="15">
            </div></td>
          <td> 
            <div align="center"> <font size="2"> 
              <input onClick="window.location='user_xiugai1.asp?xiugai=<% =rs("id") %>'"  type="button" value="修改" name="Button2">
              <input onClick="window.location='user_xiugai2.asp?id=<% =rs("id") %>'"  type="button" value="删除" name="Button22">
              </font> </div></td>
        </tr>
<% 
rs.movenext
if rs.eof then exit for 
next
end if 
%>
      </table></TD>
  </TR>
</TABLE>

<TABLE width="80%" border=1 align="center" cellPadding=2 cellSpacing=1 borderColor=#ffffff 
            bgColor=#00659c>
  <TBODY>
    <TR borderColor=#ededed bgColor=#ededed> 
      <TD align=middle height=25><div align="center"> 
          <% set tj=conn.execute("Select count(*) as tj1 From puser ") %>
          共有〖 
          <% =tj("tj1") %>
          〗个注册会员&nbsp;&nbsp;&nbsp;&nbsp; 
          <%
	r=7
	 
	'总页数
	zys=round(clng(rs.pagecount)/r+0.5)
	
	'当前页数
	dqys=request.QueryString("dqys") 
	
	'开始页
	ksy=request.QueryString("ksy") 
	
	if dqys="" then dqys=1
	if ksy="" then ksy=1 
	 
	js=clng(dqys) * r '一个FOR语句结束
	if js > clng(rs.pagecount) then js=clng(rs.pagecount)
	
	newksy= clng(dqys)*r-(r-1) '一个FOR语句开始
		
if clng(dqys) >1 then response.write "<a href=?dqys="& dqys-1 &">" &"上一页" &"</a>"

	  for t=newksy to js
	     response.write "<a href=?page=" &t&"&dqys="&dqys&">" &t& "</a>&nbsp;"
	  next
	  

if cdbl(dqys)< zys then response.write "<a href=?dqys="& dqys+1 &">" &"下一页" &"</a>"

	%>
        </div></TD>
    </TR>
  </TBODY>
</TABLE>
<% 
else
response.Write""
end if
%>
⌨️ 快捷键说明

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