looklist.asp

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

ASP
75 行
字号 
<%@ Language=VBScript %>
<%
'*********************************************************************************
'模块名称：娱乐新闻娱乐图片库、美眉地带图片列表
'开发人：潘树文
'时间：2001年2月1日
'*********************************************************************************
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="007000"%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<table border="0" width="770" height="30" cellspacing="0" cellpadding="0" bgcolor="#F4A0BD" 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  left(photoid,6)='"&killstr(left(request("photoid"),6))&"' order by picmenuid,photoid"
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  width="18%" bgcolor="#F7A4C0" height="180"><a href="../tiyu/lookphoto.asp?picmenuid=<%=rs("picmenuid")%>&photoid=<%=rs("photoid")%>" target="_blank">
           <img src="<%=smallpicUrl%><%=rs("smallpic")%>" width="100" height="130" border="0"></a>
           <br> <a href="../tiyu/lookphoto.asp?picmenuid=<%=rs("picmenuid")%>&photoid=<%=rs("photoid")%>" class="l8" target="_blank"><%=rs("phototitle")%></a></td>
           <%
          if  right(trim(cstr(i)),1)="0" or  right(trim(cstr(i)),1)="5" then Response.Write "</tr><tr align=center><td>&nbsp;</td></tr><tr  align=center>"
           
          rs.MoveNext 
         If rs.EOF Then Exit For 
        next
else
    Response.Write "暂时无图片！请稍候再来"
 
end if%>
  </tr>
   <tr>
        <td width="100%" height="5" colspan="2" ><%call listPage(rs)%></td>
   </tr>
      <% rs.Close%>
</div>
<div align="center"><center>
 <!--#include file="../include/bottom.txt"-->
</center></div>
</BODY>
</HTML>

looklist.asp - 源码说明

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

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

⌨️ 快捷键说明

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