user_myinfo.asp

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

   If RowCount = 0 Then
      Response.Write "<tr><td class='td_50' colspan=7 align=center>没有任何记录</td></tr>"
   Else
     rsAward.Open()
	 For i = 1 To RowCount
  %>
  <tr class="td_22" onMouseOver="this.className='MouseOver_22'" onMouseOut="this.className='td_22'">
    <td align="center"><%=rsAward("AwardID")%></td>
    <td align="center"><%=EL_Common.ServerHTMLEncode(rsAward("UserName"))%></td>
    <td align="center"><%=ArrAwardType(rsAward("AwardType"))%></td>
    <td align="center" class="blueText"><%=rsAward("Num")%></td>
    <td align="center"><%=rsAward("Editor")%></td>
    <td align="center"><%=rsAward("UpdateTime")%></td>
    <td style="padding-left:5px;"><%=EL_Common.HTMLEncode(rsAward("Remark"))%><a href="User_MyInfo.asp?Action=ShowLog&AwardID=<%=rsAward("AwardID")%>"></a></td>
  </tr>
  <% 
       If i<RowCount Then rsAward.MoveNext
	 Next
	 rsAward.Close()
   End If
  %>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td height="25" align="right"><%=EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "记录", "条")%></td>
  </tr>
</table>
<%
Set rsAward = Nothing
Set AwardCmd = Nothing
EL_Common.ShowScriptError()
End Sub

