<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<table width=200 height="208" border=0 align=center cellpadding=0 cellspacing=0 background="eshop_img/loginbg.gif">
<tr>
<td height="136">
<%if request.cookies("Cnhww")("username")="" then%>
<table width="200" height="208"
border="0" align="center" cellpadding="0" cellspacing="0" background="eshop_img/loginbg.gif">
<tbody>
<%if request.cookies("Cnhww")("username")=""
then%>
</tbody>
<form action="checkuserlogin.asp" method="post" name="userlogin" id="userlogin">
<tr>
<td height="37" colspan="2" class="text"><div align="center"></div></td>
</tr>
<tr align="center">
<td height="24" colspan="2">顾客您好,购买商品请先登录</td>
</tr>
<tr>
<td width="35%" height="26" class="text"><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 height="26" class="text"><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 height="36" class="text"><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="17" colspan="2"><div align="center">
<%
set cnhw=server.CreateObject("adodb.recordset")
cnhw.open "select * from [user] where username='"&request.cookies("Cnhww")("username")&"' ",conn,1,1
Dim UsName,rs
UsName=Request.Form("UserName")'假设从表单提交过来
Set rs=conn.Execute("select * from [User] Where UserName='"&UsName&"'")
'判断VIP会员是否到期DateDiff函数时间长比较
'DateDiff函数的相关解释
'http://www.
'http://wenku.baidu.com/view/69e2c022bcd126fff7050b68.html
'http://topic.
'http://baike.baidu.com/view/327446.htm?fr=ala0_1_1
IF DateDiff("YYYY",Date(Now),rs("szshi"))>rs("vipdate") Then
'将VIP降级为普通会员
conn.Execute("Update [User] set reglx='1' Where UserName='"&UsName&"'")
End IF
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
<INPUT onfocus=this.blur() type=image height=16 width=52
src="eshop_img/login.gif" border=0 name=imageField>
<A
href="register.asp"><IMG height=16 hspace=5
src="eshop_img/reg.gif" width=52 border=0></A></div></td>
</tr>
<tr>
<td colspan="2"><div align="center"><IMG height=9 hspace=5 src="eshop_img/dot03.gif"
width=9><A
onclick="javascript:window.open('getpwd.asp','shouchang','width=450,height=300');"
href="#">密码丢失/找回密码</A></div></td>
</tr>
</form>
<%else%>
<tr>
<td colspan="2"class="text" ><div align="center">
</div></td>
</tr>
<%end if%>
</table><%else%>
<table width="90%" align="center" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href="user.asp?action=myinfo">我的信息</a></td>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href="user.asp?action=shoucang">我的收藏</a></td>
</tr>
<tr>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href="user.asp?action=userziliao">个人资料</a></td>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href="user.asp?action=savepass">修改密码</a></td>
</tr>
<tr>
<td align="center"><img src="images/dot03.gif" /></td>
<td><a href="user.asp?action=jifen">积分转换</a></td>
<td align="center"><img src="images/dot03.gif" /></td>
<td><a href=# onClick="window.open('getpwd.asp ','basket','menubar=no,toolbar=no,location=no,directories=no,status=no,scrollbars=0,resizable=0,width=410,height=175,top=50,left=100,')">找回密码</a></td>
</tr>
<tr>
<td align="center"><img src="images/dot03.gif" /></td>
<td><a href="user.asp?action=viphd">VIP 活动</a></td>
<td align="center"><img src="images/dot03.gif" /></td>
<td><a href="user.asp?action=sqvip")">VIP 申请</a></td>
</tr>
<tr>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href="user.asp?action=dindan">我的订单</a></td>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href=logout.asp>退出登录</a></td>
</tr>
<tr>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td><a href="user.asp?action=famess">发送短信</a></td>
<td width="15%" align="center"><img src="images/dot03.gif" /></td>
<td width="35%"><a href="user.asp?action=soumess">接收短信</a></td>
</tr>
<%if request.cookies("Cnhww")("reglx")=2 then%>
<%else%>
<%end if%>
</table>
<%end if%></td>
</tr>
</table>
