index.asp
来自「超炫电台程序开发了两个版本了」· ASP 代码 · 共 642 行 · 第 1/2 页
ASP
642 行
<!--#include file="Config.asp" -->
<%
const MaxPerPage=12
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim sql
dim rs
dim updown
dim order_name
order_name=Request("Order")
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
if request("updown")<>"" then
updown="desc"
else
updown=""
end if
select case order_name
case "SoftName"
order_name="SoftName"
case "SoftTime"
order_name="SoftTime"
case "AllHits"
order_name="AllHits"
case "LicenceType"
order_name="LicenceType"
case else
order_name="SoftTime"
updown="desc"
end select
set rs=server.createobject("adodb.recordset")
dim CateID,SubCateID
dim CateName,SubCateName,SoftDownName
if request("CateID")<>"" and request("SubCateID")<>"" then
CateID=" CateID="&cstr(request("CateID"))&" and "
SubCateID=" SubCateID="&cstr(request("SubCateID"))&" "
sql="select * from "&CategoryName&"_SubCate where SubCateID="&cstr(request("SubCateID"))
rs.open sql,conn,1,1
SoftDownName=trim(rs("SubCateName"))
SubCateName=trim(rs("SubCateName"))
rs.close
end if
if request("CateID")<>"" and request("SubCateID")="" then
CateID="CateID="&cstr(request("CateID"))&" "
sql="select CateName from "&CategoryName&"_Cate where CateID="&cstr(request("CateID"))
rs.open sql,conn,1,1
SoftDownName=trim(rs("CateName"))
CateName=trim(rs("CateName"))
rs.close
end if
if request("CateID")="" and request("SubCateID")="" then
CateID=""
SubCateID=""
SoftDownName="原创魅力"
end if
%>
<HTML><HEAD><TITLE>UP!RADIO 全球网络电台</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META
content=平安杂志---网络电台
name=keywords>
<META
content=平安杂志---网络电台
name=description><LINK
href="../img/club.css"
type=text/css rel=stylesheet>
<SCRIPT language=javascript>
<!--
function setDisabled(checked, control)
{
if (checked)
control.disabled = false;
else
control.disabled = true;
}
function overImage(control,imageID)
{
control.src = "images/menu" + imageID + "b.gif";
}
function outImage(control,imageID)
{
control.src = "images/menu" + imageID + ".gif";
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</SCRIPT>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</HEAD>
<BODY bgColor=#ffffff
background="../img/bg.gif" text=#000000 leftMargin=0
topMargin=0 marginwidth="0" marginheight="0" onLoad="MM_preloadImages('../img/menu2.gif','../img/menu4.png','../img/menu6.png','../img/menu77.png','../img/menu5.png')">
<TABLE height=37 cellSpacing=0 cellPadding=0 width="100%"
background="../img/nav_bg.gif"
border=0>
<TBODY>
<TR>
<TD align=middle>
<TABLE cellSpacing=0 cellPadding=0 width=768 align=center border=0>
<TBODY>
<TR>
<TD width=160 rowSpan=2><IMG
height=24
src="../img/qq-zone.gif"
border=0></TD>
<TD height=8 colspan="3"></TD>
</TR>
<TR>
<TD width="35" align=left vAlign=center>公告:</TD>
<TD width="317" align=left vAlign=middle><iframe name="I3" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0" width="200" height="16" align="left" src="../asp/flhcard.asp"> 浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</iframe></TD>
<TD width="256" align=left vAlign=middle><a class=TF
href="../index1.asp">首页</a><font
style="FONT-SIZE: 6px; COLOR: #acacac"> ● </font><a
style="BEHAVIOR: url(#default#homepage)"
onClick="javascript:this.style.behavior='url(#default#homepage)';this.setHomePage('UP!RADIO 全球网络电台')"
href="#">设为首页</a><font
style="FONT-SIZE: 6px; COLOR: #acacac"> ● </font><a
onClick="javascript:window.external.addFavorite('UP!RADIO 全球网络电台')"
href="#">加入收藏</a><font
style="FONT-SIZE: 6px; COLOR: #acacac"> ● </font> <a
href="#">广告业务</a><font
style="FONT-SIZE: 6px; COLOR: #acacac"> </font></TD>
</TR>
<TR>
<TD colSpan=4 height=2></TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
<TABLE id=table18 cellSpacing=0 cellPadding=0 width=100 border=0>
<TBODY>
<TR>
<TD><IMG height=10
src="../img/trans.gif"
width=10> </TD></TR></TBODY></TABLE>
<TABLE id=table1 cellSpacing=0 cellPadding=0 width=732 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=228
background="../img/left_bg.gif">
<TABLE id=table2 cellSpacing=0 cellPadding=0 width=228 border=0>
<TBODY>
<TR>
<TD><IMG height=63
src="../img/logo2.gif"
width=228 border=0></TD>
</TR></TBODY></TABLE>
<TABLE id=table3 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=24
src="../img/title_qq1.gif"
width=228></TD></TR>
<TR>
<TD height="128" align=center valign="top"><table cellspacing=0 cellpadding=0 width=179 align=center
border=0>
<tbody>
<tr>
<td background=../images/bbst1.gif
height=7></td>
</tr>
<tr>
<td background=../images/bbst4.gif
height=20><table cellspacing=0 cellpadding=0 width=170
align=center border=0>
<tbody>
<tr>
<td><table border=0>
<form action=bbs/user_login.aspx method=post>
<tbody>
<tr>
<td align=middle height=30><font
color=#336699>用户：</font>
<input tabindex=1 maxlength=20 size=10
name=username>
</td>
</tr>
<tr>
<td align=middle><font color=#336699>密码：</font>
<input
tabindex=2 type=password maxlength=20 size=10
name=password>
</td>
</tr>
<tr>
<td align=middle height=30><input class=bg_1 type=radio value=0 name=CookieDate checked> <font color=#336699>登陆一次</font>
<input class=bg_1 type=radio value=3 name=CookieDate>
<font color=#336699>永久登陆</font></td>
</tr>
<tr>
<td align=middle><a href="BBS/user_reg.aspx"
target=_blank>注册</a> <a
href="BBS/user_getback.aspx"
target=_blank>忘记密码</a>
<input tabindex=3 type=submit value="登 陆" name="submit">
</td>
</tr>
</tbody>
</form>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td background=../images/bbst3.gif
height=7></td>
</tr>
</tbody>
</table>
</TD>
</TR></TBODY></TABLE>
<TABLE id=table6 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD><IMG height=24
src="../img/title_qq2.gif"
width=228></TD></TR>
<TR>
<TD vAlign=bottom align=middle></TD></TR>
<TR>
<TD align=middle height=56><table width="100%" border="0" cellspacing="00" cellpadding="0">
<tr>
<td height="20"><b> </b> <b>
<%
if request("CateID")<>"" then
sql="select * from "&CategoryName&"_SubCate where CateID="&cstr(request("CateID"))
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有任何分类"
else
do while not rs.eof
if cstr(rs("SubCateID"))=cstr(request("SubCateID")) then
response.write " <img src=../images/3dian.gif width=4 height=6> <a href=""index.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" class=""ArticleList""><font color=""#FF0000""><b>"&rs("SubCateName")&"</b></font></a> ( <font color=""#FF0000"">"&rs("SubCateNum")&"</font>首 )"
else
response.write " <img src=../images/3dian.gif width=4 height=6> <a href=""index.asp?CateID="&rs("CateID")&"&SubCateID="&rs("SubCateID")&""" class=""ArticleList"">"&rs("SubCateName")&"</a>( <font color=""#FF0000"">"&rs("SubCateNum")&"</font>首 )"
end if
response.write "<br>"
rs.movenext
loop
end if
rs.close
else
sql="select * from "&CategoryName&"_Cate"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有任何分类"
else
do while not rs.eof
response.write " <img src=../images/3dian.gif width=4 height=6> <a href=""index.asp?CateID="&rs("CateID")&""" class=""ArticleList"">"&rs("CateName")&"</a>( <font color=""#FF0000"">"&rs("CateNum")&"</font>首 )"
response.write "<br>"
rs.movenext
loop
end if
rs.close
end if
%>
</b></td>
</tr>
<tr>
<td><table width="98%" border="0" cellspacing="00" cellpadding="0" align="center">
<tr>
<td bgcolor="#CCCCCC" height="1"></td>
</tr>
</table></td>
</tr>
<tr>
<td height=1></td>
</tr>
<tr>
<td height="18"><%
if request("CateID")<>"" and request("SubCateID")<>"" then
sql="select top 20 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" "&SubCateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")<>"" and request("SubCateID")="" then
sql="select top 20 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo where "&CateID&" order by WeekHits desc,SoftID desc"
end if
if request("CateID")="" and request("SubCateID")="" then
sql="select top 20 SoftID,SoftName,SoftVer,SoftTime from "&CategoryName&"_SoftInfo order by WeekHits desc,SoftID desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>近期没有新歌曲</p>"
else
do while not rs.eof
response.write "<tr><td height=20> <img src=images/list.gif width=11 height=11> <a href=""SoftView.asp?SoftID="& rs("SoftID")&""" class=""ArticleList"">"& trim(rs("SoftName")) & trim(rs("SoftVer")) & " </a></td><tr>"
response.write "<tr><td background=../Images/dot.gif colspan=4 height=1></td></tr>"
rs.movenext
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?