logins.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

<table width="87%" 
border="0" align="center" cellpadding="0" cellspacing="0">
  <tbody>
    <%if request.cookies("Cnhww")("username")=""  then%>
  </tbody>
  <form action="checkuserlogin.asp" method="post" name="userlogin" id="userlogin">
    <tr>
      <td height="10" colspan="2" class="unnamed2"><div align="center">顾客您好,购买商品请先登录</div></td>
    </tr>
    <tr>
      <td width="35%" class="unnamed2"><div align="right">账　号：</div></td>
      <td width="65%"><div align="left">
        <input name="username" class="form2" type="text" id="username2" maxlength="18" size="12" />
      </div></td>
    </tr>
    <tr>
      <td class="unnamed2"><div align="right">密　码：</div></td>
      <td><div align="left">
        <input name="userpassword" class="form2" type="password" id="userpassword2" maxlength="18" size="12" />
        <input class="wenbenkuang" type="hidden" name="linkaddress2" value="<%=request.servervariables("http_referer")%>" />
        <br />
      </div></td>
    </tr>
    <tr>
      <td class="unnamed2"><div align="right">验证码：</div></td>
      <td><div align="left">
        <input class="form2" name="verifycode" type="text" value="<%If GetCode=9999 Then Response.Write "9999"%>" maxlength="4" size="6" />
        <img src="GetCode.asp" /></div></td>
    </tr>
    <tr>
      <td height="10" colspan="2"></td>
    </tr>
    <tr>
      <td height="17" colspan="2">
        <div align="center">
          <input  name="imageField" src="images/login.gif" width="53" height="17" border="0" type="image" onfocus="this.blur()" />
        <a href="register.asp"><img src="images/reg.gif" width="53" height="17" hspace="5" vspace="0" border="0" /></a></div></td>
    </tr>
    <tr>
      <td height="10" colspan="2"></td>
    </tr>
    <tr>
      <td colspan="2"><div align="center"><img src="images/dot03.gif" width="9" height="9" hspace="5" /><a href="#"  onClick="javascript:window.open('getpwd.asp','shouchang','width=450,height=300');"><font color=EAE9E9>密码丢失/找回密码</font></a></div></td>
    </tr>
  </form>
  <%else%>
  <tr>
    <td colspan="2"class="unnamed2" ><div align="center">
      <%
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [user] where username='"&request.cookies("Cnhww")("username")&"'",conn,1,3
if rs("vipdate")<>"" then 
if rs("vipdate")<date and rs("reglx")=2 then
rs("reglx")=1
rs.update
end if
end if
response.cookies("Cnhww")("yucun")=rs("yucun")
response.cookies("Cnhww")("jifen")=rs("jifen")
response.cookies("Cnhww")("reglx=")=rs("reglx")
rs.close
set rs=nothing
if request.cookies("Cnhww")("reglx")=2 then
response.write ""&request.cookies("Cnhww")("username")&" VIP贵宾您好<br>您目前有 <font color=red>"&request.cookies("Cnhww")("jifen")&"</font> 积分<br>预存款 <font color=red>"&request.cookies("Cnhww")("yucun")&"</font> 元 "
else
response.write ""&request.cookies("Cnhww")("username")&" 您好<br>您目前有 <font color=red>"&request.cookies("Cnhww")("jifen")&"</font> 积分<br>预存款 <font color=red>"&request.cookies("Cnhww")("yucun")&"</font> 元 "
end if
response.write "<br><a href=user.asp><font color=red>进入会员中心</font></a>"
response.write "<br><a href=logout.asp>注销/退出</a>"
%>
    </div></td>
  </tr>
  <%end if%>
</table>