showpic.asp

网站整站

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/inc.asp"-->
<%
'//版权所有：野草设计

'//程序作者：野草

'//当前版本：V2.0

'//联系QQ：94440079

'//官方网站：http://www.yecaoweb.com
%>
<%
dim picid
picid=YC_post("图片ID",request.querystring("id"),1,0,0) 
title="图片作品→查看图片→"&showtitle("YC_pic",picid)
execute(loadskin(skinmode))
call NowWhere("查看图片","showpic.asp?id="&picid)
call head()
set rs=server.CreateObject("adodb.recordset")
YC_sql("update [YC_pic] set click=click+1 where id="&picid)
sql="select title,color,class,bigclass,content,commend,pass,user,date,click,reads,exper from [YC_pic] where pass=1 and id="&picid
set rs=conn.execute(sql)
if rs.eof and rs.bof then
YCGO("error.asp?action=error&text="&server.urlencode("该数据不存在……")&"")
else
dim pic(13)
pic(0)=rs("title")
pic(1)=rs("color")
pic(2)=rs("bigclass")
pic(3)=rs("class")
pic(4)=rs("content")
pic(5)=rs("user")
pic(6)=rs("date")
pic(7)=cint(rs("click"))
pic(8)=cint(rs("reads"))
pic(9)=cint(rs("exper"))
pic(10)=rs("commend")
pic(11)=rs("pass")
if pic(11)="0" then 
YCGO("error.asp?action=error&text="&server.urlencode("该图片正在审核中……")&"")
end if
end if
rs.close
set rs=nothing
sqluser="select user_exper from [YC_user] where pass=1 and id="&userid
set rsuser=conn.execute(sqluser)
dim picuser(0)
picuser(0)=rsuser("user_exper")
rsuser.close
set rsuser=nothing
'开始框架
YC("<table border=""0"" id=""content"" cellspacing=""0"" cellpadding=""0""><tr>")
YC("<td  valign=""top"" id=""show"" nowrap>")
YC("<table border=""0"" cellspacing=""0"" cellpadding=""0"" width='100%'><tr>")
YC("<td class=""111"" nowrap></td><td  class=""222""  nowrap>")
YC("&nbsp;当前位置：<a href=""index.asp"">本站首页</a>→<a href=""pic.asp"">图片展示</a>→")
call mybigclass("YC_picclass","pic",pic(2))
YC("→")
call myclass("YC_picclass","pic",pic(3))
YC("<td class=""333"" nowrap></td></td></tr></table>")
'中间框架
YC("<table border=""0"" cellspacing=""0"" cellpadding=""0"" width='100%'>")
YC("<tr><td class=""444"" nowrap></td>")
YC("<td class=""555"" valign=""top"" nowrap>")
YC("<div class=""show_content""><br />")

'图片信息
YC("<center><b><font color="""&pic(1)&""">"&pic(0)&"</font></b></center>")
YC("<p class='show_title' align='center'>[&nbsp;推荐："&pic(10)&"┋发布："&pic(5)&"┋发布："&replacetime(pic(6),"1")&"┋阅读："&pic(7)&"次&nbsp;]</p>")

'图片显示
if pic(8)=0 then
call picmain()
elseif pic(8)=1 then
if useradmin>=1 then
if picuser(0)>pic(9) then
call picmain()
else
YC("<center><b><font color=""blue"">对不起！您的积分不足！查看必须高于["&pic(9)&"]分！</font></b></center>")
end if
else
YC("<center>只有普通用户以上级别才可以查看！</center>")
end if
elseif pic(8)=2 then

if useradmin>=2 then
if picuser(0)>pic(9) then
call picmain()
else
YC("<center><b><font color=""blue"">对不起！您的积分不足！查看必须高于["&pic(9)&"]分！</font></b></center>")
end if
else
YC("<center>只有VIP用户以上级别才可以查看！</center>")
end if

end if
sub picmain()
YC("<table style=""word-break:break-all;table-layout:fixed;line-height:150%;"">")
YC("<tr><td align=""center"">")
sqlurl="SELECT * FROM [YC_picurl] WHERE urlid="&picid&" order by id"
Set rsurl=Server.CreateObject("ADODB.Recordset")
rsurl.open sqlurl,Conn,1,1
if rsurl.eof then
response.write "没有图片"
else
for i=1 to rsurl.recordcount
YC("第["&i&"]张<br />")
YC("<img src=""picurl.asp?id="&picid&"&num="&rsurl("num")&""" border=""1"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" onclick=""window.open('picurl.asp?action=img&id="&picid&"&num="&rsurl("num")&"');""><br />")
rsurl.movenext
next
end if
rsurl.close
set rsurl=nothing
YC("</td></tr></table>")
end sub
%>
<p class="show_title" align="center">相关说明</p>
<div style="padding:4px;">
<%=pic(4)%></div>
<%call nextdata("YC_pic","showpic","张")%>
</div>
<td class="666" nowrap></td></tr></table>
<table border="0" cellspacing="0" cellpadding="0" width='100%'>
<tr>
<td  class="777" nowrap></td>
<td class="888" nowrap></td>
<td class="999" nowrap></td>
</tr></table>
<%
if picpl="yes" then
call pl("pic",picid)
end if
YC("</td></tr></table>")
call foot()
%>