showpic.asp

学校网站源码fdfdffdfdfdfdfdfdfdf

<%
'程序名称：淮海高科管理系统[Huaihi] 
'程序作者：淮海高科
'作者邮箱：[e-mail]
'作者 Q Q：101101111
'作者电话：[phone]
'官方主页：http://Huaihi.com

%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/set.asp"-->
<!--#include file="inc/dll.asp"-->
<!--#include file="inc/inc.asp"-->
<%
if showpic="no" then
if userlogin="" then
response.write"<script>alert('请重新登陆！');window.close();</script>"
Response.End
end if
end if
if request("action")="" then
call pass()
title="图片作品→查看图片"
call checkshowcontent()
call top()%>
<script language="JavaScript">
<!--
self.moveTo(0,0)
self.resizeTo(screen.availWidth,screen.availHeight)
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
      <SCRIPT language=vbscript event=onLoad for=window>
	image1.filters.item(0).apply()
	image1.filters.item(0).transition = 23
	image1.Style.visibility = ""
	image1.filters(0).play(2.0)
      </SCRIPT>
<script language="VBScript">
Function FDateTime()
	Data=now
	Dim nowYear,nowMonth,nowDay,nowHour,nowSec,nowMin
	nowYear		= Year(Data)
	nowMonth	= Month(Data)
	If CInt(nowMonth)<10 Then	nowMonth = "0"&nowMonth
	nowDay	= Day(Data)
	If CInt(nowDay)<10 Then 	nowDay = "0"&nowDay
	nowHour	= Hour(Data)
	If CInt(nowHour)<10 Then	nowHour = "0"&nowHour
	nowSec	= Second(Data)
	If CInt(nowSec)<10 Then		nowSec = "0"&nowSec
	nowMin	= Minute(Data)
	If CInt(nowMin)<10 Then		nowMin = "0"&nowMin
	FDateTime	= nowYear&""&nowMonth&""&nowday&""&nowhour&""&nowmin&""&nowSec
End Function
</script> 
<table border="0"  cellspacing="0" cellpadding="0" align=center class=bgcolor>
<tr><td class=left></td>
<td class=width>
<table width=100% border=0  cellspacing="0" cellpadding="0">
<tr>
<td valign=top align=center>
<%call br%>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from Huaihi_pic where pass=true and id="&request.querystring("id")
rs.open sql,conn,1,3
rs("click")=rs("click")+1
rs.update%>
<table border="0" cellspacing="0" cellpadding="0" width=100%>
<tr>
<td class=showtop>&emsp;当前位置：<a href=index.asp>本站首页</a>→<a href=pic.asp>图片频道</a>→<%set rs3=server.CreateObject("adodb.recordset")
sql="select * from [Huaihi_picclass] where id="&rs("class")&" order by id desc"
rs3.open sql,conn,1,1
if not rs3.bof and not rs3.eof then
response.Write rs3("classname")
end if
rs3.close
set rs3=nothing%>→<b><font color="<%=rs("color")%>"><%=rs("title")%></font></b></td>
</tr></table>
<table border="0"   cellspacing="0" cellpadding="0" width=100%><tr>
<td  class=showcenter valign=top height=60>
<%if rs("read")=0 then
call main()
elseif rs("read")=1 then
if useradmin>=1 then
call main()
else
response.write "<br><center><b><font color=red>只有普通会员以上级别才可以查看！</font></b></center>"
end if
elseif rs("read")=2 then
if useradmin>=2 then
call main()
else
response.write "<br><center><b><font color=red>只有VIP会员以上级别才可以查看！</font></b></center>"
end if
end if
sub main()%>

<center>
<table border=1 cellspacing=0 cellpadding=0 frame=void width=100% bordercolor=<%=border%>>
<tr><td class=bg height=25 align=center><%call br()%><font color="<%=rs("color")%>"><%=rs("title")%></font><%call br()%>
图片发布：<%=rs("user")%>&emsp;
发表时间：<%=rs("date")%>&emsp;点击次数：<%=rs("click")%>次<%call br()%></td></tr>
<tr><td  align=center>
<center><br>
<table width=100% style="word-break:break-all;table-layout:fixed;line-height:150%;"><td align=center>
<img src="<%=rs("pic")%>" border='1' onmousewheel="return bbimg(this)" onload="javascript:resizepic(this)"  id=image1 style="FILTER: revealTrans(Duration=4.0, Transition=23);VISIBILITY: hidden" onclick=javascript:window.open(this.src);>
<br></td></table></center>
<%call br()%>
</td></tr>
<tr><td class=bg height=25 align=center colspan=3>相关介绍</td></tr>
<tr>
<td height=80  valign=top colspan=3 style="padding:4px"><blockquote><%=rs("content")%></blockquote>
</td></tr>
<tr><td height=40 colspan=3 class=bg>
<%call nextdata("Huaihi_pic","showpic","张")%>
</td></tr>
</table>
<%end sub%>
</TD></TR></table>
<table border="0" cellspacing="0" cellpadding="0" width=100%><tr><td class=showfoot></td></tr></table>
<table border=0  cellspacing="0" cellpadding="0" align=center width=100%>
<tr align=middle><td width=5></td>
<td width=370 height=150 align=right>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;※&nbsp;点击排行</td>
<td class=showtopright></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td  class=showcenterleft></td>
<td valign=top class=showcentercenter  height=180>
<%call br()
set rstop=server.createobject("adodb.recordset")
if request.querystring("class")<>"" then
sql="select * from [Huaihi_pic] where pass=true and class="&request.querystring("class")&" order by click DESC"
else
sql="select * from [Huaihi_pic] where pass=true order by click DESC"
end if
rstop.open sql,conn,1,1
n=0
response.write"<table border='0' cellspacing='0' cellpadding='0' width='100%'>"
do while not rstop.eof
%><tr height=17><td>·<a href='showpic.asp?id=<%=rstop("id")%>' target='_blank' title="图片名称：<%=rstop("title")%><br>发表会员：<%=rstop("user")%><br>发表时间：<%=rstop("date")%><br>点击次数：<%=rstop("click")%>次"><%=Huaihi_Kill_Word(rstop("title"),30)%></a></td><td width=65><%=rstop("date")%></td></tr>
<%n=n+1
if n=cint(toplist) then exit do end if
rstop.movenext
loop
if rstop.eof and rstop.bof then
response.write "<center><font color=red><b>没有相关图片！<b></font></center>"
end if
response.write "</table>"
rstop.close
set rstop=nothing
call br()%>
</td>
<td class=showcenterright></td></tr></table>

<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD>
<td width=5></td>
<td  width=370 height=150 align=left>
<%call br()%>
<table border="0"   cellspacing="0" cellpadding="0">
<tr>
<td class=showtopleft></td>
<td class=showtopcenter>&emsp;※&nbsp;本站推荐</td>
<td class=showtopright></td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td  class=showcenterleft></td>
<td valign=top class=showcentercenter  height=180>
<%call br()
set rsbest=server.createobject("adodb.recordset")
sql="select * from [Huaihi_pic] where pass=true and best=true order by id DESC"
rsbest.open sql,conn,1,1
do while not rsbest.eof
%>·<a href="showpic.asp?id=<%=rsbest("id")%>" target="pic" title="图片名称：<%=rsbest("title")%><br>发表会员：<%=rsbest("user")%><br>发表时间：<%=rsbest("date")%><br>点击次数：<%=rsbest("click")%>次"><%=Huaihi_Kill_Word(rsbest("title"),30)%></a><br>
<%n=n+1
if n=cint(bestlist) then exit do end if
rsbest.movenext
loop
if rsbest.eof and rsbest.bof then
response.write "<center><font color=red><b>没有推荐图片！<b></font></center>"
end if
rsbest.close
set rsbest=nothing%>
</td>
<td class=showcenterright></td></tr></table>

<table border="0"  cellspacing="0" cellpadding="0">
<tr>
<td class=showfootleft></td>
<td class=showfootcenter></td>
<td class=showfootright></td>
</tr></table>
<%call br()%>
</TD><td width=5></td>
</TR></table>

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from Huaihi_pic where id="&request.querystring("id")
rs.open sql,conn,1,3
call pl("pic",rs("id"))
rs.close
set rs=nothing
call br%>
</td></tr></table><td class=right></td></tr></table>
<%rs.close
set rs=nothing
call foot()
end if%>