lookphoto.asp

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

ASP
50 行
字号 
<%
'*********************************************************************************
'模块名称：体育新闻查看大图片
'开发人：潘树文
'时间：2001年1月20日
'*********************************************************************************
dim rs          '数据访问对象
dim sql         'select 语句
dim i           '循环控制变量
%>
<HTML>
<!--#include file="../include/odbc.asp"-->
<!--#include file="../include/killstr.asp"-->
<!--#include file="../include/showbody.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=""%>
<!--#include file="../include/secondhead.asp"-->
</center></div><div align="center"><center>
<table border="0" width="500" cellspacing="2" cellpadding="6">
<%set rs=server.CreateObject ("adodb.recordset")
sql="select * from news2_PHOTO where photoid='"&killstr(request("photoid"))&"' and picmenuid='"&killstr(request("picmenuid"))&"'"
rs.Open sql,conn,3,1
if not rs.EOF then
  if not isnull(rs("bigpic")) then
%>  
  <tr>
    <td width="100%" align="center"><span style="font-size:14px"><b><%=rs("phototitle")%></b></span><br></td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#EBEBEB" align="center"><img src="<%=bigpicUrl%><%=rs("bigpic")%>" ></td>
  <%else
    Response.Write "暂时无大图片！请稍候再来"
  end if
end if%>

  </tr>
</table>

 <hr width="90%" size="1" color="#FF0000">
 <!--#include file="../include/bottom.txt"-->
</BODY>
</HTML>

lookphoto.asp - 源码说明

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

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

⌨️ 快捷键说明

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