profile.asp

他是一个asp+access的多用户留言板！

<!-- #include file="密码验证.asp" -->
<%
if NOIPUserID =-1 then Response.Write "客人不能进行此项操作":Response.End 
%>
<%title="修改个人资料"%>
<!-- #include file="head.asp" -->
<script language=VBScript>
top.document.title="修改个人资料"
if instr(1,top.location,"index.asp")=0 then top.location="index.asp?url=" & replace(self.location ,"&","%26")
</script>
<%if Request.QueryString("login")="ok" then %>
  <SCRIPT>
  if(self.top.location!=self.location  )
  {
    top.document.frames["carnoc"].location.reload
  }
  </SCRIPT>
  
  
  <%end if
%>
<%valigntop()
  if Request.QueryString("do")="edit" and Request.Form("AU_pass")<>"" then
           set rs = server.CreateObject("ADODB.Recordset")  
           rs.open "SELECT * FROM NOIP选手 where id=" & NOIPUSERID ,conn ,3,3
           
           if request("AU_pass")<> "不显示" then rs("MD5密码")=md5(request("AU_pass"))
                    
           rs("QQ号")=request("AU_QQ")


           rs("电子邮件")=request("AU_Email")
           rs("头像")=request("head")
           Application.Lock            
           application("NOIP_PLAYER_PASS_" & RS("id"))=RS("MD5密码")
           Application.UnLock 
           
           rs.update
           rs.close
           set rs=nothing
  
  
  end if

   set rs = server.CreateObject("ADODB.Recordset")  
   rs.open "SELECT * FROM NOIP选手 where id=" & NOIPUSERID ,conn ,3,1
   if not rs.eof then
   AU_name=rs("姓名")

   AU_mark=rs("学分")
   AU_titl=rs("头衔")
   AU_QQ=rs("QQ号")


   AU_Email=rs("电子邮件")
   AU_pass="不显示"
   AU_head=rs("头像")
   Edit = "edit"
   end if
   rs.close
   set rs=nothing
%>
<span style="font-style: 12px">

</span>
<table cellspacing="1" cellpadding="0" width="97%" align="center" border="0" class="a2"><tr height="25" id=TableTitleLink>
	<td width="12%" height="24" class="a1" align="center">
	<span style="font-style: 12px"><b>个人资料</b></span></td>
</table>
<center>
<table class="a2" cellSpacing="1" cellPadding="0" width="97%" border="0" id="table1">
<td class="a3" align="middle" width="7%">



<p align="left"><span style="font-style: 12px">&nbsp;&nbsp; </span> </p>
 <form method="POST" action="profile.asp?do=edit&class=<%=classnum%>"  name=form1>
<table cellspacing="1" cellpadding="4" width="97%" align="center" border="0" class="a2">
  <tr height=25 class=a3 colspan=2> 
    <td>姓名</td>
    
    <td><input size="45" value="<%=AU_name%>" name="AU_name"></td>
  </tr>


  <tr height=25 class=a3 colspan=5>
    <td>密码</td>
    <td><input size="45" value="<%=AU_pass%>" name="AU_pass"></td>
  </tr>




  <tr height=25 class=a3 colspan=5>
    <td>Email</td>
    <td><input size="45" name="AU_Email" value="<%=AU_Email%>"></td>
  </tr>



  


  <tr class=a3 colspan=5>
    <td>QQ号</td>
    <td><input size="45" name="AU_QQ" value="<%=AU_QQ%>"></td>
  </tr> 

 
  <tr height=25 class=a3 colspan=5>
    <td>头像</td>
    <td>
    <%for i=1 to 21%>
     
    <input type="radio" value="<%= i%>" <%if AU_head = i then response.write "checked"%> name="head"><img src="image/head/<%=i%>.gif" onclick="self.document.all('head',<%=i-1%>).checked=1">
    <%if  i mod 3 =0 then%><BR><%end if%>
    
    <%NEXT%>
    </td>
  </tr>


  <tr height=25 class=a3 colspan=5>
    <td colspan="2" align="center">
	<input type="submit" value="提交更改" name="submit0"></td>
  </tr>

	<input type="hidden" name="edit" value="<%=edit%>">
	<input type="hidden" name="user" value="<%=user%>">

</form>



</td>

</table>
<span style="font-style: 12px">
<%valignbottom()%></span></center><span style="font-style: 12px"><br>
</span>
<!-- #include file="foot.asp" -->