?? user_edit.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> </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%"> </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> </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> </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> </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> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="middle">聯系地址：</td>
<td><input name="ME_add" type="text" value="<%=rs("ME_add")%>"></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="middle">郵政編碼：</td>
<td><input name="ME_post" type="text" value="<%=rs("ME_post")%>"></td>
<td> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="middle">會員類型：</td>
<td><FONT COLOR="#0000FF"><%=rs("ME_pope")%></FONT></td>
<td> </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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -