?? my_accounts.asp
字號(hào):
<!--#include file="Comm/conn.asp" -->
<!--#include file="indexconfig.asp" -->
<HTML>
<HEAD>
<TITLE>個(gè)人賬號(hào)-<%=sitename%>-<%=siteurl%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="DC.Publisher" content="Cycoo Net Studio">
<link rel="stylesheet" href="shop.css" type="text/css">
</HEAD>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="images/fig_background.gif">
<!--#include file="menu/topbar.asp"-->
<%
if Session("estore_userid")="" then
errstr="<TABLE width=760 border=0 cellpadding=5 cellspacing=3 align=center bgcolor='#FFFFFF'><TR><TD align=center height=80 valign=bottom>請(qǐng)?zhí)钊肽挠脩?hù)名、密碼和驗(yàn)證碼登陸"
response.write errstr & "</TD></TR></TABLE>"
call re_login()
else
call ok_login()
end if
sub re_login()
%>
<TABLE width=760 border=0 align=center cellspacing=2 cellpadding=5 bgcolor="#FFFFFF">
<TR><TD align=center height=200>
<!--#include file="loginbox.asp"-->
</TD></TR></TABLE>
<%
end sub
sub ok_login()
%>
<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor="#FFFFFF">
<tr>
<td height="315" bgcolor="FFFBF7" align="center" valign="top" width="185">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=8></td>
</tr>
</table>
<!--#include file="my_accounts_menu.asp"-->
</td>
<td height="100" bgcolor="#CCCCCC" width="1"></td>
<td height="100" valign="top" bgcolor="#FfFfFf" width="574">
<TABLE border=0 width="570" cellspacing="2" cellpadding="2" align=center><tr>
<td height=30>目前位置：個(gè)人空間 </td></tr>
<tr><td width="570" align="center" height="1" background="images/bg_xg_01.gif"></td></tr></table>
<br>
<table width="95%" height="150" border=0 align="center" cellpadding=2 cellspacing=1>
<tr>
<td width="32%" bgcolor=#D8F7B5 height="30"> <div align="center"><b><font color="#000000"><a href="my_info.asp">我的信息</a></font></b></div></td>
<td width="34%" bgcolor=#D8F7B5 > <div align="center"><b ><a href="my_order.asp">我的所有訂單</a></b></div></td>
<td width="34%" bgcolor=#D8F7B5 > <div align="center"><b><a href="userlogout.asp">退出當(dāng)前登陸</a></b></div></td>
</tr>
<tr valign="top">
<td width="32%" bgcolor=#FAFEF5 > <ul>
<li>顯示個(gè)人的資料，可以設(shè)置自己的個(gè)人信息</li>
</ul></td>
<td width="34%" bgcolor=#FAFEF5 > <ul>
<li>顯示會(huì)員的歷史訂購(gòu)記錄和處理情況</li>
</ul></td>
<td width="34%" bgcolor=#FAFEF5 > <ul>
<li>當(dāng)前帳戶(hù)的退出，返回首頁(yè)</li>
</ul></td>
</tr>
</table>
<br>
<table border=0 cellpadding=2 cellspacing=0 width=95% align="center">
<%
'*******************************推薦最新商品
sqlprod = "select * from ProdMain where online=true and Remark='1' order by AddDate desc"
set newprod=Server.CreateObject("ADODB.Recordset")
newprod.open sqlprod,conn,1,1
if newprod.bof and newprod.eof then
response.write "<table width=90% border=0 cellspacing=1 cellpadding=2 bgcolor=#FFFFFF height=150><tr><td align=center>您好！目前商城的商品架暫時(shí)沒(méi)有 <b>"&SubLar&SubMid&"</b> 商品</td></tr>"
else
k=1
Do While Not newprod.eof
response.write "<tr>"
for i=1 to newprod_row step 1
ProdDisc=newprod("ProdDisc")
if ProdDisc<>"" then ProdDisc=Autolink(ProdDisc)
k=k+1
%>
<td align="center">
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td width="50" rowspan="2" align="right" valign="top" class="yc"><a href='prodshow.asp?ProdId=<%=newprod("ProdId")%>'><img src='<%=newprod("ImgPrev")%>' width='<%=newprod("ImgPrevWidth")%>' height='<%=newprod("ImgPrevHeight")%>' border=0></a>
</td>
<td width="175" height="17" valign="bottom" bgcolor="#DCEAF5" class="yc">·<a href='prodshow.asp?ProdId=<%=newprod("ProdId")%>'><%=newprod("ProdName")%></a>
<%=newprod("Model")%></td>
</tr>
<tr>
<td width="175" height="50" bgcolor="#F3F9FA" class="yc">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" class="new">
<tr valign="middle">
<td height="40" colspan="2"> <%=ProdDisc%></td>
</tr>
<tr>
<td valign="bottom" width="79%">價(jià)格:
<%if newprod("PriceList")=0 then
response.write "<b><font color=red>備貨中...</font></b>"
else
response.write "<b><font color=red>"&newprod("PriceList")&" 元</font></b>"
end if
%>
</td>
<td align="center" valign="bottom" width="21%"><a href="#" onClick="window.open('order/add.asp?ProdId=<%=newprod("ProdId")%>','add','scrollbars=yes,resizable=no,width=650,height=450')"><img src="images/mybuy.gif" width="48" height="17" border="0"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<%
newprod.movenext
if k>newprod_num then exit do
if newprod.eof then exit do
next
response.write "</tr><tr><td colspan='2' height='12'></td></tr>"
loop
end if
response.write "</tr><tr><td colspan='2' height='12'></td></tr>"
set newprod=nothing
set conn=nothing
'***********************************
%>
</table>
</td>
</tr>
</table>
<%
end sub
%>
<!--#include file="menu/bottom.asp"-->
</BODY>
</HTML>?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -