admin_user.asp

依蓝旅游网站管理系统Elan2008.SP2

      <tr>
        <td nowrap class="td_ItemName">5. 汽车租用预订</td>
        <td class="td_25"><input name="DiscountOfCar" type="text" id="DiscountOfCar" value="<%=ArrDiscountOfBook(4)%>" size="10">
          折</td>
      </tr>
    </table></td>
    </tr>
  <tr>
    <td colspan="4" align="center" nowrap class="td_50"><input type="submit" name="Submit8" value="保存修改">
      <input type="button" name="Submit9" value="返回上页" onClick="history.back()">
      <input name="Action" type="hidden" id="Action" value="SaveModify">
      <input name="UserID" type="hidden" id="UserID" value="<%=UserID%>"></td>
  </tr>
</table>
</form>
<%
rsUser.Close()
Set rsUser = Nothing
Set UserCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub ShowUser(ShowType)
On Error Resume Next
Dim UserCmd, rsUser, i
Dim UserID, ArrFaceType(1), ArrDiscount
ArrFaceType(0) = "系统头像"
ArrFaceType(1) = "自定义头像"
UserID = EL_Common.ELRequest("UserID", 2)

Call EL_Common.InitCommand(UserCmd, "EL_SP_UserInfo")
With UserCmd
   .Parameters.Append .CreateParameter("RETURN", 2, 4)
   .Parameters.Append .CreateParameter("@ShowUser", 3, 1, 4, ShowType)
   .Parameters.Append .CreateParameter("@UserID", 3, 1, 4, UserID)
   .Parameters.Append .CreateParameter("@MessageNum", 3, 2, 4)
   Set rsUser = .Execute()
End With
rsUser.Close()
If UserCmd(0) <> 1 Then
   Set rsUser = Nothing
   Set UserCmd = Nothing
   EL_Common.ShowErrorMsg("指定会员不存在")
   Exit Sub
End If
rsUser.Open()

