lookstar.asp

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

ASP
102 行
字号 
<%@ 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)='"&left(killstr(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 = 25
	    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")%>">
           <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"><%=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 "</tr><tr align=center ><td >&nbsp;暂时无图片！请稍候再来</td></tr><tr>"
 
end if%>
  </tr>
   <tr>
        <td width="100%" height="19" colspan="2"><%call listPage(rs)%></td>
   </tr>
      <% rs.Close%>
   </table>
   <table border="0"  width="760"  cellspacing="8" cellpadding="0" bgcolor="#F9BFD3">
      <tr align=center><td>&nbsp;</td></tr>
      <tr align=center>
      <%' 显示推荐的明星人名
      sql="select * from news2_starcommend where picmenuid='005000' and visible='1' and flag='0' order by infoindex"
      rs.Open sql,conn,3,1
       if not rs.eof then
         for i=1 to rs.recordcount
      %>
      
        <td width="10%" align="center"  bgcolor="#E2007F" height="20"><font color="#FFFFFF">
        <a href="lookstar.asp?picmenuid=<%=rs("picmenuid")%>&photoid=<%=rs("photoid")%>" class="l8"><%=rs("phototitle")%></a></font>
       </td>
       <%if int(i/10)=i/10 then%>
      </tr><tr align=center><td>&nbsp;</td></tr><tr>
      <%
        end if
      rs.movenext
        next
      
      end if
      rs.close
      
      %>
          </tr>  
   </table>      
</div>
<div align="center"><center>
 <!--#include file="../include/bottom.txt"-->
</center></div>
</BODY>
</HTML>

lookstar.asp - 源码说明

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

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

⌨️ 快捷键说明

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