📄 top_1.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<!--#include file="check.asp"-->
<!--#include file="data.asp"-->
<meta HTTP-EQUIV=REFRESH CONTENT=120;URL=top_1.asp>
<META content=revealTrans(Transition=23,Duration=1.0) http-equiv=Page-Exit><BODY leftmargin=0 topmargin=0>
<%
set rs=server.createobject("ADODB.recordset")
rs.Open "SELECT * FROM adrot",conn,1,1
if rs.eof then %>
<A HREF="http://shocat.126.com" target=_blank><img alt="红孩儿论坛欢迎你" src="images/redboy.gif" width="600" height="75" border=0 align=middle></a>
<% 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 + -