ArrDiscount = Split(rsUser("ArrDiscountOfBook"), ",")
%>
<style>
.eventbtn{width:100px;}
</style>
<script language="javascript">
function setLocked(type){
  var frm = getObject("myform");
  if(type==2){
     frm.action = "Admin_User.asp?Action=SetLockFalse&UserID=<%=UserID%>";
	 if(confirm("确认要解锁该会员吗？")){
        frm.submit();
	    return;
     }
  }else{
     frm.action = "Admin_User.asp?Action=SetLockTrue&UserID=<%=UserID%>";
	 if(confirm("确认要锁定该会员吗？")){
        frm.submit();
	    return;
     }
  }
  
  return false;
}
function AdminPassed(){
  var frm = getObject("myform");
  frm.action = "Admin_User.asp?Action=AdminPassed&UserID=<%=UserID%>";
  if(confirm("确认要通过验证该会员吗？")){
     frm.submit();
	 return;
  }  
  return false;
}
</script>
<form name="myform" action="Admin_User.asp" method="post">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="8" class="top_25"><strong>查看会员信息</strong></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">状态：</td>
    <td colspan="7" class="td_25">
    <%
	  If rsUser("Group_GroupType") = 0 Or rsUser("EmailPassed") = False Then
	     Response.Write "<span class='redtext'>等待邮件验证……</span>"
	  ElseIf rsUser("Group_GroupType") = 1 Or rsUser("AdminPassed") = False Then
	     Response.Write "<span class='bluetext'>等待管理员审核……</span>"
	  Else
	     Response.Write EL_Common.ShowBoolean(rsUser("Locked").value, "<span class=redtext>锁定</span>", "<span class=greentext>正常</span>")
	  End If
	%>	</td>
    </tr>
  <tr>
    <td width="7%" align="right" nowrap class="td_ItemName">会员名称：</td>
    <td width="11%" class="td_25"><input type="text" value="<%=rsUser("UserName")%>" size="15" readonly="true"></td>
    <td width="9%" align="right" nowrap class="td_ItemName">真实姓名：</td>
    <td width="22%" class="td_25"><input type="text" value="<%=rsUser("TrueName")%>" size="15" readonly="true"></td>
    <td width="8%" align="right" nowrap class="td_ItemName">所属会员组：</td>
    <td colspan="3" class="td_25"><input name="text2" type="text" value="<%=rsUser("Group_GroupName")%>" size="15" readonly="true"></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">性别：</td>
    <td class="td_25"><input name="text3" type="text" value="<%=ArrUserSex(rsUser("Sex"))%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">生日：</td>
    <td class="td_25"><input name="text4" type="text" value="<%=rsUser("Birthday")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">身份证号：</td>
    <td colspan="3" class="td_25"><input name="text5" type="text" value="<%=rsUser("IDCard")%>" size="30" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">头像：</td>
    <td colspan="7" class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <td width="5%"><img src="<%=rsUser("Userface")%>" width="<%=Split(rsUser("FaceSize"), "*")(0)%>" height="<%=Split(rsUser("FaceSize"), "*")(1)%>" style="margin:5px;"></td>
          <td width="95%"><table width="100%" border="0" cellspacing="1" cellpadding="0">
            <tr>
              <td width="8%" align="right">大小：</td>
              <td width="92%"><input name="textfield5" type="text" value="<%=rsUser("FaceSize")%>" size="10" readonly="true"></td>
            </tr>
            <tr>
              <td align="right">类型：</td>
              <td><input name="textfield52" type="text" value="<%=ArrFaceType(rsUser("FaceType"))%>" size="15" readonly="true"></td>
            </tr>
            <tr>
              <td align="right">地址：</td>
              <td><input name="textfield6" type="text" value="<%=rsUser("Userface")%>" size="50" readonly="true"></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">联系电话：</td>
    <td class="td_25"><input name="text32" type="text" value="<%=rsUser("Phone")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">手机号码：</td>
    <td class="td_25"><input name="text3224" type="text" value="<%=rsUser("Mobile")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">传真号码：</td>
    <td colspan="3" class="td_25"><input name="text322" type="text" value="<%=rsUser("Fax")%>" size="15" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">QQ号码：</td>
    <td class="td_25"><input name="" type="text" value="<%=rsUser("QQ")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">ICQ号码：</td>
    <td class="td_25"><input name="" type="text" value="<%=rsUser("ICQ")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">MSN帐号：</td>
    <td colspan="3" class="td_25"><input name="" type="text" value="<%=rsUser("MSN")%>" size="30" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">电子邮件：</td>
    <td colspan="3" class="td_25"><input name="" type="text" value="<%=rsUser("Email")%>" size="30" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">婚否：</td>
    <td colspan="3" class="td_25"><input name="" type="text" value="<%=rsUser("Marriage")%>" size="15" readonly="true"></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">职业：</td>
    <td class="td_25"><input name="" type="text" value="<%=rsUser("Job")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">职称/头衔：</td>
    <td class="td_25"><input name="" type="text" value="<%=rsUser("JobTitle")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">收入：</td>
    <td width="13%" class="td_25"><input name="" type="text" value="<%=rsUser("Income")%>" size="15" readonly="true"></td>
    <td width="8%" align="right" nowrap class="td_ItemName">邮政编码：</td>
    <td width="22%" class="td_25"><input name="" type="text" id="text3" value="<%=rsUser("ZipCode")%>" size="15" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">公司名称：</td>
    <td colspan="3" class="td_25"><input name="" type="text" value="<%=rsUser("CompanyName")%>" size="45" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">联系地址：</td>
    <td colspan="3" class="td_25"><input name="" type="text" value="<%=rsUser("Address")%>" size="45" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName"><%=PointItemName%>：</td>
    <td nowrap class="td_25"><input name="text63" type="text" value="<%=rsUser("Points") & PointItemUnit%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">注册日期：</td>
    <td colspan="5" nowrap class="td_25"><input name="Input" type="text" value="<%=rsUser("RegDateTime")%>" size="30" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">登陆次数：</td>
    <td nowrap class="td_25"><input name="" type="text" value="<%=rsUser("LoginTimes")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">最后登陆IP：</td>
    <td nowrap class="td_25"><input name="" type="text" value="<%=rsUser("LastLoginIp")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">登陆时间：</td>
    <td colspan="3" nowrap class="td_25"><input name="" type="text" value="<%=rsUser("LastLoginTime")%>" size="30" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">个性签名：</td>
    <td colspan="7" nowrap class="td_25"><textarea name="textarea" cols="90" rows="5" readonly="readonly"><%=rsUser("Sign")%></textarea></td>
  </tr>  
  <% If rsUser("Group_GroupType") = 2 And rsUser("EmailPassed") = True And rsUser("AdminPassed") = True Then %>
  <tr>
    <td colspan="8" nowrap class="td_ItemName"><strong>论坛信息：</strong></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">发帖权限：</td>
    <td nowrap class="item_25">
      <input name="Input3" type="text" value="<%=EL_Common.ShowBoolean(rsUser("EnablePost").value, "是", "否")%>" size="15" readonly="true">
    </td>
    <td align="right" nowrap class="td_ItemName">发表帖子数：</td>
    <td nowrap class="item_25">
      <input name="Input5" type="text" value="<%=rsUser("PostCount")%>" size="15" readonly="true">
    </td>
    <td align="right" nowrap class="td_ItemName">精华帖子数：</td>
    <td nowrap class="item_25">
      <input name="Input6" type="text" value="<%=rsUser("EliteCount")%>" size="15" readonly="true">
    </td>
    <td align="right" nowrap class="td_ItemName">论坛<%=ExpItemName%>：</td>
    <td nowrap class="item_25">
      <input name="Input7" type="text" value="<%=rsUser("Exps") & ExpItemUnit%>" size="15" readonly="true">
    </td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">论坛等级：</td>
    <td nowrap class="item_25">
      <input name="Input32" type="text" value="<%=EL_Common.ServerHTMLEncode(rsUser("ForumLevel"))%>" size="15" readonly="true">
    </td>
    <td align="right" nowrap class="td_ItemName">管理的版块：</td>
    <td colspan="5" nowrap class="item_25">
      <input name="Input8" type="text" value="<%If rsUser("BoardSuperManager") Then Response.write "所有" Else Response.write rsUser("ArrManageBoardID")%>" size="65" readonly="true">
    </td>
    </tr>
  <tr>
    <td colspan="8" nowrap class="td_ItemName"><strong>预订享受折扣：</strong></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">酒店预订：</td>
    <td nowrap class="item_25">
      <input name="" type="text" value="<%=ArrDiscount(0)%>" size="15" readonly="true">    </td>
    <td align="right" nowrap class="td_ItemName">机票预订：</td>
    <td nowrap class="item_25">
      <input name="" type="text" value="<%=ArrDiscount(1)%>" size="15" readonly="true">    </td>
    <td align="right" nowrap class="td_ItemName">线路预订：</td>
    <td nowrap class="item_25">
      <input name="" type="text" value="<%=ArrDiscount(2)%>" size="15" readonly="true">    </td>
    <td align="right" nowrap class="td_ItemName">景点预订：</td>
    <td nowrap class="item_25">
      <input name="" type="text" value="<%=ArrDiscount(3)%>" size="15" readonly="true">    </td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">租车预订：</td>
    <td nowrap class="item_25"><input name="Input2" type="text" value="<%=ArrDiscount(4)%>" size="15" readonly="true"></td>
    <td nowrap class="td_ItemName">&nbsp;</td>
    <td nowrap class="item_25">&nbsp;</td>
    <td nowrap class="td_ItemName">&nbsp;</td>
    <td nowrap class="item_25">&nbsp;</td>
    <td nowrap class="td_ItemName">&nbsp;</td>
    <td nowrap class="item_25">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="8" nowrap class="td_ItemName"><strong>订单统计：</strong></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">酒店订单：</td>
    <td nowrap class="td_25"><input name="text6" type="text" value="<%=rsUser("BookCount_Hotel")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">机票订单：</td>
    <td nowrap class="td_25"><input name="text7" type="text" value="<%=rsUser("BookCount_Flight")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">度假订单：</td>
    <td nowrap class="td_25"><input name="text8" type="text" value="<%=rsUser("BookCount_Product")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">景点订单：</td>
    <td nowrap class="td_25"><input name="text82" type="text" value="<%=rsUser("BookCount_Sight")%>" size="15" readonly="true"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">商城订单：</td>
    <td nowrap class="td_25"><input name="text6" type="text" value="<%=rsUser("BookCount_Shop")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">租车订单：</td>
    <td nowrap class="td_25"><input name="text62" type="text" value="<%=rsUser("BookCount_Car")%>" size="15" readonly="true"></td>
    <td align="right" nowrap class="td_ItemName">&nbsp;</td>
    <td align="right" nowrap class="td_25">&nbsp;</td>
    <td align="right" nowrap class="td_ItemName">&nbsp;</td>
    <td align="right" nowrap class="td_25">&nbsp;</td>
  </tr>
  <tr>