myuser.asp
来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 123 行
ASP
123 行
<!--#include file="conn.asp"-->
<!--#include file="webtop.asp"-->
<html>
<head>
<title><%=webname%>--我的账户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css2.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<!--#include file="subuser.asp"-->
<br>
<%if request.cookies("bookshop")("username")="" then
dim action
action=request.QueryString("action")
select case action
case "repass"
response.write "<table width=776 align=center><td width='25%'><td bgcolor='#6699ff'>取回密码<td width='25%'>"
response.write "<tr><td colspan=3 align=center>"
repass()
response.write "</table>"
case "login"
logins()
case "userziliao"
logins()
case "dingdan"
logins()
case "shoucang"
logins()
end select
else%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td width="120" valign="top" bgcolor="#FFFFFF"><table width=90% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#FFFFFF>
<tr>
<td><img src="images/myxx.gif" width="115" height="20" border="0" align="absmiddle"></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=userziliao">· 我的首页</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=savepass">· 修改密码</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=repass">· 取回密码</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=dingdan">· 我的订单</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=shoucang">· 我的收藏</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=shouhuoxx">· 个人信息</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=zhancunkuan">· 帐户余额</a</td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=gouwujuan">· 聚知网券</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="myuser.asp?action=statinfo">· 统计信息</a></td>
</tr>
<tr>
<td bgcolor="#ccccff"><a href="logout.asp">· 退出登陆</a></td>
</tr>
<tr>
<td><img src="images/myxxbottom.gif" width="115" height="9" border="0" align="absmiddle"></td>
</tr></table>
<td width=10><td valign="top">
<%
action=request.QueryString("action")
select case action
case "userziliao"
response.write "<table width=96% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>欢迎您来到聚知网，我们为您准备了如下的新书：</font></table>"
userziliao()
case "savepass"
response.write "<table width=60% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>您可以在此修改密码！</table>"
savepass()
case "repass"
response.write "<table width=60% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"</b></font>取回密码！</table>"
repass()
case "dingdan"
response.write "<table width=98% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>以下是您在聚知网的订单信息！</table>"
dingdan()
case "shoucang"
response.write "<table width=95% border=0 align='center' bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>您的收藏夹！</table><br>"
shoucang()
case "shouhuoxx"
response.write "<table width=96% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>这是您的收货人信息，您可修改！</table>"
shouhuoxx()
case "zhancunkuan"
response.write "<table width=60% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>帐户余额查询</table>"
zhancunkuan()
case "gouwujuan"
response.write "<table width=60% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>您的聚知购书券</table>"
gouwujuan()
case "statinfo"
response.write "<table width=60% border=0 bgcolor='#6699ff' cellpadding=0 cellspacing=1><td bgcolor='ccccff'><font color='#FE4B05'><b>"&request.cookies("bookshop")("username")&"，</b></font>以下是您在本站的一些历史记录的统计信息</table>"
statinfo()
end select
end if%>
</td>
</tr>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?