<%
'请勿改动下面这三行代码
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
%>
图片搜索
<%call ShowSearchForm("Photo_Search.asp",1)%>
<%if Child>0 then%>
<%=ClassName%>分类
<%call ShowChildClass(1)%>
<%end if%>
热门图片
<%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%>
<%
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条。评论内容只代表网友观点，与本站立场无关！）