📄 showpic.asp

📁 图文管理。1,新闻动态 2,网址导航(含有60个著名设计网址) 3,图片展示 4,会员注册管理等
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/config.asp"-->
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/inc.asp"-->
<!--#include file="sub/getType.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=SiteName%>--设计展示</title>
<link href="img/dex.css" rel="stylesheet" type="text/css" />
<link href="img/dex2.css" rel="stylesheet" type="text/css" />

</head>
<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];}
}
function bbimg(o)
{var zoom=parseInt(o.style.zoom, 10)||100;
zoom+=event.wheelDelta/12;
if (zoom>0) o.style.zoom=zoom+'%';
return false;}
function resizepic(thispic)
{if(thispic.width>576) thispic.width=576;} 
 //-->
</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>
<body>
<!--TOP-->
<!--#include file="top.asp"-->
<!--TOP END-->
<div  id="box">
    <div id="boxleft">
    <div id="pclass">
	<ul><%
	Set RS = Server.CreateObject("ADODB.Recordset")
	SQL = "Select * from picclass"
	RS.Open SQL, cn, 1,1,1
	Do while not RS.EOF%>
	    <li><a href="pic.asp?class=<%=RS("class")%>"><%=RS("classname")%></a></li>
<% RS.movenext
	Loop
	set RS = nothing%>
	</ul>	
	</div>
<div id="wsearch">
	<% call websearch() %>
	</div>
	<!--全站搜索结束-->
	<div id="newstop">
		<ul>
					<%Set rs = Server.CreateObject("ADODB.Recordset")
		SQL = "Select top 10 * from pic order by click desc"
		rs.Open SQL, cn, 1,1
		   do while not rs.eof
			Response.Write "<li><a href='showpic.asp?id="&rs("id")&"'>"&left(rs("title"),13)&"...</a></li>"
			rs.movenext
            loop
          rs.close
           set rs=nothing%>
	    </ul>
	</div>
<!--点击排行结束-->
</div>
<div id="picshow">
<%
	if Request.QueryString("id")<>"" then
		Set rs = Server.CreateObject("ADODB.Recordset")
		SQL = "Select * from pic where id=" & Request.QueryString("id")
		rs.Open SQL, cn, 1,2
    %>
<h1><%=rs("title")%></h1>上传时间:<%=rs("date")%>
<hr />
     <table border="0" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;line-height:150%;"><tr><td>
	<a href="<%=rs("pic")%>" target="_blank"><img src="<%=rs("pic")%>"   border="0" onmousewheel="return bbimg(this)" onload=javascript:resizepic(this)  id=image1 style="FILTER: revealTrans(Duration=4.0, Transition=23); alt='<%=rs("user")%>---<%=rs("title")%>'/></a>
	<%rs("click")=rs("click")+1
	  rs.update
	
	rs.close
set rs=nothing

else 
response.Write "<script language=javascript>{window.alert('此页面非法,请返回作品展区');window.location.href='pic.asp';}</script>"
end if%></td></tr></table>
</div>	   
</div>
<!--#include file="bottom.asp"-->
 </body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -