📄 member.asp

📁 WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../main.asp" -->
<!--#include file="../Person.asp" -->
<%
if request("action")="edit" then
set rs=Server.CreateObject("Adodb.Recordset")
sql="select *  from "&WebSqlType&"_member where "&WebSqlType&"_ID="&trim(request("mid"))
rs.open sql,conn,1,3
'rs.addnew
rs(""&WebSqlType&"_Email")=request("Email")
if request("addone_id")<>"" then
rs(""&WebSqlType&"_ypaddone")=request("addone_id")
end if
if request("addtwo_id")<>"" then
rs(""&WebSqlType&"_ypaddtwo")=request("addtwo_id")
end if
rs(""&WebSqlType&"_RealName")=request("RealName")
rs(""&WebSqlType&"_Sex")=request("Sex")
rs(""&WebSqlType&"_ll")=request("year")&"-"&request("month")&"-"&request("day")
rs(""&WebSqlType&"_sj")=request("sj")
rs(""&WebSqlType&"_tel")=request("tel")
if request("xxone")<>"" then
rs(""&WebSqlType&"_xxone")=request("xxone")
end if
if request("zhiwei")<>"" then
rs(""&WebSqlType&"_zhiwei")=request("zhiwei")
end if
rs(""&WebSqlType&"_pic")=request("pic")
rs(""&WebSqlType&"_qq")=request("qq")
rs(""&WebSqlType&"_msn")=request("msn")
rs(""&WebSqlType&"_webname")=request("webname")
rs(""&WebSqlType&"_realname")=request("realname")
rs(""&WebSqlType&"_book")=request("book")
rs.update
rs.close
response.Write("<script>alert(""您的资料修改成功!"");location.href='member.asp';</script>")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>个人中心 - <%=citytitle%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content=follow,index name=robots>
<LINK href="<%=cityurl%>images/style.css" 
type=text/css rel=stylesheet>
<LINK href="<%=cityurl%>images/msg.css" type=text/css 
rel=stylesheet>
<script>
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>

<STYLE>#flashcontent P {
	COLOR: #000
}
#foot {
	DISPLAY: block; MARGIN: 0px auto; WIDTH: 720px
}
</STYLE>

<META content="MSHTML 6.00.3790.0" name=GENERATOR></HEAD>
<BODY>
<DIV id=append_parent></DIV>
<DIV id=wrap>
<!--#include file="../top.asp" -->

<DIV class=main>
<!--#include file="right.asp" -->
<DIV class=main-box-4>
<DIV class=box-top>
<DIV></DIV></DIV>
<DIV class=nav>我的位置：<A href="<%=cityurl%>">首页</A> &raquo; <A 
href="<%=cityurl%>person">个人中心</A> &raquo; <STRONG>管理我的资料</STRONG></DIV>
<DIV class=box>
<TABLE class=title cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
  <TR>
    <TD width="14" class=title-l></TD>
    
    <TD width="816">修改资料</TD>
	<TD width="116"><!-- <a href="/bbs/bbs_add.asp">发布新贴子</a> -->&nbsp;</TD>
    <TD width="14" class=title-r></TD></TR></TBODY></TABLE>
<%sql="select * from "&WebSqlType&"_member where "&WebSqlType&"_id="&request.Cookies("userid")&""
set rs2=server.createobject("adodb.recordset")                     
rs2.open sql,conn,1,1                     
if rs2.eof and rs2.bof then                     
	response.write "<tr><td height=194 colspan=5 align=center>暂无内容</td></tr>"
else
%>
	  <FORM method=post name=thisForm action="member.asp?action=edit" style="margin-top:0px;"  onSubmit="return checkdata()">
	    <input type="hidden" name="mid" value="<%=rs2(""&WebSqlType&"_id")%>">
        <TABLE width=90% border=0 align="center" cellPadding=6 cellSpacing=0 borderColor=#111111 
      style="BORDER-COLLAPSE: collapse">
          <TBODY>

            <TR align="left">
              <TD height=30 colspan="2" style="border-bottom:1px solid red; "><DIV class=tablehead><B class=tableheadr>基本资料 </B></DIV></TD>
            </TR>
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1">用 户 名：</span></TD>
              <TD height=25 align=left style="border-bottom:1px solid #cccccc; "> <%=rs2(""&WebSqlType&"_username")%>
              (<font 
            color=#624b35>不可修改)</font></TD>
            </TR>


            
            <TR> 
              <TD width=17% height=25 align=right><span class="STYLE1">E_MAIL：</span></TD>
              <TD width=83% height=25 align=left style="border-bottom:1px solid #cccccc; "><input name=Email 
            class=fieldalp id="Email" value="<%=rs2(""&WebSqlType&"_Email")%>" size=20 maxlength=60 />
              <FONT 
            color=#624b35>(非常重要，找回密码用，请准确填写您的<FONT face=Verdana 
            style="FONT-SIZE: 11px">E-MAIL</FONT>地址，最好是您的MSN地址) </FONT></TD>
            </TR>
			              <TR>
              <TD height=25 align=right><span class="STYLE1">所在地区：</span></TD>
              <TD height=25 align=left style="border-bottom:1px solid #cccccc; "><%sql = "select *  from "&WebSqlType&"_ypaddtwo order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1%>
            <script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs(""&WebSqlType&"_addtwo"))%>","<%= trim(rs(""&WebSqlType&"_addone_id"))%>","<%= trim(rs(""&WebSqlType&"_addtwo_id"))%>");
        <%count = count + 1
        rs.movenext
        loop
        rs.close
        set rs=nothing%>
onecount1=<%=count%>;

function changelocation1(addone)
    {
    document.thisForm.addtwo_id.length = 0; 

    var addone_id=addone_id;
    var i;
    document.thisForm.addtwo_id.options[0] = new Option('请选择地区(市)','');
    for (i=0;i < onecount1; i++)
        {
            if (subcat1[i][1] == addone)
            { 
                document.thisForm.addtwo_id.options[document.thisForm.addtwo_id.length] = new Option(subcat1[i][0], subcat1[i][2]);
            }        
        }
        
    }
      </script>
	  <select name="addone_id" onChange="changelocation1(document.thisForm.addone_id.options[document.thisForm.addone_id.selectedIndex].value)">
		         <%
sql="select *  from "&WebSqlType&"_ypaddone where "&WebSqlType&"_addone_id=16 order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
              <option value="<%=rs(""&WebSqlType&"_addone_id")%>" selected><%=rs(""&WebSqlType&"_addone")%></option>
              <%rs.movenext
wend
rs.Close()
%>
             
              <%
sql="select *  from "&WebSqlType&"_ypaddone where "&WebSqlType&"_addone_id<>16 order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
              <option value="<%=rs(""&WebSqlType&"_addone_id")%>"><%=rs(""&WebSqlType&"_addone")%></option>
              <%rs.movenext
wend
rs.Close()
%>
            </select>
              <select name="addtwo_id">
                <option selected value="">请选择地区(市)</option>
				  <%
sql="select *  from "&WebSqlType&"_ypaddtwo where "&WebSqlType&"_addone_id=16 order by "&WebSqlType&"_date desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
while not rs.eof%>
              <option value="<%=rs(""&WebSqlType&"_addtwo_id")%>"><%=rs(""&WebSqlType&"_addtwo")%></option>
              <%rs.movenext
wend
rs.Close()
%>
            </select></TD>
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -