morephoto.asp

来自「asp的新闻网站」· ASP 代码 · 共 76 行

ASP
76 行
字号 
<%
'*********************************************************************************
'模块名称：娱乐图片库更多图片
'开发人：潘树文
'时间：2001年1月20日
'*********************************************************************************
dim rs          '数据访问对象
dim sql         'select 语句
dim i           '循环控制变量
%>

<HTML>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/showbody.asp"-->
<!--#include file="../include/killstr.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../style.css">
<title>千夜网-&gt;新闻-&gt;体育新闻</title>
</head>

<body topmargin="3" leftmargin="3">
<div align="center"><center>
<%flag="005000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<table border="0" width="770" height="30" cellspacing="0" cellpadding="0"  background="../images/bg-016.gif" >
  <tr>
    <td width="50%"><img src="../images/pic-208.gif"><img src="../images/pic-207.gif"></td>
     <td width="50%"><p align="right"><img src="../images/pic-209.gif"></td>

  </tr>
</table>
<table border="0" width="760"  cellspacing="8" cellpadding="0" bgcolor="#F9BFD3">
      <tr align=center>
       
    
<%set rs=server.CreateObject ("adodb.recordset")
if request("mysql")="" then '显示图片组信息 按图片组名排序
sql="select * from news2_PHOTO where right(photoid,4)='0000' and left(picmenuid,3)='"&left(killstr(request("picmenuid")),3)&"' order by phototitle"
else
sql=request("mysql")
end if
rs.Open sql,conn,3,1
 %><!--#include file="../include/rollpage.asp"--><%
 if not rs.EOF then
         rs.PageSize = 20
	    rs.AbsolutePage = getPageNo(rs)
        for i=1 to rs.PageSize
         If rs.EOF Then Exit For '显示组名称图片
        
           %> <td bgcolor="#F7A4C0" height="180" width="18%"><a href="looklist.asp?picmenuid=<%=request("picmenuid")%>&photoid=<%=rs("photoid")%>" target=_blank>
           <img src="<%=smallpicUrl%><%=rs("smallpic")%>" width="100" height="130" border="0" ></a>
           <br> <a href="looklist.asp?picmenuid=<%=request("picmenuid")%>&photoid=<%=rs("photoid")%>" target=_blank class="l8"><%=rs("phototitle")%></a></td>
           <%
          if  right(trim(cstr(i)),1)="0" or  right(trim(cstr(i)),1)="5" then Response.Write "</tr><tr><td>&nbsp;</td></tr><tr align=center>"
           
          rs.MoveNext 
         If rs.EOF Then Exit For 
        next
else
    Response.Write "</tr><tr align=center><td  bgcolor=#F7A4C0 >&nbsp;暂时无大图片！请稍候再来</td></tr><tr align=center>"
 
end if%>
  </tr>
   <tr>
        <td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
   </tr>
      <% rs.Close%>
</div>
<div align="center"><center>
 <!--#include file="../include/bottom.txt"-->
</center></div>
</BODY>
</HTML>

morephoto.asp - 源码说明

本页面展示了「asp的新闻网站」中的 morephoto.asp 源码文件，采用 ASP 编程语言编写，共 76 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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