admin_user.asp

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

            <td width="8%" nowrap style="padding-left:5px;"><strong>短信标题：</strong></td>
            <td width="92%"><input name="MsgTitle" type="text" id="MsgTitle" size="50" value="系统奖惩通知"></td>
          </tr>
          <tr class="td_25">
            <td nowrap style="padding-left:5px;"><strong>发&nbsp;信&nbsp;人：</strong></td>
            <td><input name="MsgSender" type="text" id="MsgSender" size="30" value="<%=EL_Common.ServerHTMLEncode(SiteName)%>"></td>
          </tr>
          <tr class="td_25">
            <td nowrap style="padding-left:5px;"><strong>短信内容：</strong></td>
            <td><textarea name="MsgContent" cols="60" rows="6" id="MsgContent">亲爱的<%=rsUser("UserName")%>：
    您好！您于 <%=Date()%> 获得系统的奖励，请注意查收！</textarea></td>
          </tr>
        </table>
	   </div>	</td>
  </tr>
  <tr>
    <td class="td_ItemName">&nbsp;</td>
    <td class="td_50"><input type="submit" name="Submit10" value="执行奖惩">
      <input type="button" name="Submit11" value=" 取 消 " onClick="location.href='Admin_User.asp?Action=Show&UserID=<%=UserID%>'">
      <input name="UserID" type="hidden" id="UserID" value="<%=UserID%>">
      <input name="Action" type="hidden" id="Action" value="SaveAward"></td>
  </tr>
</table>
</form>
<%
rsUser.Close()
Set rsUser = Nothing
Set UserCmd = Nothing
EL_Common.ShowScriptError()
End Sub


Sub ModifyUser()
On Error Resume Next
Dim UserCmd, rsUser, i
Dim UserID, ArrDiscountOfBook

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("@ShowType", 3, 1, 4, 2)
   .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()
ArrDiscountOfBook = Split(rsUser("ArrDiscountOfBook"), ",")
%>
<script language="javascript">
function Upface(filename){
   getObject("DefineFace").value = '<%=InstallDir%>Userface/Uploadfiles/'+ filename;
   getObject("imgFace").src = '<%=InstallDir%>Userface/Uploadfiles/'+ filename;
}
function fChange(type){
   if(type==0){
      getObject("SelectFace").disabled = false;
	  getObject("DefineFace").disabled = true;
	  getObject("TR_Upload").style.display = "none";
	  getObject("imgFace").src = getObject("SelectFace").value;
   }else{
      getObject("SelectFace").disabled = true;
	  getObject("DefineFace").disabled = false;
	  getObject("TR_Upload").style.display = "";
	  getObject("imgFace").src = getObject("DefineFace").value.trim()==""?getObject("imgFace").src:getObject("DefineFace").value;
   }
}
function onFaceSize(){
   var size = getObject("FaceSize").value.trim();  
   if(size=="" || size.indexOf("*")<=0 || size.indexOf("*")>=(size.length-1)){
      getObject("FaceSize").value = "40*40";
	  size = "40*40";
   }
   var arr = size.split("*");
   if(parseInt(arr[0])>120 || parseInt(arr[1])>120){
      alert("头像大小不能超过120*120");
	  getObject("FaceSize").value = "40*40";
	  getObject("FaceSize").focus();
	  return false;
   }
   getObject("imgFace").style.width = arr[0] +"px";
   getObject("imgFace").style.height = arr[1] +"px";
}
function Check(frm){
   if(frm.FaceType[1].checked){
      if(frm.DefineFace.value.trim()==""){
	     alert("请输入自定义头像地址");
		 frm.DefineFace.focus();
		 return false;
	  }
   }
   if(frm.TrueName.value.trim()==""){
      alert("请输入真实姓名");
	  frm.TrueName.focus();
	  return false;
   }
   if(frm.Email.value.trim()==""){
      alert("请输入电子邮件");
	  frm.Email.focus();
	  return false;
   }   
   
   SubmitOnce(frm);
}
</script>
<form name="myform" action="Admin_User.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="4" class="top_25"><strong>修改会员信息</strong></td>
  </tr>
  <tr>
    <td width="14%" align="right" nowrap class="td_ItemName">会员名：</td>
    <td colspan="3" nowrap class="td_25"><input name="text9" type="text" value="<%=rsUser("UserName")%>" size="30" readonly="true" disabled="disabled"></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">真实姓名：</td>
    <td colspan="3" nowrap class="td_25"><input name="TrueName" type="text" id="TrueName" value="<%=rsUser("TrueName")%>" size="30"></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">会员组：</td>
    <td nowrap class="td_25"><select name="GroupID" id="GroupID">
      <%=ShowGroupOption(rsUser("GroupID"))%>
    </select></td>
    <td align="right" nowrap class="td_ItemName">会员状态：</td>
    <td nowrap class="td_25"><input name="Locked" type="radio" class="nomargin" value="<%=EL_False%>" <%=EL_Common.SetObjectChecked("False", rsUser("Locked"))%>>
