📄 ad.asp

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

💻 ASP

字号:

<%@ codepage ="936" %>
<HTML>
<HEAD>
<!--#include file="../inc/config.asp"-->
<!--#include file="../conn/dbconn1.asp" -->
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Exit>
</head>
<BODY>
<%
set rs=server.createobject("ADODB.recordset") 
rs.Open "SELECT * FROM [Ad]",conn,1,1 
if rs.eof then
else
total=rs.recordcount
Randomize 
D1 = Fix(Rnd * total)
for i=1 to D1
rs.movenext
next 
if rs("type")="GIF" then
%><%if rs("url")<>"" then%><A HREF="<%=rs("url")%>" target=_blank><img alt="<%=rs("alt")%>" src="<%=rs("src")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border=0 align=middle></A><%else%><img alt="<%=rs("alt")%>" src="<%=rs("src")%>" width="<%=rs("width")%>" height="<%=rs("height")%>" border=0 align=middle><%end if%><%else%><embed src="<%=rs("src")%>" type="application/x-shockwave-flash" width="<%=rs("width")%>" height="<%=rs("height")%>"><%end if%><%end if%>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -