<!-- #include file="conn.asp" -->
<!-- #include file="cls_main.asp" -->
<!-- #include file="cls_md5.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员中心</title>
<link href="User_Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="800"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td colspan="3"><img src="images/user_top.gif" width="800" height="13"></td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td width="190"><img src="images/User_Logo.gif" width="150" height="72"></td>
    <td width="600" align="right"><table  border="0" cellpadding="0" cellspacing="1">
        <tr>
          <td>·<a href="default.html">站点首页</a> ·<a href="downnew/0_1.html">最近更新</a> ·<a href="downtop/1_1.html">下载排行</a> </td>
          <td>·<a href="UserLogin.asp?action=logout">退出登录</a></td>
          <td width="10">&nbsp;</td>
        </tr>
      </table>
        <table  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td height="52" align="center" background="images/user_bg.gif"><img src="images/user_bg1.gif" width="8" height="52" align="absmiddle">&nbsp;<a href="User_Index.asp">会员中心</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Upload.asp">上传软件</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Resource.asp">添加软件</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Down_Reslist.asp">软件管理</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Cms_Resource.asp">添加文章</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Cms_Reslist.asp">文章管理</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_Modfiy.asp">资料修改</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_BuyPoints.asp">帐号充值</a> <img src="images/bg_dot1.gif" width="3" height="25" align="absmiddle"> <a href="User_List.asp">会员列表</a>&nbsp;<img src="images/user_bg2.gif" width="10" height="52" align="absmiddle"></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="400" valign="top">
<% dim obj
set obj = New User_Modfiy
	obj.AspInit()
set obj = nothing %>
	</td>
  </tr>
</table>
<table width="800" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/user_ti.gif" width="800"></td>
  </tr>
</table>
</body>
</html>
<% Class User_Modfiy
	
	Private ishion
	Private Sub Class_Initialize()
		Set ishion = New Cls_Main
	End Sub
	Private Sub Class_Terminate()
		Set ishion = Nothing
	End Sub
	
	Public Sub AspInit()
		
		If ishion.MemberUserName = "" Then
			ishion.strMsg = "<li>非法操作，您没有登录系统，<a href=""UserLogin.asp"">点击此处进入登录界面</a>。"
			Call ishion.SystemMsg
		Else
			Call Main
		End If
	
	End Sub
	
	Private Sub Main()
		Select Case Trim(Request("action"))
		Case "save"
			Call saveedit
		Case Else
			Call edit
		End Select
	End Sub

	Private Sub saveedit()

		If ishion.ChkPost = False Then
			ishion.strMsg = "非法操作，不要从外部提交数据。"
			Call ishion.SystemMsg
			Exit Sub
		End If
			
		Dim Rs, sql, UserIM
		Call ConnectionDatabase
		sID = CLng(Request.Form("UserID"))
		UserIM = Trim(Request.Form("UserIM(0)")) & "|" & Trim(Request.Form("UserIM(1)")) & "|" & Trim(Request.Form("UserIM(2)")) & "|" & Trim(Request.Form("UserIM(3)")) & "|" & Trim(Request.Form("UserIM(4)")) & "|" & Trim(Request.Form("UserIM(5)")) & "|" & Trim(Request.Form("UserIM(6)")) & "|" & Trim(Request.Form("UserIM(7)"))
		Set Rs = Server.CreateObject("adodb.recordset")
		sql = "select * from ishion_User where UserID=" & ishion.MemberUserID
		Rs.open sql, Conn, 1, 3
		Rs("UserEmail") = Trim(Request.Form("UserEmail"))
		If Request.Form("UserPassword") <> "" Then Rs("UserPassword") = MD5(Trim(Request.Form("UserPassword")), 32)
		Rs("UserSign") = Trim(Request.Form("UserSign"))
		Rs("UserSex") = Trim(Request.Form("UserSex"))
		If Request.Form("UserBirthday") <> "" Then Rs("UserBirthday") = Trim(Request.Form("UserBirthday"))
		Rs("UserQuesion") = Trim(Request.Form("UserQuesion"))
		If Request.Form("UserAnswer") <> "" Then Rs("UserAnswer") = MD5(Trim(Request.Form("UserAnswer")), 32)
		Rs.Update
		Rs.Close
		Set Rs = Nothing
		ishion.strMsg = "保存修改操作完成。"
		Call ishion.SystemMsg		

	End Sub
	Private Sub edit()
		Call ishion.LoadSetting
		Dim Rs
		Set Rs = ishion.Execute("select * from ishion_User where UserID=" & ishion.MemberUserID)
		Response.Write "<script language=""JavaScript"" src=""js/MyUserinfo.js""></script>" & vbCrLf
		Response.Write "<script language=""JavaScript"" src=""js/user_modfiy.js""></script>" & vbCrLf
		Response.Write "<style type=""text/css"">" & vbCrLf
		Response.Write "<!--" & vbCrLf
		Response.Write ".style1 {" & vbCrLf
		Response.Write "    color: blue;" & vbCrLf
		Response.Write "    font-weight: bold;" & vbCrLf
		Response.Write "}" & vbCrLf
		Response.Write "-->" & vbCrLf
		Response.Write "</style>" & vbCrLf
			
		Response.Write "<table width=""100%""  border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">" & vbCrLf
		Response.Write "<form action=""?action=save"" method=""post"" name=""edituser"" onSubmit=""VF_edituser();return false;""><input name=""UserID"" type=""hidden"" value=""" & Rs("UserID") & """>" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "    <td colspan=""2"" align=""center"" background=""images/menubg.gif"">用户帐号设置</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">用户名：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserName"" type=""text"" size=""40"" maxlength=""30"" value=""" & Rs("UserName") & """ readonly></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">密码：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserPassword"" type=""text"" size=""40"" maxlength=""50"" value=""""> 如果不修改请留空</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">邮箱：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserEmail"" type=""text"" size=""40"" maxlength=""50"" value=""" & Rs("UserEmail") & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">密码问题：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserQuesion"" type=""text"" size=""40"" maxlength=""50"" value=""" & Rs("UserQuesion") & """><br>" & vbCrLf
		Response.Write "    <select onchange=document.edituser.UserQuesion.value=this.value name=select> " & vbCrLf
		Response.Write "              <option value="""" selected>快速选择提示问题</option> " & vbCrLf
		Response.Write "              <option value=""我母亲的名字"">母亲的名字</option>" & vbCrLf
		Response.Write "              <option value=""我爷爷的名字"">爷爷的名字</option>" & vbCrLf
		Response.Write "              <option value=""我父亲出生的城市"">父亲出生的城市</option>" & vbCrLf
		Response.Write "              <option value=""我其中一位老师的名字"">您其中一位老师的名字</option>" & vbCrLf
		Response.Write "              <option value=""我个人计算机的型号"">您个人计算机的型号</option>" & vbCrLf
		Response.Write "              <option value=""我最喜欢的餐馆名称"">您最喜欢的餐馆名称</option>" & vbCrLf
		Response.Write "              <option value=""我家的宠物的名字"">我家的宠物的名字</option> " & vbCrLf
		Response.Write "              <option value=""我就读的第一所学校的名称"">我就读的第一所学校的名称</option> " & vbCrLf
		Response.Write "              <option value=""少年时代心目中的英雄是谁？"">少年时代心目中的英雄是谁？</option> " & vbCrLf
		Response.Write "              <option value=""我最喜欢的休闲运动是什么？"">我最喜欢的休闲运动是什么？</option> " & vbCrLf
		Response.Write "              <option value=""我最喜欢哪支运动队？"">我最喜欢哪支运动队？</option> " & vbCrLf
		Response.Write "              <option value=""我最喜欢的运动员是谁？"">我最喜欢的运动员是谁？</option> " & vbCrLf
		Response.Write "              <option value=""驾驶执照的最后四位数字"">驾驶执照的最后四位数字</option>" & vbCrLf
		Response.Write "      </select></td>" & vbCrLf
	
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">密码答案：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserAnswer"" type=""text"" size=""40"" maxlength=""50""> 如果不修改请留空</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">签名：</td>" & vbCrLf
		Response.Write "    <td><textarea name=""UserSign"" cols=""40"" rows=""5"">" & Rs("UserSign") & "</textarea></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">性别：</td>" & vbCrLf
		Response.Write "    <td><input type=""radio"""
		If Rs("UserSex") = 1 Then Response.Write (" checked")
		Response.Write " value=""1"" name=""UserSex""><img src=""images/icon_male.gif"" align=""absmiddle"">男孩 " & vbCrLf
		Response.Write "<input type=""radio"""
		If Rs("UserSex") = 0 Then Response.Write (" checked")
		Response.Write "value=""0"" name=""UserSex""><img src=""images/icon_female.gif"" align=""absmiddle"">女孩</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">用户生日：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserBirthday"" type=""text"" size=""20"" maxlength=""15"" value=""" & Rs("UserBirthday") & """ onfocus=""show_cele_date(UserBirthday,'','',UserBirthday)""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Dim arrUserIM
		arrUserIM = Split(Rs("UserIM"), "|")
		Response.Write "    <td align=""right"">个人主页：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(0)"" type=""text"" size=""40"" maxlength=""100"" value=""" & arrUserIM(0) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">联系电话：</td>" & vbCrLf
		Response.Write "    <td ><input name=""UserIM(1)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(1) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">QQ 号码：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(2)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(2) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">ICQ号码：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(3)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(3) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">MSN：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(4)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(4) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">AIM：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(5)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(5) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">Yahoo：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(6)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(6) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg3"">" & vbCrLf
		Response.Write "    <td align=""right"">UC：</td>" & vbCrLf
		Response.Write "    <td><input name=""UserIM(7)"" type=""text"" size=""40"" maxlength=""50"" value=""" & arrUserIM(7) & """></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr class=""tdbg2"">" & vbCrLf
		Response.Write "    <td align=""right"">&nbsp;</td>" & vbCrLf
		Response.Write "    <td><input type=""submit"" name=""Submit"" value=""提交修改"">" & vbCrLf
		Response.Write "      <input type=""reset"" name=""Submit"" value=""重置""></td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "</form>" & vbCrLf
		Response.Write "</table>" & vbCrLf
		Set Rs = Nothing
	End Sub

End Class %>

