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

📄 tjjm.asp

📁 超炫电台程序开发了两个版本了
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=yd_title%></title>
<style type="text/css">
td {  font-family: "Arial", "Helvetica", "sans-serif"; font-size: 12px; font-style: normal; line-height: 21px; font-weight: normal; font-variant: normal}

a:visited {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-style: normal;
	line-height: 21px;
	color: #000000;
	text-decoration: none;
}
a:hover {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-style: normal;
	line-height: 21px;
	color: #CC0033;
	text-decoration: underline;
}
a:active {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-style: normal;
	line-height: 21px;
	color: #000000;
	text-decoration: none;
}
a:link {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 12px;
	font-style: normal;
	line-height: 21px;
	color: #000000;
	text-decoration: none;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
input {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	font-style: normal;
	line-height: normal;
	color: #006600;
	border: #000000 1px solid;
}
body,td,th {
	color: #666666;
}
.style1 {color: #99CC00}
</style>
<script language= "javascript">
function openpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,top=100,left=200,width=300,height=150");
newwin.focus();
return false;
}
</script>
</head>

<body>
<IMG 
id=log_img height=0 width=0 uname="??????" uid="obocha">
<table width="46%"  border="0" align="left" cellpadding="0" cellspacing="0">
                      <%set rs1=server.CreateObject("adodb.recordset")
		      sql1="select * from yd_music where yan='ok'  order by id desc "
		rs1.open sql1,conn,1,1
		if rs1.bof and rs1.eof then
		response.Write("暂时没有歌曲")
		else
		k=1
		do until rs1.eof%>
                      <tr>
                        <td width="31%" class="style1"><span class="style1"><%=k%>
                          <script language=javascript src="images/log.js"></script>
                        </span></td>
                        <td width="69%" class="style1"><a href="play.asp?id=<%=rs1("id")%>" class="style1" onClick="return openpage(this.href);">
                          <% if len(rs1("m_title"))>15 then %>
                          <%=Left(rs1("m_title"),15)%>...
                          <%else%>
                          <%=rs1("m_title")%>
                          <% end if%>
                        </a>
                          <%if request.form("sub")="sub" then
 username=trim(request.form("username"))
 username=replace(username,"'","")
 password=trim(request.form("password"))
 password=replace(password,"'","")
 if username=yd_admin and password=yd_password then
 session("yd631")="jiangyuedong"
 response.Redirect("index.asp")
 else
 response.Redirect("index.asp")
 end if
 end if%></td>
                      </tr>
                      <%k=k+1
			  rs1.movenext
			loop 
			end if
			 rs1.close
			set rs1=nothing%>
</table>
<span class="style1"></span>
</body>
</html>

⌨️ 快捷键说明

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