📄 ad.asp

📁 ASP源码 / 影视音乐

💻 ASP

字号:

<!--#include file="conn.asp"-->
<%
set rs=server.CreateObject ("ADODB.Recordset")
   rs.open "select * from adpic",conn,1,3
       dim k,t
  if rs("picshow")=0 then
  k=rs("pic")
  else
  
  randomize
  k=cint(rnd*5)
  if k=0 then 
    k=k+1
  end if
  
  end if
nr=replace(replace(replace(replace(replace(replace(rs("infor"),"&","&amp"),"<","&lt;"),">","&gt;"),chr(13),"<br>"),chr(34),"&quot"),chr(32),"&nbsp;")

%>
<HTML><HEAD><TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=robots content=all><LINK href="images/styles.css" 
type=text/css rel=stylesheet>
<style type="text/css">
<!-- 
td           { font-size: 12px; line-height: 17px }
body         { font-size: 12px; line-height: 17px }
p            { margin-top: 1px; margin-bottom: 1px }
a:link       { text-decoration: none; color: black }
a:visited    { text-decoration: none; color: black }
a:active     { text-decoration: none }
a:hover      { text-decoration: underline; color: red }
-->
</style>

<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
      
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
        <TR>
          <TD>
            <DIV align=center><A href="http://www.rmbchina.com/movie/vvsms.htm"><IMG 
            height=200  src="pic/aadiy0<%=k%>.jpg" width=760 
            border=0></A> </DIV></TD></TR></TBODY></TABLE></TD></TR>
  </TBODY></TABLE>
</BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -