flickad1.asp

来自「飞天论坛FTBBS PHP版 v4.1.ASP源代码」· ASP 代码 · 共 34 行

ASP
34 行
字号 
<html><!--#include file="../odbc/conn.asp" -->
<head>
<script language="JavaScript">
<!--
self.moveTo(0,0)
//-->
</script>
<title>PopAD</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor=#ffffff marginheight=0 topmargin=0 leftmargin=0>
<%
	rs.open "select top 1 * from ad where District='a' and pos<4 and datafirst<='"&date&"' and datalast>='"&date&"' and app<>'del' order by pos",dsnstr,3,1
	if not rs.eof and not rs.bof then
		if trim(rs("type")&" ")="flash" then
			response.write "<object classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"" width="""&trim(rs("width")&" ")&""" height="""&trim(rs("height")&" ")&""">"& vbCrLf
			response.write "        <param name=""movie"" value="""&"/ad/flash/"&htmlcode(trim(rs("show")&" "))&""">"& vbCrLf
			response.write "        <param name=""quality"" value=""high"">"& vbCrLf
			response.write "        <embed src="""&"/ad/flash/"&htmlcode(trim(rs("show")&" "))&""" quality=""high"" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash""  width="""&trim(rs("width")&" ")&""" height="""&trim(rs("height")&" ")&"""></embed></object>"& vbCrLf
		elseif trim(rs("type")&" ")="pic" then
			response.write "<a href="""&"/kingstone/configseting/ad/adcount.asp?district=a&pos=1-3&url="&htmlcode(trim(rs("url")&" "))&""" target=_blank><img src='"&"/ad/pic/"&htmlcode(trim(rs("show")&" "))&"' width="""&trim(rs("width")&" ")&""" height="""&trim(rs("height")&" ")&""" border=""0""></a>"
		else
			response.write "错误，无法链接！"
		end if
	else
			response.write "错误，无法链接！"
	end if
	rs.close
	set rs=nothing
	dsnstr.closeset dsnstr=nothing
	%>
</body>
</html>

flickad1.asp - 源码说明

本页面展示了「飞天论坛FTBBS PHP版 v4.1.ASP源代码」中的 flickad1.asp 源码文件，采用 ASP 编程语言编写，共 34 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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