Sub MyInfo()
On Error Resume Next
Dim ArrUserSex(2), i
ArrUserSex(0) = EL_Common.Lang("User.Sex0", "男")
ArrUserSex(1) = EL_Common.Lang("User.Sex1", "女")
ArrUserSex(2) = EL_Common.Lang("User.Sex2", "保密")
CurrentPath = CurrentPath &" >> 个人资料"
%>
<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 = "<%=DefaultFaceSize%>*<%=DefaultFaceSize%>";
	  size = "<%=DefaultFaceSize%>*<%=DefaultFaceSize%>";
   }
   var arr = size.split("*");
   if(parseInt(arr[0])><%=FaceMaxSize%> || parseInt(arr[1])><%=FaceMaxSize%>){
      alert("头像大小不能超过<%=FaceMaxSize%>*<%=FaceMaxSize%>");
	  getObject("FaceSize").value = "<%=DefaultFaceSize%>*<%=DefaultFaceSize%>";
	  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>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td><%=CurrentPath%></td>
  </tr>
</table>
<form name="myform" action="User_MyInfo.asp" method="post" onSubmit="return Check(this)">
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td colspan="8" class="top_26"><strong>个人资料</strong></td>
  </tr>
  <tr>
    <td align="right" nowrap class="td_ItemName"><strong>会员名称：</strong></td>
    <td colspan="3" class="td_item_22"><%=EL_Common.ServerHTMLEncode(EL_User.UserName)%></td>
    <td align="right" nowrap class="td_ItemName"><strong>所属会员组：</strong></td>
    <td colspan="3" class="td_item_22"><%=EL_Common.ServerHTMLEncode(EL_User.GroupName)%></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>头像：
        
    </strong></td>
    <td colspan="7" class="td_item_22"><table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <td width="5%" class="td_22"><img id="imgFace"src="<%=EL_User.Userface%>" width="<%=EL_User.FaceSizeX%>" height="<%=EL_User.FaceSizeY%>" 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_22">头像尺寸：</td>
              <td class="td_22"><input name="FaceSize" type="text" id="FaceSize" value="<%=EL_User.FaceSize%>" size="10" onChange="onFaceSize()">
              不大于<%=FaceMaxSize%>*<%=FaceMaxSize%></td>
            </tr>
            <tr>
              <td width="12%" nowrap class="td_22"><input name="FaceType" type="radio" class="nomargin" value="0" <%=EL_Common.SetObjectChecked(0, EL_User.FaceType)%> onClick="fChange(0)">
                选 择 头像：</td>
              <td width="88%" class="td_22"><select name="SelectFace" id="SelectFace" <% If EL_User.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", EL_User.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", EL_User.Userface)&">FACE_0"&i&"</option>"
				Else
				   Response.Write "<option value='"& InstallDir &"Userface/"& i &".gif' "& EL_Common.SetObjectSelected(InstallDir &"Userface/"& i &".gif", EL_User.Userface)&">FACE_"&i&"</option>"
				End If
			 Next
		  %>
              </select></td>
            </tr>
            <tr>
              <td nowrap class="td_22"><input name="FaceType" type="radio" class="nomargin" value="1" <%=EL_Common.SetObjectChecked(1, EL_User.FaceType)%> onClick="fChange(1)">
                自定义头像：</td>
              <td width="88%" class="td_22"><input name="DefineFace" type="text" id="DefineFace" size="60" value="<%If EL_User.FaceType=1 Then Response.Write EL_User.Userface%>">              </td>
            </tr>
            <tr id="TR_Upload">
              <td align="right" nowrap class="td_22">上传：</td>
              <td width="88%" class="td_22"><iframe id="Upload" src="User_Upload.asp?DialogType=pic&EventName=Upface&IsCreatedThumb=0&Opt=face" frameborder="0" scrolling="no" width="100%"  height="50" allowtransparency="true"></iframe></td>
            </tr>
          </table></td>
        </tr>
      </table>
	  <script>fChange(<%=EL_User.FaceType%>);</script>	</td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>真实姓名：</strong></td>
    <td colspan="7" class="td_item_22"><input name="TrueName" type="text" id="TrueName" value="<%=EL_Common.ServerHTMLEncode(EL_User.TrueName)%>" size="15"></td>
    </tr>
  <tr>
    <td width="9%" align="right" class="td_ItemName"><strong>性别：</strong></td>
    <td width="17%" class="td_item_22"><select name="Sex" id="Sex">
      <option value="0" <%=EL_Common.SetObjectSelected(0, EL_User.Sex)%>><%=ArrUserSex(0)%></option>
      <option value="1" <%=EL_Common.SetObjectSelected(1, EL_User.Sex)%>><%=ArrUserSex(1)%></option>
	  <option value="2" <%=EL_Common.SetObjectSelected(2, EL_User.Sex)%>><%=ArrUserSex(2)%></option>
    </select>    </td>
    <td width="9%" align="right" class="td_ItemName"><strong>生日：</strong></td>
    <td width="15%" class="td_item_22"><input name="Birthday" type="text" id="Birthday" value="<%=EL_Common.ServerHTMLEncode(EL_User.Birthday)%>" size="15"></td>
    <td width="9%" align="right" class="td_ItemName"><strong>身份证号：</strong></td>
    <td colspan="3" class="td_item_22"><span class="td_25">
      <input name="IDCard" type="text" id="IDCard" value="<%=EL_Common.ServerHTMLEncode(EL_User.IDCard)%>" size="30">
    </span></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>联系电话：</strong></td>
    <td class="td_item_22"><input name="Phone" type="text" id="Phone" value="<%=EL_Common.ServerHTMLEncode(EL_User.Phone)%>" size="15"></td>
    <td align="right" class="td_ItemName"><strong>手机号码：</strong></td>
    <td class="td_item_22"><input name="Mobile" type="text" id="Mobile" value="<%=EL_Common.ServerHTMLEncode(EL_User.Mobile)%>" size="15"></td>
    <td align="right" class="td_ItemName"><strong>传真号码：</strong></td>
    <td colspan="3" class="td_item_22"><input name="Fax" type="text" id="Fax" value="<%=EL_Common.ServerHTMLEncode(EL_User.Fax)%>" size="30"></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>QQ号码：</strong></td>
    <td class="td_item_22"><input name="QQ" type="text" id="QQ" value="<%=EL_Common.ServerHTMLEncode(EL_User.QQ)%>" size="15"></td>
    <td align="right" class="td_ItemName"><strong>ICQ号码：</strong></td>
    <td class="td_item_22"><input name="ICQ" type="text" id="ICQ" value="<%=EL_Common.ServerHTMLEncode(EL_User.ICQ)%>" size="15"></td>
    <td align="right" class="td_ItemName"><strong>MSN帐号：</strong></td>
    <td colspan="3" class="td_item_22"><input name="MSN" type="text" id="MSN" value="<%=EL_Common.ServerHTMLEncode(EL_User.MSN)%>" size="30"></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>电子邮件：</strong></td>
    <td colspan="3" class="td_item_22"><input name="Email" type="text" id="Email" value="<%=EL_Common.ServerHTMLEncode(EL_User.Email)%>" size="30"></td>
    <td align="right" class="td_ItemName"><strong>婚否：</strong></td>
    <td colspan="3" class="td_item_22"><span class="td_25">
      <input name="Marriage" type="radio" class="nomargin" value="已婚" <%=EL_Common.SetObjectChecked("已婚", EL_User.Marriage)%>>
