?? xinxi.asp
字號:
<!--
┌─9911.com.cn────────────┐
│ 動感購物 WWW.9911.com.cn 版權所有 │
│ 動感購物2005Vb 聯系:web@snsn.net │
└───────────9911.com.cn──┘
-->
<%if session("username")="" then%>
<a href="login.asp">登錄</a>∣<a href="getpwd.asp">忘記密碼</a>
<%else
set rs=server.createobject("adodb.recordset")
rs.open "select jifen,yucun,reglx,vipdate from [shop_user] where username='"&session("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
yucun=rs("yucun")
if yucun<>"" then
session("yucun")=yucun
end if
session("jifen")=rs("jifen")
session("reglx")=rs("reglx")
rs.close
set rs=nothing
if session("reglx")=2 then
response.write " <font color=red>"&session("username")&" (VIP會員)貴賓</font>您好,您目前有"&session("jifen")&"積分,預存款"&yucun&"元"
else
response.write " <font color=red>"&session("username")&"(普通會員)</font>您好,您目前有"&session("jifen")&"積分,預存款"&yucun&"元"
end if
end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -