📄 hygg.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.

💻 ASP

字号:

<%@ codepage ="936" %>
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="config.asp"-->
<title><%=WebName%>-广告</title>
<%
const TbMax=1
tbsql="select * from banner where bz=6 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="136" height="84"></A><%else%><img alt="<%=tbrs("deseriptor")%>" src="<%=linkurl+tbrs("picurl")%>" border=0 align=middle width="136" height="84"><%end if%><%else%><embed src="<%=linkurl+tbrs("picurl")%>" type="application/x-shockwave-flash" width="136" height="84" align="center"><%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 + -