我愿意我不愿意"
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()
%>