finduser.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!--#include file="checkadmin.asp"-->
<!--#include file="../Js/BBR_PlaceJs.asp"-->
<%
Call CheckAdminFlag(TempAdminFlag,2)

Dim UserID
UserID=CheckStr(Trim(Rst("UserID")))
if not isNum(UserID) then Call AlertInfo("没有找到此用户的信息！","",0)
Dim RsUser
set rsuser=server.createobject("adodb.recordset")
sql="select * from users where regid="&UserID
rsuser.open sql,conn,1,3
%>
<center>
<BR>
<table align=center cellpadding=0 cellspacing=0 width=98% border=0>
<tr>
<td width=100% align=center>
<table align=center cellpadding=3 cellspacing=1 width=100% border=0 class=tablebg>
<form name=Form1 action="edituser.asp" method=post>
<tr class=titletd><td align=center width=100% colspan=2><font color=#FFFFFF><b>以下是 <font color=#DDDD33><%=RsUser("RegUserName")%></font> 的用户信息</b></font></td></tr>
<tr class=td><td align=right width=40%>用 户 名：</td><td align=left><input type=text name=username value="<%=rsuser("regusername")%>"></td></tr>
<tr class=td><td align=right>用户密码：</td><td align=left><input type=password name=password value="<%=rsuser("regpassword")%>"></td></tr>
<tr class=td><td align=right>交易昵称：</td><td align=left><input type=text name=name value="<%=rsuser("regname")%>"></td></tr>
<tr class=td><td align=right>用户性别：</td>
  <td align=left>
<%
Dim TempL0,TempL1,TempL2
TempL0=Trim(rsUser("regsex"))
if TempL0="" or isNull(TempL0) then TempL0="保密"
TempL1="男，女，保密"
TempL2="男，女，保密"
Call RadioOper(TempL0,TempL1,TempL2,"sex")
%>
  </td>
</tr>
<tr class=td><td align=right>身份证号：</td><td align=left><input type=text name=idcard maxlength=18 value="<%=rsuser("idcard")%>"></td></tr>
<tr class=td><td align=right>所在省份：</td>
  <td align=left>
    <% Call BBR_PlaceJs(RsUser("RegState"),RsUser("Regcity")) %>
  </td>
</tr>
<tr class=td><td align=right>居住标志：</td><td align=left><input type=text name=address2 value="<%=rsuser("regaddress2")%>"></td></tr>
<tr class=td><td align=right>联系电话：</td><td align=left><input type=text name=tel value="<%=rsuser("regtel")%>"></td></tr>
<tr class=td><td align=right>联系 QQ ：</td><td align=left><input type=text name=userqq value="<%=rsuser("userqq")%>" maxlength=9></td></tr>
<tr class=td><td align=right>联系Email：</td><td align=left><input type=text name=email value="<%=rsuser("regemail")%>"></td></tr>
<tr class=td><td align=right>联系地址：</td><td align=left><input type=text name=address1 value="<%=rsuser("regaddress1")%>"></td></tr>
<tr class=td><td align=right>邮　　编：</td><td align=left><input type=text name=zip value="<%=rsuser("regzip")%>"></td></tr>
<tr class=td><td align=right>信用积分：</td><td align=left><input type=text name=credit value="<%=rsuser("credit")%>"></td></tr>
<tr class=td><td align=right>真实认证：</td>
  <td align=left>
<%
Response.Write"<select name=degrade>"& Vbcrlf

TempL0=Trim(rsuser("degrade"))
if TempL0="" or isNull(TempL0) then TempL0=""
TempL1=" ，身份证"
TempL2="未认证，身份证"
Call SelectOper(TempL0,TempL1,TempL2)
Response.Write"</select>"& Vbcrlf
%>
  </td>
</tr>
<tr class=td><td align=right>现有资金：</td><td align=left><input type=text name=bbrmoney value="<%=rsuser("bbrmoney")%>"> <%=SYS_WebMoney%></td></tr>
<tr class=td><td align=right>审核状态：</td>
  <td align=left>
<%
Response.Write"<select name=validated>"& Vbcrlf

TempL0=Trim(Rsuser("regvalidated"))
if TempL0="" or isNull(TempL0) then TempL0="N"
TempL1="Y，N"
TempL2="已审核，未审核"
Call SelectOper(TempL0,TempL1,TempL2)
Response.Write"</select>"& Vbcrlf
%>
  </td>
</tr>
<tr class=td><td align=right>帐号锁定：</td>
  <td align=left>
<%
Response.Write"<select name=regadmin>"& Vbcrlf

TempL0=Trim(Rsuser("regadmin"))
if TempL0="" or isNull(TempL0) then TempL0="N"
TempL1="Y，N"
TempL2="已锁定，未锁定"
Call SelectOper(TempL0,TempL1,TempL2)
Response.Write"</select>"& Vbcrlf
%>
  </td>
</tr>
<tr class=td><td align=right>注册时间：</td><td align=left><input type=text name=regtime value="<%=rsuser("regtime")%>"></td></tr>
<tr class=td height=38><td align="center" colspan=2><input type=hidden name=UserID value="<%=UserID%>"><input name=submit type=submit value="更新用户信息"> &nbsp; <input name=back type=button value="返回用户列表" onclick="location.href='Search_Users.asp';"></td></tr>
</form>
</table>
</td>
</tr>
</table>
</center>