firstpic.asp

来自「一套设计完善、高效的web商城解决方案」· ASP 代码 · 共 60 行

<%if request("BigId")<>"" then
	BigId=request("BigId")
else
	BigId=0
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from firstpic where BigId="&BigId&" and ifshow=1 order by id desc"
rs.open sql,conn,0,1
if not rs.eof then
	IfFlash=rs("IfFlash")
	Flash=rs("Flash")
	pic1=rs("pic1")
    ifbr1=rs("ifbr1")
	ifbr1=trim(ifbr1)
    pic2=rs("pic2")
	ifbr2=rs("ifbr2")
	ifbr2=trim(ifbr2)
	pic3=rs("pic3")
	ifbr3=rs("ifbr3")
	ifbr3=trim(ifbr3)
    pic4=rs("pic4")
	link1=rs("link1")
	link2=rs("link2")
	link3=rs("link3")
	link4=rs("link4")
	text1=rs("text1")
	text2=rs("text2")
	text3=rs("text3")
	tlink1=rs("tlink1")
	tlink2=rs("tlink2")
	tlink3=rs("tlink3")
    piccount=rs("piccount")
	textcount=rs("textcount")%>
<table width="339" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="center">
	<td>
	<%if IfFlash=1 then%>
	<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="340" height="186">
	<param name="movie" value="<%=Flash%>">
	<param name="quality" value="high">
	<embed src="<%=Flash%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="340" height="186"></embed>
	</object>
	<%else%>
    <% if piccount=1 then %><a onfocus=blur() href=<%=link1%>><img src=<%=pic1%> border=0></a><% end if %>
	<% if piccount=2 then %><a onfocus=blur() href=<%=link1%>><img src=<%=pic1%> border=0></a><%=ifbr1%><a onfocus=blur() href=<%=link2%>><img src=<%=pic2%> border=0></a><% end if %>
    <% if piccount=3 then %><a onfocus=blur() href=<%=link1%>><img src=<%=pic1%> border=0></a><%=ifbr1%><a onfocus=blur() href=<%=link2%>><img src=<%=pic2%> border=0></a><%=ifbr2%><a onfocus=blur() href=<%=link3%>><img src=<%=pic3%> border=0></a><% end if %>
    <% if piccount=4 then %><a onfocus=blur() href=<%=link1%>><img src=<%=pic1%> border=0></a><%=ifbr1%><a onfocus=blur() href=<%=link2%>><img src=<%=pic2%> border=0></a><%=ifbr2%><a onfocus=blur() href=<%=link3%>><img src=<%=pic3%> border=0></a><%=ifbr3%><a onfocus=blur() href=<%=link4%>><img src=<%=pic4%> border=0></a><%end if%>
	<%end if%>
	</td>
  </tr>
  <tr> 
    <td align="center" width="339">
	<% if textcount=1 then %><a onfocus=blur() href=<%=tlink1%>><b><%=text1%></b></a><%end if %>
	<% if textcount=2 then  %><b><a onfocus=blur() href=<%=tlink1%>><%=text1%></a>&nbsp;&nbsp;</b><a onfocus=blur() href=<%=tlink2%>><b><%=text2%></b></a><%end if %>
	<% if textcount=3 then %> <b><a onfocus=blur() href=<%=tlink1%>><%=text1%></a>&nbsp;&nbsp;<a onfocus=blur() href=<%=tlink2%>><%=text2%></a>&nbsp;&nbsp;</b><a onfocus=blur() href=<%=tlink3%>><b><%=text3%></b></a><%end if %></td>
  </tr>
</table>
<%end if
rs.close
set rs=nothing%>