56770_userlogins.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 163 行

<TABLE class="bg_l" border="0" style="border-collapse: collapse;border:dotted 1px" bordercolor="#CCCCCC" cellpadding=0 width="100%" align="center">
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from 56770_user where user_id='"&session("user_id")&"'"
rs.open sql, conn, 1, 1
%>
<tr>
<td width="100%" align="left" height="25" CLASS="navtablehead" colspan="2" style="BORDER-bottom: #999999 1px dotted">&nbsp;
<%if session("user_id")="" then
if request("LAN")="english" then 
response.write("User Login") 
elseif request("LAN")="fan" then 
 response.write("會員登陸") 
 else
 response.write("会员登陆") 
end if
else%>
<%=rs("user_id")%>,
<%if request("LAN")="english" then 
response.write("Welcome you") 
elseif request("LAN")="fan" then  
response.write("歡迎您！") 
 else
response.write("欢迎您光临!") 
end if%><%end if%></td>
</tr>
<%rs.close
set rs=nothing
%>

<%if session("user_id")<>"" then
sql="select * from 56770_user where user_id='"&session("user_id")&"'"
set rs=server.createobject("ADODB.Recordset")
rs.open sql, conn, 3, 3
%>
<tr><td>
<TABLE WIDTH="100%" class="bg_l" border="0" cellpadding=0 width="100%" align="center">
<tr>
<td width=50%>
<img src="images/index_plus.gif"><%if request("LAN")="english" then
 response.write("Level") 
elseif request("LAN")="fan" then 
 response.write("等級")  
else 
response.write("等级") 
end if%>:<%=rs("user_grade")%><BR>
<img src="images/index_plus.gif"><%if request("LAN")="english" then 
response.write("Score") 
elseif request("LAN")="fan" then 
 response.write("積分")  
else
 response.write("积分") 
end if%>:<%=rs("jifen")%><BR>
<img src="images/index_plus.gif"><a href="myuser.asp?lan=<%=request("LAN")%>&action=msg"><%if request("LAN")="english" then 
response.write("letter") 
elseif request("LAN")="fan" then 
 response.write("站內短信")  
else 
response.write("站内短信") 
end if%></a>
<%
sql1="select top 1 * from 56770_message where to_user='"&rs("user_id")&"' order by id desc"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1, conn, 1, 1
if rs1("ifview")=0 then
        re=" <img src='images/m_news.gif'>"
else
        re="<img src='images/m_olds.gif'>"
end if
if rs1.eof then
        response.write"<img src='images/m_olds.gif'>"
else
        'do while not rs1.eof
%>
<%=re%>       
<%rs1.movenext
'loop
rs1.close
set rs1=nothing
end if%>
<img src="images/index_plus.gif"><a href="quit.asp"><font color=red><%if request("LAN")="english" then
 response.write("Log Out")
 elseif request("LAN")="fan" then 
 response.write("退出購物") 
 else 
response.write("退出购物")
 end if%></font></a>　
</td>
<td widtd="50%">
<img src="images/index_plus.gif"> <a href="mybasket.asp?lan=<%=request("LAN")%>"><%if request("LAN")="english" then 
response.write("Purchase bag") 
elseif request("LAN")="fan" then 
 response.write("查看購物袋")  
else 
response.write("查看购物袋")
 end if%></a><br>
<img src="images/index_plus.gif"> <a href="myuser.asp?lan=<%=request("LAN")%>&action=dingdan"><%if request("LAN")="english" then 
response.write("My Orders") 
elseif request("LAN")="fan" then 
 response.write("訂單查看")  
else 
response.write("订单查看") 
end if%></a><br>
<img src="images/index_plus.gif"> <a href="myuser.asp?lan=<%=request("LAN")%>&action=modi"><%if request("LAN")="english" then
 response.write("User Profile") 
elseif request("LAN")="fan" then 
 response.write("注冊信息")  
else 
response.write("资料管理") 
end if%></a><br>
<img src="images/index_plus.gif"> <a href="shoucang.asp?lan=<%=request("LAN")%>&action=show" title="关注商品列表"><%if request("LAN")="english" then
 response.write("Favourite")
 elseif request("LAN")="fan" then  
response.write("收藏夾") 
 else 
response.write("关注商品") 
end if%></a></td></tr>
</table></td></tr>
<%rs.close
set rs=nothing
else%>
<form method="POST" action="cklogin.asp?lan=<%=request("lan")%>">
<tr><td>
<TABLE WIDTH="100%" class="bg_l" border="0" cellpadding=0 width="100%" align="center">
<tr>
<td width="80">&nbsp;<%if request("LAN")="english" then 
response.write("User name") 
 reg="images/reg_e.gif" 
 login="images/login_e.gif" 
elseif request("LAN")="fan" then 
 response.write("用戶名")  
 reg="images/reg_f.gif" 
 login="images/login_f.gif" 
else 
response.write("用户名")
 reg="images/reg.gif" 
 login="images/login.gif" 
 end if%>：</td><td width="70"><input tid="user_name"  name="user_id" type="text" size="7">
</td><td width="50"><INPUT type=image alt=登陆 border=0 src="<%=login%>" border="0"></td>
</tr>
<tr>
<td width="80">&nbsp;<%if request("LAN")="english" then
 response.write("Password")
elseif request("LAN")="fan" then 
 response.write("密&nbsp;&nbsp;碼") 
 else 
response.write("密&nbsp;&nbsp;码") 
end if%>：</td><td width="70"><input type="password" name="user_password" size="6">
</td><td width="50"><a href="reg.asp"><img src="<%=reg%>" border="0"></a></td>
</tr>
<tr>
<td width="80">&nbsp;<%if request("LAN")="english" then 
response.write("Code")
 elseif request("LAN")="fan" then  
response.write("驗證碼")  
else 
response.write("验证码")
 end if%>：</td><td width="70"><input name=verifycode type=text id=verifycode size="4">
</td><td width="50"><img src="verifycode.asp"></td>
</tr>
</form>
</table>
<%end if%></td></tr></table>