📄 sxgg.asp

📁 北京商务网

💻 ASP

字号:

<%@ codepage ="936" %><!--#include file="../conn/dbconn1.asp"--><!--#include file="config.asp"--><%const TbMax=1tbsql="select * from banner where bz=9 order by LinkID"Set tbrs= Server.CreateObject("ADODB.Recordset") tbrs.open tbsql,conn,1,1 if tbrs.eof thenelsetotal=tbrs.recordcountRandomize D1 = Fix(Rnd * total)for i=1 to D1tbrs.movenextnext 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="160" height="421"></A><%else%><img alt="<%=tbrs("deseriptor")%>" src="<%=linkurl+tbrs("picurl")%>" border=0 align=middle width="160" height="421"><%end if%><%else%><embed src="<%=linkurl+tbrs("picurl")%>" type="application/x-shockwave-flash" width="160" height="421"><%end if%><%end if%><BODY text=#000000 leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -