user.asp
来自「采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 」· ASP 代码 · 共 117 行
ASP
117 行
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<html><head><title><%=webname%>--我的专区</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<TABLE width=778 border=0 align=center cellPadding=0 cellSpacing=0 background="images/content.gif">
<TBODY>
<TR>
<TD class=b width=7 > </TD>
<TD class=b vAlign=top align=left width=764><table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr>
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you"><!--#include file="userinfo.asp"-->
<!--#include file="gouwucheinfo.asp"-->
</td>
<td width="580" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%xAction=lcase(request("action"))
select case xAction
case ""
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 我的信息</td>
</tr>
<%
case "sqvip"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 申请VIP会员 </td>
</tr>
<%
case "myinfo"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 我的信息</td>
</tr>
<%
case "userziliao"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 个人资料</td>
</tr>
<%
case "savepass"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 修改密码</td>
</tr>
<%
case "dindan"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 我的订单</td>
</tr>
<%
case "shoucang"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 我的收藏</td>
</tr>
<%
case "jifen"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 我的积分</td>
</tr>
<%
case "viphd"
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> VIP 活动</td>
</tr>
<%
case else
%>
<TR>
<td height="35" background="image/bar.gif" bgcolor="#ffffff" class="table-shangxia"> <a href=index.asp><%=webname%></a> >> <%=request.Cookies("BOB")("username")%> >> 专区首页</td>
</tr>
<%end select%>
</table>
<!--#include file="user_inc.asp"-->
<%xAction=lcase(request("action"))
select case xAction
case ""
call myinfo()
case "myinfo"
call myinfo()
case "userziliao"
call userziliao()
case "savepass"
call savepass()
case "dindan"
call dindan()
case "shoucang"
call shoucang()
case "jifen"
call jifen()
case "viphd"
call viphd()
case "sqvip"
call sqvip()
case else
%>
<%end select%>
</td>
</tr>
</table></TD>
<TD class=b width=7><IMG height=1
src="image/tm.gif" width=1></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?