link.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 35 行

<%
dim tbsql
dim tbrs
OpenDataConn
'Set tbrs = server.CreateObject("adodb.recordset")
tbsql = "select * from Banner where bz=11 order by linkid desc"
set tbrs = conn.execute(tbsql)
'tbrs.Open tbsql,conn,1,1 
%>
<table width="760" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<%do while not tbrs.eof%> 
<%if lcase(tbrs("type1")) = "gif" then%>
<a target="_blank" href="<%=tbrs("web")%>"><img border=0 src="<%=fcml%>fyfile/<%=tbrs("picurl")%>" alt="<%=tbrs("deseriptor")%>" width="88" height="31" style="border: 0px solid #000000"></a>
<%else%>
<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="88" height="31">
              <param name="movie" value="<%=fcml%>fyfile/<%=tbrs("picurl")%>">
              <param name="quality" value="high">
              <param name="SCALE" value="noborder">
              <embed src="<%=fcml%>fyfile/<%=tbrs("picurl")%>" width="578" height="108" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" scale="noborder"></embed></object>&nbsp;
<%end if%>
<%
dim b
b=b+1 
if b>=30 then exit do 
tbrs.movenext 
loop 
tbrs.close 
set tbrs=nothing
%>
	</td>
  </tr>
</table>