pic.asp

来自「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」· ASP 代码 · 共 48 行

ASP
48 行
字号 
<!--#include file="conn.asp" -->
<%
dim idpic,rspic,w,h
idpic=trim(request.QueryString("id"))
w=trim(request.QueryString("w"))
h=trim(request.QueryString("h"))
if len(idpic)=0 or IsNumeric(idpic)=flase then 
  response.end 
end if
if len(w)=0 or IsNumeric(w)=flase then 
  response.end 
end if
if len(h)=0 or IsNumeric(h)=flase then 
  response.end 
end if

set rspic=server.CreateObject("adodb.recordset")
rspic.open "select * from 资讯 where 编号="& idpic,conn,1,1
if rspic.eof or rspic.bof then
  response.end
end if
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language='javascript' src='inc/pop.js'></SCRIPT>
<meta name=keywords content="城市中国,citycn,<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title>图片 - <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<script language="javascript">
function openwin(url, width, height){
var Win = window.open(url,"openwin","width=700,height=450,top=40,left=40,scrollbars=1,menubar=0,directories=0,resizable=0,status=0" );
}
</script>
</HEAD>

<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 marginheight=0 marginwidth=0>
<%
response.write ("<marquee width='100%' scrollamount='3' scrolldelay='50' onmouseover='this.stop()' onmouseout='this.start()'>")
if rspic("图片1")<>"" and rspic("图片1")<>"http://" then response.write "<a href=javascript:openwin('view_image.asp?id="&rspic("编号")&"&name="&rspic("名称")&"&picurl="&rspic("图片1")&"')><img src='"&rspic("图片1")&"' title='点击看大图' border=0 width="&w&" height="&h&"></a>"
if rspic("图片2")<>"" and rspic("图片2")<>"http://" then response.write "<a href=javascript:openwin('view_image.asp?id="&rspic("编号")&"&name="&rspic("名称")&"&picurl="&rspic("图片2")&"')><img src='"&rspic("图片2")&"' title='点击看大图' border=0 width="&w&" height="&h&"></a>"
if rspic("图片3")<>"" and rspic("图片3")<>"http://" then response.write "<a href=javascript:openwin('view_image.asp?id="&rspic("编号")&"&name="&rspic("名称")&"&picurl="&rspic("图片3")&"')><img src='"&rspic("图片3")&"' title='点击看大图' border=0 width="&w&" height="&h&"></a>"
if rspic("图片4")<>"" and rspic("图片4")<>"http://" then response.write "<a href=javascript:openwin('view_image.asp?id="&rspic("编号")&"&name="&rspic("名称")&"&picurl="&rspic("图片4")&"')><img src='"&rspic("图片4")&"' title='点击看大图' border=0 width="&w&" height="&h&"></a>"
response.write ("</marquee>")
%>
</BODY></HTML>

pic.asp - 源码说明

本页面展示了「CityCN V2.1 是自主开发的基于ASP+Access的新型资讯信息系统。」中的 pic.asp 源码文件，采用 ASP 编程语言编写，共 48 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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