?? login.asp
字號:
<!--#include file="userfunc.asp"-->
<link href="images/skin/default/css-1.css" rel="stylesheet" type="text/css">
<TABLE width=183 border=0 cellPadding=0 cellSpacing=0>
<TR>
<TD width=9></TD>
<TD vAlign=top>
<% if request.cookies("Huibo")("username")=""or request.cookies("Huibo")("username")="游客" then
Dim url %>
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28"><img src="images/skin/default/login_01.gif" width="183" height="28"></td>
</tr>
</table>
<table width=183 border=0 cellpadding=0 cellspacing=0>
<form name=loginfo method=post action=chkuser.asp>
<td width=9 background="images/skin/default/login_02.gif" style='padding-left:1px'> </td>
<td width=42 height="19" style='padding-left:1px'> <div align="center">用
戶 </div></td>
<td width=119 nowrap style='padding-left:1px'> <input name=username type=text id=username3 size=14>
</td>
<td width=9 background="images/skin/default/login_03.gif" style='padding-left:1px'> </td>
</tr>
<tr>
<td background="images/skin/default/login_02.gif" style='padding-left:1px'> </td>
<td height="18" style='padding-left:1px'> <div align="center">密 碼</div></td>
<td style='padding-left:1px'> <input name=password type=password id=password4 size=14>
</td>
<td background="images/skin/default/login_03.gif" style='padding-left:1px'> </td>
</tr>
<tr>
<td background="images/skin/default/login_02.gif" style='padding-left:1px'> </td>
<td height="18" style='padding-left:1px'> <div align="center">驗 證 </div></td>
<td style='padding-left:1px'> <input name=passcode type=text id=passcode4 size=4>
<img src="code.asp"></td>
<td background="images/skin/default/login_03.gif" style='padding-left:1px'> </td>
</tr>
<tr>
<td background="images/skin/default/login_02.gif" style='padding-left:1px'> </td>
<td height="18" colspan="2" style='padding-left:1px'><div align="center">
<input type=submit name=Submit value="登錄" onClick="return checkuu();">
<input name=comeurl type=hidden value=<% = url %>>
<a href="reg.asp">注冊</a></div></td>
<td background="images/skin/default/login_03.gif" style='padding-left:1px'> </td>
</tr>
</form>
</table>
<%
else
dim shop,rsvip,username
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.price2,product.vipprice,product.price1,orders.productnum from product inner join orders on product.id=orders.id where orders.state=2 and orders.username='"&trim(request.Cookies("Huibo")("username"))&"' ",conn,1,1
set shop=server.CreateObject("adodb.recordset")
shop.Open "select distinct(goods) from orders where username='"&request.Cookies("Huibo")("username")&"' and state=2 ",conn,1,1
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.Cookies("Huibo")("username")&"' ",conn,1,1
if rsvip("vip") = true then
if shop.recordcount=0 then %>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">歡迎<font color=ff0000>
<% = Request.Cookies("Huibo")("username") %>
</font> 您是 <font color=red>VIP</font> 用戶</div></td>
</tr>
<tr>
<td>您沒有未處理訂單</td>
<td><a href=profile.asp?action=profile><font color="#669900">用戶中心</font></a></td>
</tr>
<tr>
<td>共 0.00元</td>
<td><a href=logout.asp><font color="#669900">注銷登錄</font></a></td>
</tr>
</table>
<%
else
dim shopjiage
do while not rs.eof
shopjiage=round(shopjiage+rs("vipprice")*rs("productnum"),2)
rs.movenext
loop %>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">歡迎<font color=ff0000>
<% = Request.Cookies("Huibo")("username") %>
</font> 您是 <font color=red>VIP</font> 用戶</div></td>
</tr>
<tr>
<td>有<font color="#ff0000">
<% = shop.recordcount %>
</font>筆未處理訂單</td>
<td><a href=profile.asp?action=profile><font color="#669900">用戶中心</font></a></td>
</tr>
<tr>
<td>共計：
<% = shopjiage %>
元(不含郵費)</td>
<td><a href=logout.asp><font color="#669900">注銷登錄</font></a></td>
</tr>
</table>
<%
end if
rsvip.close
set rsvip = nothing
else
if shop.recordcount=0 then %>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">歡迎<font color=ff0000>
<% = Request.Cookies("Huibo")("username") %>
</font> 您是<font color=red>普通</font>用戶</div></td>
</tr>
<tr>
<td><font color="#000000">您沒有未處理訂單</font></td>
<td><a href=profile.asp?action=profile><font color="#669900">用戶中心</font></a></td>
</tr>
<tr>
<td>共 0.00元</td>
<td><a href=logout.asp><font color="#669900">注銷登錄</font></a></td>
</tr>
</table>
<%
else
do while not rs.eof
shopjiage=round(shopjiage+rs("price2")*rs("productnum"),2)
rs.movenext
loop %>
<table width="100%" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><div align="center">歡迎<font color=ff0000>
<% = Request.Cookies("Huibo")("username") %>
</font> 您是<font color=red>普通</font>用戶</div></td>
</tr>
<tr>
<td>有
<% = shop.recordcount %>
筆未處理訂單</td>
<td><a href=profile.asp?action=profile><font color="#669900">用戶中心</font></a></td>
</tr>
<tr>
<td>共
<% = shopjiage %>
元(除郵費)</td>
<td><a href=logout.asp><font color="#669900">注銷登錄</font></a></td>
</tr>
</table>
<%
end if
end if
shop.Close
set shop=nothing
rs.close
set rs=nothing
end if %>
</TD>
<TD width=10></TD>
</TR>
</TABLE>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -