📄 my_info_save.asp

📁 广告策划中心整站程序
💻 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">
<meta name="Description" Content="欢迎使用 CycooShop 专业的电子商务平台 下载地址 www.cycoo.com">
<meta name="Keywords" Content="思高商城 免费下载">
<link rel="stylesheet" href="cycoo15.css" type="text/css">
</HEAD>
<body bgcolor="#011D32" background="images/bggreen.gif" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="menu/topbar.asp"-->
<TABLE width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
<TR>
	<TD>
<%
if session("loginpass")<>"ok" then
	errstr="您没有登陆，或者长时间没有浏览网站页面，请重新登陆一次！<br>前一个页面地址：<br>"
	scrname = session("scrname")
	response.write errstr & scrname
	call re_login()
else 
	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>&nbsp;</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="95%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFCC99">
        <tr> 
          <td colspan="2"><strong>这是您修改后的个人资料区,请再仔细查看：</strong></td>
        </tr>
        <tr> 
          <td width="43%">真实姓名</td>
          <td width="57%"><%=rsinfo("UserName")%>&nbsp;</td>
        </tr>
        <tr> 
          <td width="43%">密码</td>
          <td width="57%"><%=rsinfo("UserPassword")%>&nbsp;</td>
        </tr>
        <tr> 
          <td width="43%">QQ号码</td>
          <td width="57%"><%=rsinfo("UserQQ")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>性别</td>
          <td>
		  <% if Sex="1" then %>男 <%else%>女 <%end if%>
        </td></tr>
		<tr> 
          <td>婚否</td>
          <td>
		  <% if Maritalstatus="1" then %>未婚 <%else%>已婚 <%end if%>
        </td></tr>
        <tr> 
          <td>出生日期</td>
          <td><%=rsinfo("Birthday")%>&nbsp;</td>
        </tr>
        <tr> 
          <td height="21">收入范围</td>
          <td><%=rsinfo("IncomeRange")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>职业</td>
          <td><%=rsinfo("Occupation")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>工作单位</td>
          <td><%=rsinfo("CompanyName")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>家庭电话</td>
          <td><%=rsinfo("HomePhone")%>&nbsp;</td>
        </tr>
        <tr> 
          <td height="25">公司电话</td>
          <td><%=rsinfo("CompPhone")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>邮件地址</td>
          <td><%=rsinfo("UserMail")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>国家</td>
          <td><%=rsinfo("Country")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>省份</td>
          <td><%=rsinfo("Province")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>城市</td>
          <td><%=rsinfo("City")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>联系地址</td>
          <td><%=rsinfo("Address")%>&nbsp;</td>
        </tr>
        <tr> 
          <td>邮政编码</td>
          <td><%=rsinfo("ZipCode")%>&nbsp;</td>
        </tr>
		 <tr> 
          <td>备忘</td>
          <td><%=Memo%>&nbsp;</td>
        </tr>
        <tr> 
          <td>是否接收邮件通知</td>
          <td><%if WantMessage="1" then%>愿意<%else%>不愿意<%end if%></td>
        </tr>
        <tr> 
          <td>&nbsp;</td>
          <td><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 + -