<% '请勿改动下面这三行代码 const ChannelID=4 PageTitle="查看图片" FoundErr=False if rs("PhotoLevel")<=999 then if UserLogined<>True then FoundErr=True ErrMsg=ErrMsg & "对不起,本图片为收费图片,要求至少是本站的注册用户才能欣赏!
您还没注册或者没有登录?所以不能欣赏本图片。请赶紧 注册登录吧!" else if UserLevel>rs("PhotoLevel") then FoundErr=True ErrMsg=ErrMsg & "对不起,本图片为收费图片,并且只有 " if rs("PhotoLevel")=999 then ErrMsg=ErrMsg & "注册用户" elseif rs("PhotoLevel")=99 then ErrMsg=ErrMsg & "收费用户" elseif rs("PhotoLevel")=9 then ErrMsg=ErrMsg & "VIP用户" elseif rs("PhotoLevel")=5 then ErrMsg=ErrMsg & "管理员" end if ErrMsg=ErrMsg & "级别的用户 才能欣赏。你目前的权限级别不够,所以不能欣赏。" else if ChargeType=1 and rs("PhotoPoint")>0 then if Request.Cookies("asp163")("Pay_Photo" & PhotoID)<>"yes" then if UserPoint" & rs("PhotoPoint") & " 点!" ErrMsg=ErrMsg &"而你目前只有 " & UserPoint & " 点可用。点数不足,无法欣赏本图片。请与我们联系进行充值。" else if lcase(trim(request("Pay")))="yes" then Conn_User.execute "update " & db_User_Table & " set " & db_User_UserPoint & "=" & db_User_UserPoint & "-" & rs("PhotoPoint") & " where " & db_User_Name & "='" & UserName & "'" response.Cookies("asp163")("Pay_Photo" & PhotoID)="yes" else FoundErr=True ErrMsg=ErrMsg & "注意:欣赏本图片需要消耗 " & rs("PhotoPoint") & "" ErrMsg=ErrMsg &"你目前尚有 " & UserPoint & " 点可用。阅读本文后,你将剩下 " & UserPoint-rs("PhotoPoint") & " 点" ErrMsg=ErrMsg &"

你确实愿意花费 " & rs("PhotoPoint") & " 点来欣赏本图片吗?" ErrMsg=ErrMsg &"

我愿意        我不愿意

" end if end if end if elseif ChargeType=2 then if ValidDays<=0 then FoundErr=True ErrMsg=ErrMsg & "对不起,本图片为收费图片,而您的有效期已经过期,所以无法欣赏本图片。请与我们联系进行充值。" end if end if end if end if end if if FoundErr=True then response.write ErrMsg else %> <%=PhotoTitle%> <% dim UrlID UrlID=trim(request("UrlID")) if UrlID="" then UrlID=1 else UrlID=Cint(UrlID) end if if UrlID=1 then response.write "" response.write "
" else if UrlID>4 then response.write "地址参数错误!" else if rs("PhotoUrl" & UrlID)="" then response.write "地址错误!" else response.write "" response.write "
" end if end if end if %> <% end if rs.close set rs=nothing call CloseConn() %>