⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 show.asp

📁 超炫电台程序开发了两个版本了
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/9pt.css" rel="stylesheet" type="text/css">
<title>UP!RADIO主持人互动</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #EFEFEF;
}
.STYLE1 {
	color: #FF0000;
	font-weight: bold;
}
.STYLE3 {font-size: 13px; color: #000000;}
-->
</style></head>
<script language="JavaScript" type="text/JavaScript">
function MM_openBrWindow(theURL,winName,features) {
  window.open(theURL,winName,features);
}
</script>
<body>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from saytoyou order by id desc"
rs.open sql,conn,1,1
%>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#efefef" class="body">
  <tr> 
    <td width="14" height="25"> 
      <div align="center" class="STYLE1"><a href="#" class="STYLE3" onClick="MM_openBrWindow('say.asp','say','toolbar=no,status=no,menubar=no,scrollbars=no,width=420,height=270')">和主持人互动</a></div></td>
    <td width="495"><marquee width="430" height="150" direction=up id=m onmouseout=m.start() onMouseOver=m.stop() scrollamount=1 scrolldelay="200">
      <%if rs.bof and rs.eof then%>
      暂无网友提交信息... 
      <%else
	  dim i
	  i=1
	  do while not rs.eof%>
      <%=i%>..<%if rs("yourqq")<>"" then%><a href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("yourqq")%>&Site=UP!RADIO全球网络电台&Menu=no target=_blank><%end if%><font color="#ff0000"><%=rs("yourname")%></font><%if rs("yourqq")<>"" then%></a><%end if%> 对主持人 <%if rs("hisqq")<>"" then%><a href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("hisqq")%>&Site=UP!RADIO全球网络电台&Menu=no target=_blank><%end if%><font color="#ff0000"><%=rs("hisname")%></font><%if rs("hisqq")<>"" then%></a><%end if%> 
      说:<font color="#0000CC"><%=rs("getto")%></font>&nbsp;<font color="#cccccc"><%=rs("time")%></font><br>
      <%rs.movenext
	  i=i+1
	  loop
	  end if
	  rs.close
	  set rs=nothing
%>
    </marquee></td>
    <td width="22" align="left"><h2><strong>我</strong></h2>
      <h2><strong>要</strong></h2>
    <h2><strong>点</strong></h2>      <h2><strong>歌</strong></h2></td>
    <td width="213">&nbsp;</td>
  </tr>
</table>
<%
call conn.close()%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -