?? my_info_save.asp
字號:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Comm/conn.asp" -->
<!--#INCLUDE file="feedbackconfig.asp" -->
<%
UserId=request("UserId")
Username=request("Username")
UserQQ=request("UserQQ")
UserPassword=request("pw1")
Sex=request("Sex")
Maritalstatus=request("Maritalstatus")
Birthday=request("Birthday")
IncomeRange=request("IncomeRange")
Occupation=request("Occupation")
CompanyName=request("CompanyName")
HomePhone=request("HomePhone")
CompPhone=request("CompPhone")
UserMail=request("UserMail")
Country=request("Country")
Province=request("Province")
City=request("City")
Address=request("Address")
ZipCode=request("ZipCode")
Memo=request("Memo")
WantMessage=request("WantMessage")
%>
<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">
</HEAD>
<body bgcolor="#011D32" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<!--#include file="menu/topbar.asp"-->
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" align="center">
<tr>
<td height="1" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td bgcolor="A5B2C6" height="18" class="new"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!--#include file="menu/searchbar.asp"-->
</td>
</tr>
</table></td>
</tr>
</table>
<TABLE width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
<TR>
<TD>
<%
if session("loginpass")<>"ok" or session("estore_userid")="" then
errstr="您沒有登陸，或者長時間沒有瀏覽網站頁面，請重新登陸一次！<br>前一個頁面地址：<br>"
scrname = session("scrname")
response.write errstr & scrname
call re_login()
else
name=session("estore_userid")
call saveinfo()
end if
sub re_login()
%>
<!--#include file="loginbox.asp"-->
</TD>
</TR>
</TABLE>
<%
end sub
sub saveinfo()
sqlinfo = "select * from UserMain where UserId='"&name&"'"
set rsinfo=Server.Createobject("ADODB.RecordSet")
application.lock
rsinfo.Open sqlinfo,conn,3,3
rsinfo("Username")=Username
rsinfo("Sex")=Sex
rsinfo("UserQQ")=UserQQ
rsinfo("UserPassword")=UserPassword
rsinfo("Maritalstatus")=Maritalstatus
rsinfo("Birthday")=Birthday
rsinfo("IncomeRange")=IncomeRange
rsinfo("Occupation")=Occupation
rsinfo("CompanyName")=CompanyName
rsinfo("HomePhone")=HomePhone
rsinfo("CompPhone")=CompPhone
rsinfo("UserMail")=UserMail
rsinfo("Country")=Country
rsinfo("Province")=Province
rsinfo("City")=City
rsinfo("Address")=Address
rsinfo("ZipCode")=ZipCode
rsinfo("Memo")=Memo
rsinfo("WantMessage")=WantMessage
rsinfo.update
application.unlock
set rsinfo = nothing
call ok_modify()
end sub
sub ok_modify()
%>
<TABLE width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
<TR>
<TD width=150 valign="top">
<!--#include file="my_accounts_menu.asp"-->
</TD>
<TD width=6> </TD>
<%
sqlinfo = "select * from UserMain where UserId='"&name&"'"
set rsinfo=Server.Createobject("ADODB.RecordSet")
rsinfo.Open sqlinfo,conn,1,1
Memo=rsinfo("Memo")
if Memo<>"" then Memo=Autolink(Memo)
%>
<TD align=center valign="top"><br>
<table width="569" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFCC99">
<tr>
<td colspan="2" width="559"><strong>這是您修改后的個人資料區,請再仔細查看：</strong></td>
</tr>
<tr>
<td width="188">真實姓名</td>
<td width="365"><%=rsinfo("UserName")%> </td>
</tr>
<tr>
<td width="188">密 碼</td>
<td width="365"><%=rsinfo("UserPassword")%> </td>
</tr>
<tr>
<td width="188">Ｑ Ｑ</td>
<td width="365"><%=rsinfo("UserQQ")%> </td>
</tr>
<tr>
<td width="188">性 別</td>
<td width="365">
<% if Sex="1" then %>男 <%else%>女 <%end if%>
</td></tr>
<tr>
<td width="188">婚 否</td>
<td width="365">
<% if Maritalstatus="1" then %>未婚 <%else%>已婚 <%end if%>
</td></tr>
<tr>
<td width="188">生 日</td>
<td width="365"><%=rsinfo("Birthday")%> </td>
</tr>
<tr>
<td height="21" width="188">收 入</td>
<td width="365"><%=rsinfo("IncomeRange")%> </td>
</tr>
<tr>
<td width="188">職 業</td>
<td width="365"><%=rsinfo("Occupation")%> </td>
</tr>
<tr>
<td width="188">公 司</td>
<td width="365"><%=rsinfo("CompanyName")%> </td>
</tr>
<tr>
<td width="188">電 話</td>
<td width="365"><%=rsinfo("HomePhone")%> </td>
</tr>
<tr>
<td height="25" width="188">手 機</td>
<td width="365"><%=rsinfo("CompPhone")%> </td>
</tr>
<tr>
<td width="188">郵 箱</td>
<td width="365"><%=rsinfo("UserMail")%> </td>
</tr>
<tr>
<td width="188">國 家</td>
<td width="365"><%=rsinfo("Country")%> </td>
</tr>
<tr>
<td width="188">省 份</td>
<td width="365"><%=rsinfo("Province")%> </td>
</tr>
<tr>
<td width="188">城 市</td>
<td width="365"><%=rsinfo("City")%> </td>
</tr>
<tr>
<td width="188">地 址</td>
<td width="365"><%=rsinfo("Address")%> </td>
</tr>
<tr>
<td width="188">郵 編</td>
<td width="365"><%=rsinfo("ZipCode")%> </td>
</tr>
<tr>
<td width="188">備 忘</td>
<td width="365"><%=Memo%> </td>
</tr>
<tr>
<td width="188">是否接收郵件通知</td>
<td width="365"><%if WantMessage="1" then%>愿意<%else%>不愿意<%end if%></td>
</tr>
<tr>
<td width="188"> </td>
<td width="365"><input type="submit" name="Submit" value="完成修改" onclick="javascript:window.location.href='my_accounts.asp'">
<input name="Submit2" type="Submit" value="繼續修改" onclick="javascript:window.location.href='my_info.asp';self.refresh"></td>
</tr>
</table>
<%
set rsinfo=nothing
%>
</TD>
</TR>
</TABLE>
<%
end sub
%>
</BODY>
</HTML>
<%
conn.close
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -