memberinfo.asp
来自「生成html的ASP企业站点,可以进行二次开发的」· ASP 代码 · 共 218 行
ASP
218 行
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<%call SiteInfo
headid=0
Seotitle="会员信息"
%>
<!--#include file="Head.Asp" -->
<%
if not (session("MemName")<>"" and session("MemLogin")="Succeed") then
response.Write "<script language=javascript>alert('请先登录！');location.href='Index.asp';</script>"
response.end
end if
dim MemID,mMemName,mGroupIdName,mRealName,mSex,mQusetion
dim mCompany,mAddress,mZipCode,mTelephone,mFax,mMobile,mEmail,mHomepage,mAddTime,mLoginTimes,mLastLoginTime,mLastLoginIP
call MemInfo()
%>
<div class="clear"></div>
<div id="contant">
<div class="cleft">
<div class="news">
<div class="title">
<b>会员中心</b>
</div>
<div>
<ul>
<%=WebMenu()%>
</ul>
</div>
</div>
<div class="news">
<div class="title">
<b>热门产品</b>
</div>
<div>
<ul>
<%=Producthot(10)%>
</ul>
</div>
</div>
</div>
<div class="cright">
<div class="crightb">
<div class="crightbtitle">
<div class="crightbtitlel">
当前位置：
</div>
<div class="crightbtitler">
<%=WebLocation()%>
</div>
</div>
<div class="crightbcontent">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="20"><table width="95%" border="0" align="center" cellpadding="3" cellspacing="5">
<form action="MemberSaveInfo.asp?ID=<%=MemID%>" method="post" name="formInfo" id="formInfo">
<tr>
<td width="200" align="right">用户名称：</td>
<td><% =mMemName %></td>
</tr>
<tr>
<td width="200" align="right">所属组别：</td>
<td><% =mGroupIdName %></td>
</tr>
<tr>
<td align="right">真实姓名：</td>
<td><input name="RealName" type="text" id="RealName" size="20" maxlength="50" value="<%=mRealName%>" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">性别：</td>
<td><input name="Sex" type="radio" value="先生" class="inputnoborder" <%if mSex="先生" then response.write ("checked")%> />先生 <input type="radio" name="Sex" value="女士" class="inputnoborder" <%if mSex="女士" then response.write ("checked")%> />女士 <font color="red">*</font></td>
</tr>
<tr>
<td align="right">用户密码：</td>
<td><input name="Password" type="password" id="Password" size="20" maxlength="16" /> <font color="red">不修改请留空</font></td>
</tr>
<tr>
<td align="right">重复用户密码：</td>
<td><input name="vPassword" type="password" id="vPassword" size="20" maxlength="16" /></td>
</tr>
<tr>
<td align="right">密码保护问题：</td>
<td><% =mQusetion %></td>
</tr>
<tr>
<td align="right">密码保护答案：</td>
<td>已隐藏(不可修改)</td>
</tr>
<tr>
<td align="right">单位名称：</td>
<td><input name="Company" type="text" id="Company" value="<% =mCompany %>" size="40" maxlength="100" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">详细地址：</td>
<td><input name="Address" type="text" id="Address" value="<% =mAddress %>" size="40" maxlength="100" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">邮政编码：</td>
<td><input name="ZipCode" type="text" id="ZipCode" value="<% =mZipCode %>" size="20" maxlength="20" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">联系电话：</td>
<td><input name="Telephone" type="text" id="Telephone" value="<% =mTelephone %>" size="20" maxlength="50" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">传真号码：</td>
<td><input name="Fax" type="text" id="Fax" value="<% =mFax %>" size="20" maxlength="50" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">手机号码：</td>
<td><input name="Mobile" type="text" id="Mobile" value="<% =mMobile %>" size="20" maxlength="50" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">电子信箱：</td>
<td><input name="Email" type="text" id="Email" value="<% =mEmail %>" size="30" maxlength="50" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">网址：</td>
<td><input name="HomePage" type="text" id="HomePage" value="<% =mHomePage %>" size="30" maxlength="50" /> <font color="red">*</font></td>
</tr>
<tr>
<td align="right">注册时间：</td>
<td><% =mAddTime %></td>
</tr>
<tr>
<td align="right">登录次数：</td>
<td><% =mLoginTimes %> 次</td>
</tr>
<tr>
<td align="right">最后登录时间：</td>
<td><% =mLastLoginTime %></td>
</tr>
<tr>
<td align="right">最后登录IP：</td>
<td><% =mLastLoginIP %></td>
</tr>
<tr>
<td align="right">验证码：</td>
<td><input name="CheckCode" type="text" size="6" maxlength="6" /> <a href="javascript:refreshimg()" title="看不清楚，换个图片。"><img src="../Include/CheckCode/CheckCode.asp" name="checkcode" align="absmiddle" id="checkcode" style="border: 1px solid #ffffff" /></a> <font color="red">*</font></td>
</tr>
<tr>
<td align="right"> </td>
<td><input name="Submit" type="submit" value="修改会员资料" /></td>
</tr>
</form>
</table></td>
</tr>
</table>
</div>
</div>
</div>
</div>
<!--#include file="Foot.Asp"-->
<%
Function WebMenu()
If session("MemName")="" Or session("GroupID")="" Or session("MemLogin")<>"Succeed" Then
response.write "<Li> <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberRegister.asp"">注册会员</a></li>"
Else
response.write "<Li> <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberInfo.asp"">修改注册资料</a></li>"
response.write "<Li> <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberMessage.asp"">我的留言</a></li>"
response.write "<Li> <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberOrder.asp"">我的订单</a></li>"
response.write "<Li> <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberTalent.asp"">我的应聘</a></li>"
response.write "<Li> <img src=""images/Tx_Ar3.gif"" style=""margin-left:5px;"" /> <a href=""MemberLogin.asp?Action=Out"">退出登录</a></li>"
End If
End Function
function WebLocation()
WebLocation=" 当前位置：<a href=""index.asp"" class=""agray"">首页</a> - <a href=""MemberCenter.asp"" class=""agray"">会员中心</a> - 用户资料"&VbCrLf
end Function
sub MemInfo()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_Members where MemName='"&session("MemName")&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "<center>暂无相关信息</center>"
else
MemID=rs("ID")
mMemName=rs("MemName")
mGroupIdName=GroupName(rs("GroupID"))
mRealName=rs("RealName")
mSex=rs("Sex")
mQusetion=rs("Question")
mCompany=rs("Company")
mAddress=rs("Address")
mZipCode=rs("ZipCode")
mTelephone=rs("Telephone")
mFax=rs("Fax")
mMobile=rs("Mobile")
mEmail=rs("Email")
mHomePage=rs("HomePage")
mAddTime=rs("AddTime")
mLoginTimes=rs("LoginTimes")
mLastLoginTime=rs("LastLoginTime")
mLastLoginIP=rs("LastLoginIP")
end if
rs.close
set rs=nothing
end sub
function GroupName(GroupID)
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from LiangJingCMS_MemGroup where GroupID='"&GroupID&"'"
rs.open sql,conn,1,1
GroupName=rs("GroupName"&Language)
rs.close
set rs=nothing
end function
%>
<script language="javascript">
<!--
function refreshimg(){document.all.checkcode.src="../Include/CheckCode/CheckCode.asp";}
//-->
</script>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?