cook.asp

购物网站源码有需要的赶快下载机不可失

<%'=================================================================
uflag26=split(flag26,",")
uflag22=split(flag22,",")
uflag9=split(flag9,",")
'===============
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_yp where SMT_key<>0 and SMT_key<>2 and SMT_key1=1 and SMT_user='"&session("useradmin")&"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
'===============检查过期
if cdate(year(rs("SMT_ktdate"))&"-"&month(rs("SMT_ktdate"))&"-"&day(rs("SMT_ktdate")))<=date() then
rs("SMT_key")=2
else
if rs("SMT_key")=2 then
rs("SMT_key")=1
end if
end if
rs.update
'===============取 index 值
key=rs("SMT_key")
vip=rs("SMT_vip")
ktdate=rs("SMT_ktdate")
ksdate=rs("SMT_ksdate")
tian=cdate(year(ktdate)&"-"&month(ktdate)&"-"&day(ktdate))-date()    '剩余天数
ztian=cdate(year(ktdate)&"-"&month(ktdate)&"-"&day(ktdate))-cdate(year(ksdate)&"-"&month(ksdate)&"-"&day(ksdate))     '总天数

if key=0 then
vipjbzt="待审"
elseif key=1 then
vipjbzt="正常"
elseif key=2 then
vipjbzt="过期"
elseif key=3 then
vipjbzt="推荐"
end if

if vip=1 then
vipjb="VIP会员申请中..."
elseif vip=2 then
vipjb="VIP会员"
elseif vip=3 then
vipjb="试用会员申请中..."
elseif vip=4 then
vipjb="试用会员 <a href=vip.asp class=red><strong>注册VIP?</strong></a>"
elseif vip=5 then
vipjb="普通会员申请中..."
elseif vip=6 then
vipjb="普通会员 <a href=vip.asp class=red><strong>注册VIP?</strong></a>"
end if

'=================================完成
user_id=rs("SMT_id")
if rs("SMT_vip")=2 then
userflag26=uflag26(1)  '收藏数量
userflag22=uflag22(1)  '收藏数量
userflag9=uflag9(1)  '收藏数量
SMT_user_vip=3
SMT_user_flagdj="VIP会员"
else
userflag26=uflag26(0)  '收藏数量
userflag22=uflag22(0)  '收藏数量
userflag9=uflag9(0)  '收藏数量
SMT_user_vip=2
SMT_user_flagdj="普通会员"
SMT_user_errts="<br><br><a href="&cityurl&"user/admin.asp target=_blank><strong>升级为 VIP 会员？</strong></a>"
end if
else
SMT_user_vip=1
SMT_user_flagdj="未登录用户"
SMT_user_errts="<br><br><a href="&cityurl&"user_login.asp><strong>登录？</strong></a>　<a href="&cityurl&"reg.asp><strong>还没有注册？</strong></a>"
end if
rs.close
set rs=nothing
'=================取得整个系统权限
if SMT_user_vip>=int(flag14) then userflag14=1 else userflag14=0
if SMT_user_vip>=int(flag15) then userflag15=1 else userflag15=0
if SMT_user_vip>=int(flag16) then userflag16=1 else userflag16=0
if SMT_user_vip>=int(flag17) then userflag17=1 else userflag17=0
if SMT_user_vip>=int(flag18) then userflag18=1 else userflag18=0
if SMT_user_vip>=int(flag19) then userflag19=1 else userflag19=0
if SMT_user_vip>=int(flag20) then userflag20=1 else userflag20=0
if SMT_user_vip>=int(flag21) then userflag21=1 else userflag21=0
if SMT_user_vip>=int(flag24) then userflag24=1 else userflag24=0
if SMT_user_vip>=int(flag36) then userflag36=1 else userflag36=0
if SMT_user_vip>=int(flag37) then userflag37=1 else userflag37=0
if SMT_user_vip>=int(flag38) then userflag38=1 else userflag38=0
if SMT_user_vip>=int(flag39) then userflag39=1 else userflag39=0
if SMT_user_vip>=int(flag40) then userflag40=1 else userflag40=0
if SMT_user_vip>=int(flag41) then userflag41=1 else userflag41=0
if SMT_user_vip>=int(flag42) then userflag42=1 else userflag42=0
if SMT_user_vip>=int(flag43) then userflag43=1 else userflag43=0
if SMT_user_vip>=int(flag44) then userflag44=1 else userflag44=0

uflag27=split(flag27,",")
uflag32=split(flag32,",")
uflag26=split(flag26,",")
uflag9=split(flag9,",")
uflag22=split(flag22,",")
if SMT_user_vip=3 then
rflag27=uflag27(1)
rflag32=uflag32(1)
rflag26=uflag26(1)
rflag9=uflag9(1)
rflag22=uflag22(1)
else
rflag27=uflag27(0)
rflag32=uflag32(0)
rflag26=uflag26(0)
rflag9=uflag9(0)
rflag22=uflag22(0)
end if

if rflag26<>0 and rflag9<>0 and rflag22<>0 then userflag26=1 else userflag26=0  '收藏  1可以网络收藏  0只可以本机收藏
if rflag27<>0 and rflag32<>0 and SMT_user_vip<>1 then userflag27=1 else userflag27=0  '名片添加

function SMT_web_lxview
if int(goid)=int(user_id) then
response.write SMT_user_lxfsview
else
if int(govip)=2 then
if userflag15=1 then
response.write SMT_user_lxfsview
else
response.write SMT_user_seeerr
end if
else
if userflag14=1 then
response.write SMT_user_lxfsview
else
response.write SMT_user_seeerr
end if
end if
end if
end function

'=================================================================
SMT_user_flagerr="<title>权限出错 - "&citytitle&"</title><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0><tr><td>"&_
	           "<TABLE WIDTH=356 BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center>"&_
	           "<TR><TD ROWSPAN=3><IMG SRC="&cityurl&"img/err-1_1.gif WIDTH=36 HEIGHT=160></TD>"&_
	           "<TD background="&cityurl&"img/err-1_2.gif WIDTH=280 HEIGHT=10></TD>"&_
	           "<TD ROWSPAN=3><IMG SRC="&cityurl&"img/err-1_3.gif WIDTH=40 HEIGHT=160></TD></TR>"&_
	           "<TR><TD background="&cityurl&"img/err-1_4.gif HEIGHT=139 align=center><strong><font color=333333>权限出错，原因：<br><br>您是<font color=red>"&SMT_user_flagdj&"</font>，不能使用此功能！"&SMT_user_errts&"</font></strong></TD></TR>"&_
	           "<TR><TD WIDTH=280 HEIGHT=11 background="&cityurl&"img/err-1_5.gif></TD></TR></TABLE></TD></TR></TABLE>"

SMT_user_seeerr="<title>权限出错 - "&citytitle&"</title><table width='100%' height='100%' border=0 cellspacing=0 cellpadding=0><tr><td>"&_
	           "<TABLE WIDTH=356 BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center>"&_
	           "<TR><TD ROWSPAN=3><IMG SRC="&cityurl&"img/err-1_1.gif WIDTH=36 HEIGHT=160></TD>"&_
	           "<TD background="&cityurl&"img/err-1_2.gif WIDTH=280 HEIGHT=10></TD>"&_
	           "<TD ROWSPAN=3><IMG SRC="&cityurl&"img/err-1_3.gif WIDTH=40 HEIGHT=160></TD></TR>"&_
	           "<TR><TD background="&cityurl&"img/err-1_4.gif HEIGHT=139 align=center><strong><font color=333333>权限出错，原因：<br><br>您是<font color=red>"&SMT_user_flagdj&"</font>，不能查看此信息！"&SMT_user_errts&"</font></strong></TD></TR>"&_
	           "<TR><TD WIDTH=280 HEIGHT=11 background="&cityurl&"img/err-1_5.gif></TD></TR></TABLE></TD></TR></TABLE>"
'=================================================================%>
<!--#include file="err.asp"-->