<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<META content=ywnt,云网互动影视管理系统 name=keywords>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>个人资料</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../conn.asp"-->
<!--#include file="../Function/Function.asp"-->
<!-- #Include File = "../Function/Md5.asp" -->
<!--#include File = "../API/API_Config.asp"-->
<!--#include File = "../API/API_Function.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
     <tr>
       <td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
           <td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
             <tr>
               <td width="6%">&nbsp;</td>
               <td width="94%">个人资料</td>
             </tr>
           </table></td>
         </tr>
       </table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
         <tr>
           <td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
             <tr>
               <td><br>
<%Sub EditInformation()

		If API_Enable Then
        FoundErr = False
        ErrMsg = ""
        sPE_Items(conAction, 1) = "update"
		sPE_Items(conUsername, 1) = NoSqlHack(request.Form("UsersName"))
        sPE_Items(conQuestion, 1) = NoSqlHack(Request.Form("question"))
        sPE_Items(conAnswer, 1) = NoSqlHack(Request.Form("answer"))
        sPE_Items(conEmail, 1) = NoSqlHack(request.Form("email"))
        sPE_Items(conTruename, 1) = NoSqlHack(Request.Form("TrueName"))
        sPE_Items(conQQ, 1) = NoSqlHack(Request.Form("QQ"))
        If createXmlDom Then
            prepareXML True
            SendPost
            If FoundErr Then
                ErrMsg = "<li>" & ErrMsg & "</li>"
            End If
        Else
            FoundErr = True
            ErrMsg = "<li>目前注册服务不可用! [APIError-XmlDom-Runtime]</li>"
        End If
    End If

Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_Users where ID="&NoSqlHack(Request.Form("ID"))
Rs.open sql,Conn,1,3
RS("UsersProblems")=NoSqlHack(Request.Form("question"))
RS("UsersAnswer")=NoSqlHack(Request.Form("answer"))
RS("UsersTrueName")=NoSqlHack(Request.Form("TrueName"))
RS("UsersEmail")=NoSqlHack(Request.Form("email"))
RS("UsersQQ")=NoSqlHack(Request.Form("QQ"))
Rs.Update
Rs.Close
Set Rs = Nothing
call ShowErr("<li>用户资料修改成功</li>","Users_Information.asp",1)
End Sub
Action=Trim(request("Action"))
Select Case Action
Case "EditInformation"
	call EditInformation()
Case else
IF Request.Cookies("YWNTUserCookie")("UserName")="" Then
	call UsersLogin()
Else
	call Information()
End If
End Select
sub Information()
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select ID,UsersName,UsersProblems,UsersAnswer,UsersTrueName,UsersEmail,UsersQQ from YWNT_TMS_Users Where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'"
Rs.open sql,Conn,1,1
YWNT_TMS_ID=RS("ID")
YWNT_TMS_UsersName=RS("UsersName")
YWNT_TMS_UsersProblems=RS("UsersProblems")
YWNT_TMS_UsersAnswer=RS("UsersAnswer")
YWNT_TMS_UsersTrueName=RS("UsersTrueName")
YWNT_TMS_UsersEmail=RS("UsersEmail")
YWNT_TMS_UsersQQ=RS("UsersQQ")
RS.close   
set RS=nothing%>
				<script language="javascript" src="js/js.js"></script>
			   <table width="66%" align="center" cellpadding="0" cellspacing="0">
			   	<form name="form" id="Reg" action="Users_Information.asp?Action=EditInformation" method="post" onSubmit="return Validator.Validate(this,3)">
                 <tr>
                   <td width="29%" height="30">用 户 名：</td>
                   <td colspan="2"><input id="UsersName" readonly="readOnly" size="15" value="<%=YWNT_TMS_UsersName%>" name="UsersName" />
                   </td>
                 </tr>
                 <tr>
                   <td height="30">真实姓名：</td>
                   <td colspan="2"><input id="TrueName" size="15" value="<%=YWNT_TMS_UsersTrueName%>" name="TrueName" dataType="Chinese" msg="真实姓名只允许中文"/></td>
                 </tr>
                 <tr>
                   <td height="30">密码提示问题：</td>
                   <td colspan="2"><input value="<%=YWNT_TMS_UsersProblems%>" name="question" dataType="LimitB" min="6" msg="密码问题不能少于6个字"/></td>
                 </tr>
                 <tr>
                   <td height="30">密码提示答案：</td>
                   <td colspan="2"><input value="<%=YWNT_TMS_UsersAnswer%>" name="answer" dataType="LimitB" min="6" msg="密码答案不能少于6个字"/></td>
                 </tr>
                 <tr>
                   <td height="30">电子邮箱：</td>
                   <td colspan="2"><input size="26" value="<%=YWNT_TMS_UsersEmail%>" name="email" dataType="Email" msg="信箱格式不正确"/></td>
                 </tr>
                 <tr>
                   <td height="30">联系Q Q：</td>
                   <td colspan="2"><input maxlength="20" size="15" value="<%=YWNT_TMS_UsersQQ%>" name="QQ" ataType="QQ" msg="QQ号码不存在"/></td>
                 </tr>
                 <tr>
                   <td colspan="3" height="26"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                     <tr>
                       <td width="29%">&nbsp;</td>
                       <td width="71%" height="30"><input name="ID" type="hidden" value="<%= YWNT_TMS_ID %>" />
                         <input type="image" name="imageField" src="images/qd_06.gif" /></td>
                     </tr>
                   </table></td>
                 </tr>
				 </form>
               </table>
<%end sub%>
                <br></td>
             </tr>
           </table></td>
         </tr>
       </table></td>
     </tr>
   </table>
<%call connclose()%>
</body>
</html>