正常
  <input name="Locked" type="radio" class="nomargin" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsUser("Locked"))%>>
锁定</td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">修改密码：</td>
    <td nowrap class="td_25"><input name="Password" type="password" id="Password" size="30">
      <span class="redText">不修改请留空</span></td>
    <td align="right" nowrap class="td_ItemName">密码确认：</td>
    <td nowrap class="td_25"><input name="PasswordConfirm" type="password" id="PasswordConfirm" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">头像：</td>
    <td colspan="3" nowrap class="td_25"><table width="100%" border="0" cellspacing="1" cellpadding="0">
      <tr>
        <td width="5%" class="td_22"><img id="imgFace"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" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
            <tr>
              <td align="right" nowrap class="td_25">头像尺寸：</td>
              <td class="td_25"><input name="FaceSize" type="text" id="FaceSize" value="<%=rsUser("FaceSize")%>" size="10" onChange="onFaceSize()">
                不大于120*120</td>
            </tr>
            <tr>
              <td width="12%" nowrap class="td_25"><input name="FaceType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, rsUser("FaceType"))%> onClick="fChange(0)">
                选 择 头像：</td>
              <td width="88%" class="td_25"><select name="SelectFace" id="SelectFace" <% If rsUser("FaceType") = 1 Then Response.Write "disabled"%> onChange="getObject('imgFace').src=this.value">
           <%
		     For i = 1 To 17
			    If i<10 Then
				   Response.Write "<option value='"& InstallDir &"Userface/00"& i &".gif' "& EL_Common.SetObjectSelected(InstallDir &"Userface/00"& i &".gif", rsUser("Userface")) &">FACE_00"&i&"</option>"
				ElseIf 9<i<100 Then
				   Response.Write "<option value='"& InstallDir &"Userface/0"& i &".gif' "& EL_Common.SetObjectSelected(InstallDir &"Userface/0"& i &".gif", rsUser("Userface")) &">FACE_0"&i&"</option>"
				Else
				   Response.Write "<option value='"& InstallDir &"Userface/"& i &".gif' "& EL_Common.SetObjectSelected(InstallDir &"Userface/"& i &".gif", rsUser("Userface")) &">FACE_"&i&"</option>"
				End If
			 Next
		  %>
              </select></td>
            </tr>
            <tr>
              <td nowrap class="td_25"><input name="FaceType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, rsUser("FaceType"))%> onClick="fChange(1)">
                自定义头像：</td>
              <td width="88%" class="td_25"><input name="DefineFace" type="text" id="DefineFace" size="60" value="<%If rsUser("FaceType")=1 Then Response.Write rsUser("Userface")%>">              </td>
            </tr>
            <tr id="TR_Upload">
              <td align="right" nowrap class="td_25">上传：</td>
              <td width="88%" class="td_25"><iframe id="Upload" src="Admin_Upload.asp?DialogType=pic&EventName=Upface&IsCreatedThumb=0&Opt=face" frameborder="0" scrolling="no" width="100%"  height="50" allowtransparency="true"></iframe></td>
            </tr>
        </table>
		<script>fChange(<%=rsUser("FaceType")%>);</script>		</td>
      </tr>
    </table></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">性别：</td>
    <td width="38%" nowrap class="td_25"><input name="Sex" type="radio" class="nomargin" value="男" <%=EL_Common.SetObjectChecked(0, rsUser("Sex"))%>>
男
  <input name="Sex" type="radio" class="nomargin" value="女" <%=EL_Common.SetObjectChecked(1, rsUser("Sex"))%>>
