bl.asp

北京商务网

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="config.asp"-->
<title>21sji商务网</title>
<%
const TbMax=1
tbsql="select * from banner where bz=7 order by LinkID"
Set tbrs= Server.CreateObject("ADODB.Recordset") 
tbrs.open tbsql,conn,1,1 
if tbrs.eof then
else
total=tbrs.recordcount
Randomize 
D1 = Fix(Rnd * total)
for i=1 to D1
tbrs.movenext
next 
if tbrs("type1")="GIF" then
%><%if tbrs("web")<>"" then%><A HREF="<%=tbrs("web")%>" target=_blank><img alt="<%=tbrs("deseriptor")%>" src="<%=linkurl+tbrs("picurl")%>" border=0 align=middle width="538" height="92"></A><%else%><img alt="<%=tbrs("deseriptor")%>" src="<%=linkurl+tbrs("picurl")%>" border=0 align=middle width="538" height="92"><%end if%><%else%><embed src="<%=linkurl+tbrs("picurl")%>" type="application/x-shockwave-flash" width="538" height="92"><%end if%><%end if%>