link.asp

来自「北京商务网」· ASP 代码 · 共 22 行

<%@ codepage ="936" %>
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="config.asp"-->
<%
const TbMax=7
dim tbsql
dim tbrs
tbsql="select * from banner where bz=3 order by linkid desc"
Set tbrs= Server.CreateObject("ADODB.Recordset") 
tbrs.open tbsql,conn,1,1 
%>
<%do while not tbrs.eof%> 
document.write('<a target="_blank" href="<%=tbrs("web")%>"><img border=0 src="yqlj/picture/<%=tbrs("picurl")%>" alt="<%=tbrs("deseriptor")%>" width="88" height="31" style="border: 0px solid #000000"></a> &nbsp;')
<% b=b+1 
if b>=TbMax then exit do 
tbrs.movenext 
loop 
tbrs.close 
set tbrs=nothing
conn.close
set conn=nothing 
%>