lookstarlist.asp

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

ASP
74 行
字号 
<%@ 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 right(photoid,4)='0000' and picmenuid='"&killstr(request("picmenuid"))&"' 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 = 50
	    rs.AbsolutePage = getPageNo(rs)
        for i=1 to rs.PageSize
         If rs.EOF Then Exit For '显示组内图片，图片名
        
           %> <td   width="10%"  bgcolor="#E2007F" height="20">
           <a href="lookstar.asp?picmenuid=<%=rs("picmenuid")%>&photoid=<%=rs("photoid")%>" class="l8"><%=rs("phototitle")%></a></td>
          <!--<td bgcolor="#E2007F" height="20"> --><%
          if int(i/10)=i/10  then Response.Write "</tr><tr align=center><td colspan=10>&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 align=center>"
 
end if%>
 </tr>
   <tr>
        <td width="100%" height="19" colspan="10" ><%call listPage(rs)%></td>
   </tr>
      <% rs.Close%>
</div>
<div align="center"><center>
 <!--#include file="../include/bottom.txt"-->
</center></div>
</BODY>
</HTML>

lookstarlist.asp - 源码说明

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

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

⌨️ 快捷键说明

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