ads7.asp

浪人文章系统

<%
dim rsAds7
set rsAds7=Server.CreateObject("Adodb.RecordSet")
GuSQL="select top 10 * from "&GuTablePrefix&"_Ads where Ad_Type='7' order by Ad_Order asc"
rsAds7.open GuSQL,GuConn,1,1

if rsAds7.eof and rsAds7.bof then
	Response.write ""
else
	do while not rsAds7.eof
	if right(rsAds7("Ad_Picture"),3)="swf" then
		Response.write "<object classid=""clsid:D27CDB6E-AE6D-11CF-96B8-444553540000"" id=""obj1"" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"" border=""0"" width="""&rsAds7("Ad_PictureWidth")&""" height="""&rsAds7("Ad_PictureHeight")&""">"
		Response.write "<param name=""movie"" value="""&rsAds7("Ad_Picture")&""">"
		Response.write "<param name=""quality"" value=""High"">"
		Response.write "<embed src="""&rsAds7("Ad_Picture")&""" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" name=""obj1"" width="""&rsAds7("Ad_PictureWidth")&""" height="""&rsAds7("Ad_PictureHeight")&"""></object>"
		Response.write "<br>"
	else
		Response.write "<a href="""&rsAds7("Ad_Href")&""" target=""_blank""><img src="""&rsAds7("Ad_Picture")&""" border=""0"" width="""&rsAds7("Ad_PictureWidth")&""" height="""&rsAds7("Ad_PictureHeight")&""" title="""&rsAds7("Ad_Title")&"""></a>"
		Response.write "<br>"
	end if
	rsAds7.movenext
	loop
	Response.write "</td></tr><tr><td width=""198"" height=""6"">"
end if

rsAds7.close
set rsAds7=Nothing
%>