56770_userlogins.asp

本实例为一个完整的网上购物商城的完整例子程序,里面有所以的源代码.希望对大家学习有用.

<TABLE border=0 cellPadding=0 cellSpacing=0 width=180>
<tr>
<td height="23">
<table cellspacing=0 cellpadding=0 width=180 height="23">
<tr>
<%
set rs=server.createobject("ADODB.Recordset")
sql="select * from 56770_user where user_id='"&session("user_id")&"'"
rs.open sql, conn, 1, 1
%>
<td style="padding-left:10px;padding-top:2px" width="100%" height="23" bgcolor="#FFC7C7">
<%if session("user_id")="" then%>&nbsp; 会员登陆<%else%><div align="center"><%=rs("user_id")%> 欢迎您光临!</div><%end if%></td>
</tr>
</table>
</td>
</tr>
<%rs.close
set rs=nothing
%>
<td>
<table width="180" border="0" cellpadding="0" cellspacing="0" align="center"  bgcolor="#FFE7E9">
<%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
%>
<td width=50%>

<img src="images/index_plus.gif">等级:<%=rs("user_grade")%><BR>
<img src="images/index_plus.gif">积分:<%=rs("jifen")%><BR>
<img src="images/index_plus.gif"><a href="myuser.asp?action=msg">站内短信</a>
<%
sql1="select * from 56770_message where to_user='"&session("user_id")&"' order by id desc"
set rs1=server.createobject("ADODB.Recordset")
rs1.open sql1, conn, 1, 1
if rs1.eof then
        response.write"<img src='images/m_olds.gif'>"
else
        do while not rs1.eof
if rs1("ifre")=0 then
        re=" <img src='images/m_news.gif'>"
else
        re="<img src='images/m_olds.gif'>"
end if
%>
<%=re%>       <%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
<br><img src="images/index_plus.gif"><a href="quit.asp"><font color=red>退出购物</font></a>　
</td>
<td widtd="50%">
<img src="images/index_plus.gif"> <a href="mybasket.asp">查看购物袋</a><br>
<img src="images/index_plus.gif"> <a href="myuser.asp?action=dingdan">订单查看</a><br>
<img src="images/index_plus.gif"> <a href="myuser.asp?action=modi">资料管理</a><br>
<img src="images/index_plus.gif"> <a href="default.asp">返回首页</a></td></tr>
<%rs.close
set rs=nothing
else%>
        <TR>
<form method="POST" action="login.asp">
<td>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=180  bgcolor="#FFE7E9" height="80">
<TBODY>
<TR>
<TD align=middle>你还没有登陆</TD>

</TR>
<TR>
<TD align="middle">
<a href="login.asp"><img src="images/login.gif" border="0"></a> <a href="reg.asp"><img src="images/reg.gif" border="0"></a></TD>
</TR>
</table>
</td>
</form>
</tr>
<%end if%>
</table>
</td>
</tr>
</tbody>
</table>