女</td>
    <td width="16%" align="right" nowrap class="td_ItemName">生日：</td>
    <td width="32%" nowrap class="td_25"><input name="Birthday" type="text" id="Birthday" value="<%=rsUser("Birthday")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">身份证号：</td>
    <td colspan="3" nowrap class="td_25"><input name="IDCard" type="text" id="IDCard" value="<%=rsUser("IDCard")%>" size="30"></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">手机号码：</td>
    <td nowrap class="td_25"><input name="Mobile" type="text" id="Mobile" value="<%=rsUser("Mobile")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">联系电话：</td>
    <td nowrap class="td_25"><input name="Phone" type="text" id="Phone" value="<%=rsUser("Phone")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">传真号码：</td>
    <td nowrap class="td_25"><input name="Fax" type="text" id="Fax" value="<%=rsUser("Fax")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">电子邮件：</td>
    <td nowrap class="td_25"><input name="Email" type="text" id="Email" value="<%=rsUser("Email")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">QQ号码：</td>
    <td nowrap class="td_25"><input name="QQ" type="text" id="QQ" value="<%=rsUser("QQ")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">ICQ号码：</td>
    <td nowrap class="td_25"><input name="ICQ" type="text" id="ICQ" value="<%=rsUser("ICQ")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">MSN帐号：</td>
    <td nowrap class="td_25"><input name="MSN" type="text" id="MSN" value="<%=rsUser("MSN")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">婚否：</td>
    <td nowrap class="td_25"><input name="Marriage" type="radio" class="nomargin" value="已婚" <%=EL_Common.SetObjectChecked("已婚", rsUser("Marriage"))%>>
已婚
  <input name="Marriage" type="radio" class="nomargin" value="未婚" <%=EL_Common.SetObjectChecked("未婚", rsUser("Marriage"))%>>
未婚</td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">职业：</td>
    <td nowrap class="td_25"><input name="Job" type="text" id="Job" value="<%=rsUser("Job")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">职称/头衔：</td>
    <td nowrap class="td_25"><input name="JobTitle" type="text" id="JobTitle" value="<%=rsUser("JobTitle")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">公司名称：</td>
    <td nowrap class="td_25"><input name="CompanyName" type="text" id="CompanyName" value="<%=rsUser("CompanyName")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">收入：</td>
    <td nowrap class="td_25"><input name="Income" type="text" id="Income" value="<%=rsUser("Income")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">联系地址：</td>
    <td nowrap class="td_25"><input name="Address" type="text" id="Address" value="<%=rsUser("Address")%>" size="30"></td>
    <td align="right" nowrap class="td_ItemName">邮政编码：</td>
    <td nowrap class="td_25"><input name="ZipCode" type="text" id="ZipCode" value="<%=rsUser("ZipCode")%>" size="30"></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">个性签名：</td>
    <td colspan="3" nowrap class="td_25"><textarea name="Sign" cols="70" rows="5" id="Sign"><%=rsUser("Sign")%></textarea></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">论坛权限：</td>
    <td colspan="3" nowrap class="td_25"><input name="EnablePost" type="checkbox" class="nomargin" id="EnablePost" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsUser("EnablePost"))%>>
      是否可发帖 
      <input name="BoardSuperManager" type="checkbox" class="nomargin" id="BoardSuperManager" value="<%=EL_True%>" <%=EL_Common.SetObjectChecked("True", rsUser("BoardSuperManager"))%>>
      <%=EL_Common.GetFieldValue("Top 1 LevelName", "EL_ForumLevel", "LevelType=2")%></td>
    </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName">预订享受折扣设置：<br>
      “0”为不享受折扣&nbsp;&nbsp;</td>
    <td colspan="3" nowrap class="td_25"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
      <tr>
        <td width="16%" nowrap class="td_ItemName">1. 酒店客房预订</td>
        <td width="84%" class="td_25"><input name="DiscountOfHotel" type="text" id="DiscountOfHotel" value="<%=ArrDiscountOfBook(0)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">2. 航班机票预订</td>
        <td class="td_25"><input name="DiscountOfFlight" type="text" id="DiscountOfFlight" value="<%=ArrDiscountOfBook(1)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">3. 度假产品预订</td>
        <td class="td_25"><input name="DiscountOfProduct" type="text" id="DiscountOfProduct" value="<%=ArrDiscountOfBook(2)%>" size="10">
          折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">4. 景点门票预订</td>
        <td class="td_25"><input name="DiscountOfSight" type="text" id="DiscountOfSight" value="<%=ArrDiscountOfBook(3)%>" size="10">
          折</td>
      </tr>