showpic.asp

本程序采用花香内核

<!--#Include File="Check_hx.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="mdb.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/format.asp"-->
<%
dim founderr
founderr=false
if request.querystring("pic_id")="" then
  founderr=true
  Response.Write "<script language=javascript>alert('请指定操作的对象！');javascript:history.back();</script>"
else
  if not isInteger(request.querystring("pic_id")) then
    founderr=true
    Response.Write "<script language=javascript>alert('非法的新闻id参数。');javascript:history.back();</script>"
  end if
end if
if request.querystring("pic_id")="" then response.redirect "show_error.asp?eid=栏目ID或记录ID不能为空!"
sql="select * from pic where pic_id="&request.querystring("pic_id")
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
start="精美图片 - "&rs("pic_name")&""
call head()
call menu()
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s""><TBODY>" & vbCrLf
Response.Write "<TR><TD height=""25"">&nbsp; 您的位置： <a href='index.asp'>"&webname&"</a> >> <a href='pic.asp'>精美图片</a>"
sql="select piccat_id,piccat_name,sid from piccat where piccat_id="&rs("piccat_id")
set rs1=conn.execute(sql)
sql="select piccat_id,piccat_name from piccat where piccat_id="&rs1("sid")
set rs2=conn.execute(sql)
Response.Write " >> <a href=""pic.asp?piccat_id="&rs2("piccat_id")&""">"&rs2("piccat_name")&"</a>" 
Response.Write " >> <a href=""pic.asp?piccat_id="&rs1("piccat_id")&""">"&rs1("piccat_name")&"</a> >> 正文" 
rs1.close 
rs2.close
Response.Write "</TD></TR></TBODY></TABLE>" & vbCrLf
Response.Write "<table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#FFFFFF class=""table-hx66s"">" & vbCrLf
Response.Write "<TBODY><TR vAlign=top bgcolor=""#FCFCFC""><TD>" & vbCrLf
Response.Write "<DIV class=mframe>" & vbCrLf
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　浏览图片</td></tr></table>" & vbCrLf
if guestpic="yes" or request.Cookies("HX_USER")("User_Name")<>"" then
Response.Write "<table width=""100%"" align=""center"" cellspacing=""0"" cellpadding=""0""" & vbCrLf
Response.Write "style=""word-break:break-all;table-layout:fixed;text-align:left"">" & vbCrLf
Response.Write "<tr><td valign=""top"">" & vbCrLf
Response.Write "<br><div align=""center""><font style=""font-size:16px""><b>"&rs("pic_name")&"</b></font><br><BR>" & vbCrLf
Response.Write "<img src="""&rs("pic_pic")&""" border='0' onmousewheel='return cgimg(this);' onload=""javascript:DrawImage(this);""></div>" & vbCrLf
Response.Write "<BR>" & vbCrLf
Response.Write "<table width='700' border='0' cellspacing='1' align='center' class='table-shangxia'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height='48' bgcolor=""#FFFFFF"" Valign='TOP' style=""LINE-HEIGHT: 150%;padding: 5;"">" & vbCrLf
Response.Write "浏览指数："&rs("pic_count")&" 上传时间："&rs("pic_date")&"<BR>图片说明："&rs("pic_desc")&"<BR>上传会员："&rs("tjuser")&"</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table><BR>" & vbCrLf
Response.Write "<table width=""98%"" align=""center""><tr><td align=""left"">" & vbCrLf
set RelationArt = conn.execute("select top 1 pic_id,pic_name from pic where pic_id<"&request.querystring("pic_id")&" and passed=0 order by pic_date desc")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·上张图片：</font>已经没有了<BR> "    
else
Response.Write "<font color=red>·上张图片：</font><a href=""showpic.asp?pic_id=" & RelationArt(0) & """>" & relationArt(1) & "</a><BR>"   
end if   
Set RelationArt=Nothing
set RelationArt = conn.execute("select top 1 pic_id,pic_name from pic where pic_id>"&request.querystring("pic_id")&" and passed=0 order by pic_id")
IF RelationArt.eof and relationArt.bof Then
Response.Write "<font color=red>·下张图片：</font>已经没有了"   
else
Response.Write "<font color=red>·下张图片：</font><a href=""showpic.asp?pic_id=" & RelationArt(0) & """>" & relationArt(1) & "</a></td>"  
end if  
Set RelationArt=Nothing 
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
else
call guesterror()
  response.end
end if
if point_pic="1" then
Response.Write "<table width=""758""  border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0""  class=""table-shangxia""><tr><td height=""23""  class=""a1"">　相关评论<font color=#CC0000>"&rs("reviewcount")&"</font>篇,当前显示最新的<font color=#CC0000>5</font>篇</td></tr></table>" & vbCrLf
Response.Write "<table width=""98%"" align=""center"" cellspacing=""0"" cellpadding=""0"" style=""word-break:break-all;table-layout:fixed;text-align:left"">"
if rs("review")<>"" then
temp=split(Trim(rs("review")),"|")
for i = 1 to 5
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">"&temp(i)&"</td></tr>"
next
else
Response.Write "<tr><td style=""LINE-HEIGHT: 180%"">当前没有评论</td></tr>"
end if
Response.Write "<tr><td align=""right""><a href=""view.asp?action=pic&pic_id="&rs("pic_id")&""">[查看更多评论] [发表我的评论] </a>&nbsp;&nbsp;</td></tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
elseif point_pic="0" then
Response.Write "<table width=""100%"" cellpadding=""5"" cellspacing=""0"" border=""0"">" & vbCrLf
Response.Write "<tr><td  align=""center"">【图片评论已关闭】" & vbCrLf
Response.Write "		</td></tr>" & vbCrLf
Response.Write "		</table>" & vbCrLf
End If
set rscount=conn.execute("select * from pic")
sql="UPDATE pic SET pic_count = pic_count + 1 where pic_id="&request.querystring("pic_id")
conn.execute (sql)
rscount.close
set rscount=nothing
Response.Write "</table>" & vbCrLf
Response.Write "</table>" & vbCrLf
call footer()%>