<% '请勿改动下面这三行代码 const ChannelID=4 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="图片信息" %> <%=PhotoTitle%> <%call MenuJS()%> onmousemove='HideMenu()'> <% dim sqlRoot,rsRoot,trs,arrClassID,TitleStr sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From PhotoClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " or C.ParentPath like '%" & ParentPath & "," & ClassID & "%' and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID" Set rsRoot= Server.CreateObject("ADODB.Recordset") rsRoot.open sqlRoot,conn,1,1 arrClassID=ClassID do while not rsRoot.eof arrClassID=arrClassID & "," & rsRoot(0) rsRoot.movenext loop rsRoot.close set rsRoot=nothing 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 UserPoint" & rs("PhotoPoint") & " 点!" ErrMsg=ErrMsg &"而你目前只有 " & UserPoint & " 点可用。点数不足,无法欣赏本图片。请与我们联系进行充值。" else ErrMsg=ErrMsg & "注意:本图片为收费图片,并且欣赏本图片需要消耗 " & rs("PhotoPoint") & " 点!  若点击任何一个图片地址,意味着你同意消耗相应点数来欣赏此图片。若你不同意,请不要点击任何图片地址!" 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 Child>0 then%> <%end if%>
图片搜索
<%call ShowSearchForm("Photo_Search.asp",1)%>
<%=ClassName%>分类
<%call ShowChildClass(1)%>
热门图片
<%call ShowHot(10,100)%>
推荐图片
<%call ShowElite(10,100)%>

<%= dvhtmlencode(rs("PhotoName")) %>
图片大小: <%= rs("PhotoSize") & " K" %>
  <% if FoundErr<>True then response.write "" else response.write "" end if%>  
<%response.write "" & dvhtmlencode(rs("PhotoName")) & ""%>
图片作者: <% if rs("Author")="" then response.write "佚名" else response.write dvhtmlencode(rs("Author")) end if%>
更新时间: <%= rs("UpdateTime") %>
推荐等级: <%= string(rs("Stars"),"★") %>
查看次数: 本日:<%=rs("DayHits")%>  本周:<%=rs("WeekHits")%>  本月:<%=rs("MonthHits")%>  总计:<%=rs("Hits")%>
图片添加: <%= rs("Editor") %>
相关评论:
图片简介: <%= ubbcode(dvhtmlencode(rs("PhotoIntro"))) %>
查看图片: <% if FoundErr=True then response.write ErrMsg else response.write "图片地址一" & "" if rs("PhotoUrl2")<>"" then response.write "    图片地址二" & "" if rs("PhotoUrl3")<>"" then response.write "    图片地址三" & "" if rs("PhotoUrl4")<>"" then response.write "    图片地址四" & "" end if %>

  网友评论:(只显示最新5条。评论内容只代表网友观点,与本站立场无关!) " target="_blank">发表评论
<%call ShowComment(5)%>
<% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% rs.close set rs=nothing call CloseConn() %>