📄 my_info.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Comm/conn.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>个人账号-<%=sitename%>-<%=siteurl%> </TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Robots" content="index,follow">
<meta name="Abstract" content="CycooShop">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop.css" type="text/css">
<SCRIPT language=javascript src="jsroot/city.js"></SCRIPT>
</HEAD>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<!--#include file="menu/topbar.asp"-->
<%
if session("loginpass")<>"ok" or Session("estore_userid")="" then
call re_login()
else
call ok_login()
end if
sub re_login()
%>
<TABLE width=760 border=0 align=center cellpadding=1 cellspacing=2 bgcolor="#FFFFFF">
<TR><TD height=340 align=center valign=middle><%=errstr & scrname%>
<!--#include file="loginbox.asp"-->
</TD>
</TR>
</TABLE>
<%
end sub
sub ok_login()
%>
<TABLE width=760 border=0 cellpadding=0 cellspacing=0 bgcolor="#FFFFFF" align=center height=340>
<TR>
<TD width=160 valign="top">
<!--#include file="my_accounts_menu.asp"-->
</TD>
<TD width=1 bgcolor="#CCCCCC" height="1"></TD>
<TD valign=top>
<TABLE border=0 width=100% cellspacing="2" cellpadding="2" align=center>
<tr>
<td height=30>目前位置：<a href="./">首页</a> -> 个人空间 </td>
</tr>
<tr><td width="569" align="center" height="1" background="images/bg_xg_01.gif"></td></tr>
</table><br>
<%
'On Error Resume Next
sqlinfo = "select * from UserMain where UserId='"&session("estore_userid")&"'"
set rsinfo=Server.Createobject("ADODB.RecordSet")
rsinfo.Open sqlinfo,conn,1,1
if rsinfo.eof and rsinfo.bof then
response.write "<div align=center>非法查看相关资料，请重新正确登陆</div>"
Session("estore_userid")=""
session("loginpass")="no"
Session("ProductList") = ""
else
%>
<table width="80%" border="1" cellpadding="2" cellspacing="1" bordercolor="#CfCfCf" align=center>
<form name="myinfo" action="my_info_save.asp" method="post"><tr>
<td colspan="2"><strong>这是您的个人资料区,请在这里修改个人资料：</strong></td>
</tr>
<tr>
<td width="28%" align="right">真实姓名</td>
<td width="72%"><input type="text" name="Username" value="<%=rsinfo("UserName")%>"></td>
</tr>
<tr>
<td align="right">密 码</td>
<td><input type="password" name="pw1" value="<%=rsinfo("UserPassword")%>"></td>
</tr>
<tr>
<td align="right">邮 箱</td>
<td><input type="text" name="UserMail" value="<%=rsinfo("UserMail")%>"></td>
</tr>
<tr>
<td align="right">Ｑ Ｑ</td>
<td><input type="text" name="UserQQ" value="<%=rsinfo("UserQQ")%>"></td>
</tr>
<tr>
<td align="right">性 别</td>
<td>
<input name="Sex" type="radio" value="1" <%if rsinfo("Sex")="1" then response.write "checked"%>>男<input type="radio" name="Sex" value="0" <%if rsinfo("Sex")="0" then response.write "checked"%>>女
</td></tr>
<tr>
<td align="right">婚 否</td>
<td>
<input name="Maritalstatus" type="radio" value=1 <%if rsinfo("Maritalstatus")=1 then response.write "checked"%>>未婚<input type="radio" name="Maritalstatus" value=0 <%if rsinfo("Maritalstatus")=0 then response.write "checked"%>>已婚
</td></tr>
<tr>
<td align="right">生 日</td>
<td><input type="text" name="Birthday" value="<%=rsinfo("Birthday")%>"></td>
</tr>
<tr>
<td height="21" align="right">收 入</td>
<td><input type="text" name="IncomeRange" value="<%=rsinfo("IncomeRange")%>"></td>
</tr>
<tr>
<td align="right">职 业</td>
<td><input type="text" name="Occupation" value="<%=rsinfo("Occupation")%>"></td>
</tr>
<tr>
<td align="right">公 司</td>
<td><input type="text" name="CompanyName" value="<%=rsinfo("CompanyName")%>"></td>
</tr>
<tr>
<td align="right">电 话</td>
<td><input type="text" name="HomePhone" value="<%=rsinfo("HomePhone")%>"></td>
</tr>
<tr>
<td height="25" align="right">手 机</td>
<td><input type="text" name="CompPhone" value="<%=rsinfo("CompPhone")%>"></td>
</tr>
<tr>
<td align="right">国 家</td>
<td><input type="text" name="Country" value="<%=rsinfo("Country")%>"></td>
</tr>
<tr>
<td align="right">省 份</td>
<td><input type="text" name="Province" value="<%=rsinfo("Province")%>"></td>
</tr>
<tr>
<td align="right">城 市</td>
<td><input type="text" name="City" value="<%=rsinfo("City")%>"></td>
</tr>
<tr>
<td align="right">地 址</td>
<td><input type="text" name="Address" value="<%=rsinfo("Address")%>"></td>
</tr>
<tr>
<td align="right">邮 编</td>
<td><input type="text" name="ZipCode" value="<%=rsinfo("ZipCode")%>"></td>
</tr>
<tr>
<td align="right">备 忘</td>
<td><TEXTAREA type="text" name="Memo" ROWS="3" COLS="40"><%=rsinfo("Memo")%></TEXTAREA></td>
</tr>
<tr>
<td align="right">是否接收邮件通知</td>
<td><%if rsinfo("Wantmessage")="1" then%><input name="WantMessage" type="radio" value="1" checked>
愿意
<input type="radio" name="WantMessage" value="0">
暂时不要
<%else %>
<input name="WantMessage" type="radio" value="1" >
愿意
<input type="radio" name="WantMessage" value="0" checked>
暂时不要
<%end if%>
</td> </tr>
<tr>
<td> </td>
<td><input name="UserId" type="hidden" value="<%=rsinfo("UserId")%>">
<input type="submit" name="Submit" value="确认修改">
<input name="Submit2" type="reset" value="不做修改"></td>
</tr></form>
</table>
<br>
<%
end if
rsinfo.close
set rsinfo=nothing
%>
</td>
</TR>
</TABLE>
<%
end sub
%>
<!--#include file="menu/bottom.asp"-->
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -