user_edit.asp

asp网站原代码绝对教材 asp网站原代码绝对教材

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
a:link {
	color: #000000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: none;
	color: #FF0000;
}
a:active {
	text-decoration: none;
}
a {
	font-size: 12px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
work=Request("work")
IF work="add" Then
   set rs=server.createobject("adodb.recordset")
   sql="select * from HN_member WHERE ME_id="&Session("ME_id")
   rs.open sql,conn,3,3

	IF Request("ME_pass")<>"" Then rs("ME_pass")=Request("ME_pass1")'会员密码
	rs("ME_email")  	=       Request("ME_email")		'电子邮箱
	rs("ME_tel")		=       Request("ME_tel")		'电话/手机	
	rs("ME_prov")		=       Request("ME_prov")		'省份
	rs("ME_comp")		=       Request("ME_comp")		'真实姓名
	rs("ME_sec")		=       Request("ME_sec")		'性别
	IF Request("ME_sr")<>"" Then rs("ME_sr")=Request("ME_sr")	'生日
	rs("ME_oicq")		=       Request("ME_oicq")		'qq
	rs("ME_add")		=       Request("ME_add")		'联系地址
	rs("ME_post")		=       Request("ME_post")		'邮政编码
   rs.update                                                    '更新数据表记录
   rs.close
   set rs=nothing
   Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
   Response.Write "alert('恭喜您！\n 您的资料已经更新成功！');"
   Response.Write "window.location='?id="&Request("id")&"'"
   Response.Write "</SCRIPT>"
ELSE
   sql="select * from HN_member where ME_id="&Session("ME_id")
   set rs=Conn.execute(sql)
   IF not rs.eof Then
%>
<script language="JavaScript" src="inc/Mymodify.js"></script>
<link href="css.css" rel="stylesheet" type="text/css">
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bordercolorlight="#01549E" bordercolordark="#FFFFFF" bgcolor="#01549E">
  <tr>
    <td height="23"><font color="FFFFFFF"><b>　会员资料维护</b></font></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><form name="theForm" method="post" action="?work=add">
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#01549E">
  <tr bgcolor="#FFFFFF">
    <td width="25%" align="right" valign="middle">登陆名：</td>
    <td width="26%"><FONT COLOR="#FF0000"><B><%=rs("ME_name")%></B></FONT></td>
    <td width="49%"></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">登陆密码：</td>
    <td><input name="ME_pass1" type="password"></td>
    <td><font color="ff0000">如果不修改请留空</font></td>
  </tr>
    <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">您的会员开通日期：</td>
    <td><%=rs("ME_begin")%></td>
    <td></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">您的会员到期日期：</td>
    <td><%=rs("ME_end")%></td>
    <td></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">电子邮箱：</td>
    <td><input name="ME_email" type="text" value="<%=rs("ME_email")%>"></td>
    <td></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">电话/手机：</td>
    <td><input name="ME_tel" type="text" value="<%=rs("ME_tel")%>"></td>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="100%"  border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#01549E">
  <tr bgcolor="#FFFFFF">
    <td width="25%" align="right" valign="middle">真实姓名：</td>
    <td width="26%"><input name="ME_comp" type="text" value="<%=rs("ME_comp")%>"></td>
    <td width="49%">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">性别：</td>
    <td>
      <input name="ME_sec" type="radio" value="男" <%if rs("ME_sec")="男" then%> checked <%end if%>>
      男
      <input type="radio" name="ME_sec" value="女" <%if rs("ME_sec")="女" then%> checked <%end if%>>
      女</td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">出生日期：</td>
    <td><input name="ME_sr" type="text" value="<%=rs("ME_sr")%>" onfocus="show_cele_date(ME_sr,'','',ME_sr)"></td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">OICQ：</td>
    <td><input name="ME_oicq" type="text" value="<%=rs("ME_oicq")%>"></td>
    <td>&nbsp;</td>
  </tr>
    <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">省份：</td>
    <td><select name="ME_prov">
              <option value="北京" <%if rs("ME_prov")="北京" then%> selected <%end if%>>北京</option>    
              <option value="上海" <%if rs("ME_prov")="上海" then%> selected <%end if%>>上海</option>    
              <option value="天津" <%if rs("ME_prov")="天津" then%> selected <%end if%>>天津</option>    
              <option value="重庆" <%if rs("ME_prov")="重庆" then%> selected <%end if%>>重庆</option>    
              <option value="广东" <%if rs("ME_prov")="广东" then%> selected <%end if%>>广东</option>    
              <option value="河北" <%if rs("ME_prov")="河北" then%> selected <%end if%>>河北</option>    
              <option value="黑龙江" <%if rs("ME_prov")="黑龙江" then%> selected <%end if%>>黑龙江</option>    
              <option value="吉林" <%if rs("ME_prov")="吉林" then%> selected <%end if%>>吉林</option>    
              <option value="辽宁" <%if rs("ME_prov")="辽宁" then%> selected <%end if%>>辽宁</option>    
              <option value="内蒙古" <%if rs("ME_prov")="内蒙古" then%> selected <%end if%>>内蒙古</option>    
              <option value="山东" <%if rs("ME_prov")="山东" then%> selected <%end if%>>山东</option>    
              <option value="山西" <%if rs("ME_prov")="山西" then%> selected <%end if%>>山西</option>    
              <option value="陕西" <%if rs("ME_prov")="陕西" then%> selected <%end if%>>陕西</option>    
              <option value="河南" <%if rs("ME_prov")="河南" then%> selected <%end if%>>河南</option>    
              <option value="安徽" <%if rs("ME_prov")="安徽" then%> selected <%end if%>>安徽</option>    
              <option value="江苏" <%if rs("ME_prov")="江苏" then%> selected <%end if%>>江苏</option>    
              <option value="湖北" <%if rs("ME_prov")="湖北" then%> selected <%end if%>>湖北</option>    
              <option value="湖南" <%if rs("ME_prov")="湖南" then%> selected <%end if%>>湖南</option>    
              <option value="浙江" <%if rs("ME_prov")="浙江" then%> selected <%end if%>>浙江</option>    
              <option value="江西" <%if rs("ME_prov")="江西" then%> selected <%end if%>>江西</option>    
              <option value="福建" <%if rs("ME_prov")="福建" then%> selected <%end if%>>福建</option>    
              <option value="广西" <%if rs("ME_prov")="广西" then%> selected <%end if%>>广西</option>    
              <option value="海南" <%if rs("ME_prov")="海南" then%> selected <%end if%>>海南</option>    
              <option value="云南" <%if rs("ME_prov")="云南" then%> selected <%end if%>>云南</option>    
              <option value="贵州" <%if rs("ME_prov")="贵州" then%> selected <%end if%>>贵州</option>    
              <option value="新疆" <%if rs("ME_prov")="新疆" then%> selected <%end if%>>新疆</option>    
              <option value="甘肃" <%if rs("ME_prov")="甘肃" then%> selected <%end if%>>甘肃</option>    
              <option value="宁夏" <%if rs("ME_prov")="宁夏" then%> selected <%end if%>>宁夏</option>    
              <option value="西藏" <%if rs("ME_prov")="西藏" then%> selected <%end if%>>西藏</option>    
              <option value="四川" <%if rs("ME_prov")="四川" then%> selected <%end if%>>四川</option>    
              <option value="青海" <%if rs("ME_prov")="青海" then%> selected <%end if%>>青海</option>    
              <option value="香港" <%if rs("ME_prov")="香港" then%> selected <%end if%>>香港</option>    
              <option value="澳门" <%if rs("ME_prov")="澳门" then%> selected <%end if%>>澳门</option>    
              <option value="台湾" <%if rs("ME_prov")="台湾" then%> selected <%end if%>>台湾</option>    
              <option value="其它国家" <%if rs("ME_prov")="其它国家" then%> selected <%end if%>>其它国家</option>
    </select></td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">联系地址：</td>
    <td><input name="ME_add" type="text" value="<%=rs("ME_add")%>"></td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">邮政编码：</td>
    <td><input name="ME_post" type="text" value="<%=rs("ME_post")%>"></td>
    <td>&nbsp;</td>
  </tr>
    <tr bgcolor="#FFFFFF">
    <td align="right" valign="middle">会员类型：</td>
    <td><FONT COLOR="#0000FF"><%=rs("ME_pope")%></FONT></td>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="60%"  border="0" align="center" cellpadding="3" cellspacing="0">
  <tr>
    <td align="center"><input type="Submit" name="Submit" value=" 修 改 ">
      　
        <input type="reset" name="Submit" value=" 重 置 "></td><INPUT TYPE="hidden" name="id" value="<%=rs("ME_id")%>">
    </tr>
</table>
</form></td>
  </tr>
</table>
<%
else
   Response.Write "<SCRIPT LANGUAGE='JavaScript'>"
   Response.Write "alert('对不起！\n 没有该用户我资料或你离开本站时间过长！');"
   Response.Write "window.location='admin_edit.asp'"
   Response.Write "</SCRIPT>"
 end if
rs.close
set rs=nothing
END IF
%>