user_search.asp

一个朋友购买的商业版房产网源程序

<!--#include file="pass.asp"-->
<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">
<%
ss=request("ss")
sslb=request("sslb")

set rs=server.createobject("adodb.recordset") 
sql="select * from puser where "&sslb&" like '%"&ss&"%' order by data desc"
rs.open sql,conn,1,3

if rs.bof and rs.eof then
response.write "Sorry 没找到您要的内容 ！"
else
while not rs.eof
%>

        <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
wend
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 where "&sslb&" like '%"&ss&"%'")
%>
          共搜索到信息〖 
          <% =tj("tj1") %>
          〗条</div></TD>
    </TR>
  </TBODY>
</TABLE>