?? info1.asp
字號:
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="34" align="center" valign="top">
<p>
<%if request.cookies("shopzhiwang")("username")="" and request.cookies("shopzhiwang")("shjianame")="" then%>
<span class="style1">顧客您好!購買商品請先 </span> </p>
<p><a href="login.asp">[<strong>登錄</strong></a>] [<a href="reg.asp"><strong>新用戶注冊</strong></a>]
<%else
set rs=server.createobject("adodb.recordset")
rs.open "select point,yucun,reglx,vipdate from [sh_user] where username='"&request.cookies("shopzhiwang")("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("shopzhiwang")("yucun")=rs("yucun")
response.Cookies("shopzhiwang")("point")=rs("point")
response.Cookies("shopzhiwang")("reglx=")=rs("reglx")
rs.close
set rs=nothing
if Request.Cookies("shopzhiwang")("reglx")=2 then
response.write "<font color=red>"&Request.Cookies("shopzhiwang")("username")&" 貴賓</font>您好,您目前有"&Request.Cookies("shopzhiwang")("point")&"積分,預存款"&Request.Cookies("shopzhiwang")("yucun")&"元"
else
response.write "<font color=red>"&Request.Cookies("shopzhiwang")("username")&"</font>您好,您目前有"&Request.Cookies("shopzhiwang")("point")&"積分,預存款"&Request.Cookies("shopzhiwang")("yucun")&"元"
end if
end if
%>
</p></td>
</tr>
</table>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -