<% '请勿改动下面这三行代码 const ChannelID=4 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="查看图片" dim UrlID UrlID=trim(request("UrlID")) if UrlID="" then UrlID=1 else UrlID=Clng(UrlID) end if 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 rs("Hits")=rs("Hits")+1 if datediff("D",rs("LastHitTime"),now())<=0 then rs("DayHits")=rs("DayHits")+1 else rs("DayHits")=1 end if if datediff("ww",rs("LastHitTime"),now())<=0 then rs("WeekHits")=rs("WeekHits")+1 else rs("WeekHits")=1 end if if datediff("m",rs("LastHitTime"),now())<=0 then rs("MonthHits")=rs("MonthHits")+1 else rs("MonthHits")=1 end if rs("LastHitTime")=now() rs.update end if %> <%=PhotoTitle%> <%call MenuJS()%> onmousemove='HideMenu()'> <%if rs("PhotoUrl2")<>"" or rs("PhotoUrl3")<>"" or rs("PhotoUrl3")<>"" then%> <%end if%>
<%= dvhtmlencode(rs("PhotoName")) %>
图片大小:<%= rs("PhotoSize") & " K" %>
图片作者: <% if rs("Author")="" then response.write "佚名" else response.write dvhtmlencode(rs("Author")) end if%>
更新时间:<%= rs("UpdateTime") %>
推荐等级:<%= string(rs("Stars"),"★") %>
查看次数:<%=rs("Hits")%>
<%if rs("PhotoUrl2")<>"" then %> <% end if if rs("PhotoUrl3")<>"" then %> <% end if if rs("PhotoUrl4")<>"" then %> <%end if%>
<% if UrlID=1 then response.write "图片地址一" else response.write "图片地址一" & "" end if %> <% if UrlID=2 then response.write "图片地址二" else response.write "图片地址二" & "" end if %> <% if UrlID=3 then response.write "图片地址三" else response.write "图片地址三" & "" end if %> <% if UrlID=4 then response.write "图片地址四" else response.write "图片地址四" & "" end if %>
        
<% if FoundErr=True then response.write ErrMsg else response.write "" end if%>
        
<% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% rs.close set rs=nothing call CloseConn() %>