我愿意我不愿意"
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()'>
<%= 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")<>"" or rs("PhotoUrl3")<>"" or rs("PhotoUrl3")<>"" then%>
<%
if UrlID=1 then
response.write "图片地址一"
else
response.write "图片地址一" & ""
end if
%>
<%if rs("PhotoUrl2")<>"" then %>
<%
if UrlID=2 then
response.write "图片地址二"
else
response.write "图片地址二" & ""
end if
%>
<%
end if
if rs("PhotoUrl3")<>"" then %>
<%
if UrlID=3 then
response.write "图片地址三"
else
response.write "图片地址三" & ""
end if
%>
<%
end if
if rs("PhotoUrl4")<>"" then %>
<%
if UrlID=4 then
response.write "图片地址四"
else
response.write "图片地址四" & ""
end if
%>
<%end if%>
<%end if%>
<%
if FoundErr=True then
response.write ErrMsg
else
response.write ""
end if%>