已婚
<input name="Marriage" type="radio" class="nomargin" value="未婚" <%=EL_Common.SetObjectChecked("未婚", EL_User.Marriage)%>>
未婚</span></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>职业：</strong></td>
    <td class="td_item_22"><input name="Job" type="text" id="Job" value="<%=EL_Common.ServerHTMLEncode(EL_User.Job)%>" size="15"></td>
    <td align="right" nowrap class="td_ItemName"><strong>职称/头衔：</strong></td>
    <td class="td_item_22"><input name="JobTitle" type="text" id="JobTitle" value="<%=EL_Common.ServerHTMLEncode(EL_User.JobTitle)%>" size="15"></td>
    <td align="right" class="td_ItemName"><strong>收入：</strong></td>
    <td width="14%" class="td_item_22"><input name="Income" type="text" id="Income" value="<%=EL_Common.ServerHTMLEncode(EL_User.Income)%>" size="15"></td>
    <td width="9%" align="right" nowrap class="td_ItemName"><strong>邮政编码：</strong></td>
    <td width="18%" class="td_item_22"><input name="ZipCode" type="text" id="ZipCode" value="<%=EL_Common.ServerHTMLEncode(EL_User.ZipCode)%>" size="15"></td>
  </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>公司名称：</strong></td>
    <td colspan="3" class="td_item_22"><input name="CompanyName" type="text" id="CompanyName" value="<%=EL_Common.ServerHTMLEncode(EL_User.CompanyName)%>" size="50"></td>
    <td align="right" class="td_ItemName"><strong>联系地址：</strong></td>
    <td colspan="3" class="td_item_22"><input name="Address" type="text" id="Address" value="<%=EL_Common.ServerHTMLEncode(EL_User.Address)%>" size="50"></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>登陆次数：</strong></td>
    <td class="td_item_22"><%=EL_Common.ServerHTMLEncode(EL_User.LoginTimes)%> 次</td>
    <td align="right" nowrap class="td_ItemName"><strong>最后登陆IP：</strong></td>
    <td class="td_item_22"><%=EL_Common.ServerHTMLEncode(EL_User.LastLoginIP)%></td>
    <td align="right" nowrap class="td_ItemName"><strong>最后登陆时间：</strong></td>
    <td colspan="3" class="td_item_22"><%=EL_Common.ServerHTMLEncode(EL_User.LastLoginTime)%></td>
    </tr>
  <tr>
    <td align="right" class="td_ItemName"><strong>个性签名：</strong></td>
    <td colspan="7" class="td_item_22"><textarea name="Sign" cols="80" rows="5" id="Sign"><%=EL_User.Sign%></textarea></td>
    </tr>
  <tr>
    <td colspan="2" align="right" class="td_ItemName"><strong>您预订可享受的折扣情况</strong><br>
“0”为不享受折扣</td>
    <td colspan="6" class="td_item_22"><table width="100%" border="0" cellpadding="0" cellspacing="1">
      <tr>
        <td width="16%" nowrap class="td_ItemName">1. 酒店客房预订</td>
        <td width="26%" class="td_25"><input name="text" type="text" value="<%=EL_User.DiscountOfHotel%>" size="10" readonly="true">
          折</td>
        <td width="15%" align="right" class="td_ItemName">2. 航班机票预订</td>
        <td width="43%" class="td_25"><input name="text2" type="text" value="<%=EL_User.DiscountOfFlight%>" size="10" readonly="true">
折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">3. 度假产品预订</td>
        <td class="td_25"><input name="text3" type="text" value="<%=EL_User.DiscountOfProduct%>" size="10" readonly="true">
折</td>
        <td align="right" class="td_ItemName">4. 景点门票预订</td>
        <td class="td_25"><input name="text4" type="text" value="<%=EL_User.DiscountOfSight%>" size="10" readonly="true">
折</td>
      </tr>
      <tr>
        <td nowrap class="td_ItemName">5. 汽车租用预订</td>
        <td class="td_25"><input name="text5" type="text" id="text" value="<%=EL_User.DiscountOfCar%>" size="10" readonly="true">
折</td>
        <td align="right" class="td_ItemName">&nbsp;</td>
        <td class="td_25">&nbsp;</td>
      </tr>
    </table></td>
    </tr>
  <tr>
    <td colspan="8" align="center" class="td_50"><input name="Action" type="hidden" id="Action" value="SaveInfo">
      <input type="submit" name="Submit" value="保存修改">
      <input type="reset" name="Submit2" value="重置表单"></td>
    </tr>
</table>
</form>

<%
EL_Common.ShowScriptError()
End Sub
%>
</div>
</body>
</html>