info_denglu.asp

网上购物系统:一个经过完善设计的经典网上购物系统

<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="48"><img src="img/xiao/000login1.gif" width="256" height="48"></td>
  </tr>
  <tr>
    <td valign="top" background="img/xiao/000login2.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
      <%if request.Cookies("shopxp")("username")=""  then%>
      <form name="userlogin" method="post" action="user/checkuserlogin.asp">
        <tr>
          <td valign="bottom" ><table border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td >用户名：
                    <input type="text" class="wenbenkuang" name="username" size="16"></td>
                <td width="71" rowspan="2"><div align="center">
                    <input name="image" type=image src="img/xiao/btnLoginOn.gif" width="59" height="42"  border=0 class="Noneborder">
                </div></td>
              </tr>
              <tr>
                <td height="16">密　码：
                  <input type="password" class="wenbenkuang" name="userpassword" size="16"></td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td><table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td>验证码：
              <input class=wenbenkuang name=verifycode type=text value="<%If GetCode=9999 Then Response.Write "9999"%>" maxLength=4 size=6>
              <img src=GetCode.asp></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td height="2">
        </form>
      <%else%>
      <tr>
        <td height="18" align="center"><%
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [Dv_User] where username='"&request.Cookies("shopxp")("username")&"'",conn,1,3
if rs("vipdate")<>"" then 
'看是不是过期VIP
if rs("vipdate")<date and rs("reglx")=2 then
rs("reglx")=1
rs.update
end if
end if
response.Cookies("shopxp")("yucun")=rs("yucun")
response.Cookies("shopxp")("jifen")=rs("jifen")
response.Cookies("shopxp")("reglx=")=rs("reglx")
rs.close
set rs=nothing
if request.Cookies("shopxp")("reglx")=2 then
response.write ""&request.Cookies("shopxp")("username")&" 贵宾您好<br>您目前有"&request.Cookies("shopxp")("jifen")&"积分,预存款"&request.Cookies("shopxp")("yucun")&"元 "
else
response.write ""&request.Cookies("shopxp")("username")&" 您好<br>您目前有"&request.Cookies("shopxp")("jifen")&"积分,预存款"&request.Cookies("shopxp")("yucun")&"元 "
end if
response.write "<br><a href=user.asp><font color=red>进入会员中心</font></a>"
response.write "<br><a href=logout.asp>注销退出</a>"
end if
%></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td height="65" valign="top"><table width="100%" height="65"  border="0" cellpadding="0" cellspacing="0" background="img/xiao/000login3.gif">
        <tr>
          <td height="53"><table width="84%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td width="155" height="20"><div align="right"><img src="img/xiao/btnSearchidpw.gif" width="75" height="20"></div></td>
              <td width="90"><div align="right"><img src="img/xiao/btnSearchMember.gif" width="64" height="20"></div></td>
            </tr>
          </table></td>
        </tr>
      </table></td>
  </tr>
</table>