📄 shooter.asp
字号:
<!--#include file="Config.asp" -->
<!--#include file="inc/CHAR.asp"-->
<%
'=========================================================
' 21GTRadio(世纪之音)网络电台
' Version:1.0
' Date: 2003-9-21
' 浪子不归
'=========================================================
' Copyright (C) 2003 21GT.COM. All rights reserved.
' Web: http://www.21gt.com,http://radio.21gt.net
' Email: fbcha@21cn.com
'=========================================================
dim sql
dim rs
dim CateName,CateID,SubCateName,SubCateID
if request.QueryString("SoftID")="" then
response.write "您没有选择相关歌曲，请返回"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select "&CategoryName&"_Cate.CateName,"&CategoryName&"_SubCate.SubCateName,"&CategoryName&"_SoftInfo.SoftName,"&CategoryName&"_SoftInfo.CateID,"&CategoryName&"_SoftInfo.SubCateID from "&CategoryName&"_SoftInfo,"&CategoryName&"_Cate,"&CategoryName&"_SubCate where "&CategoryName&"_SoftInfo.CateID="&CategoryName&"_Cate.CateID and "&CategoryName&"_SoftInfo.SubCateID="&CategoryName&"_SubCate.SubCateID and "&CategoryName&"_SoftInfo.SoftID="&request.QueryString("SoftID")
rs.open sql,conn,1,1
if not rs.eof then
SoftName=trim(rs("SoftName"))
CateID=trim(rs("CateID"))
SubCateID=trim(rs("SubCateID"))
CateName=trim(rs("CateName"))
SubCateName=trim(rs("SubCateName"))
end if
rs.close
%>
<html>
<head>
<title><%= Title_Name %> =>> <%= CategoryName_CHS %> =>> <%=SoftName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/radio.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="0">
<table width="760" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor="#999999">
<tr>
<td>
<table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="179" height="172" valign="top">
<table cellspacing=0 cellpadding=0 width=179 border=0>
<tbody>
<tr>
<td><img height=47 src="../images/bbst.gif"
width=179></td>
</tr>
<tr>
<td>
<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 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/login.asp?action=chk 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/reg.asp"
target=_blank>注册</a> <a
href="../bbs/lostpass.asp"
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>
</td>
</tr>
<tr>
<td background=../images/bbst3.gif
height=7></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="../images/yu.gif" width="177" height="46"></td>
</tr>
</table>
<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="20" align="center" valign="bottom"><b><font color="#FF0000">排行榜</font></b></td>
</tr>
<tr><td background=Images/dot.gif height=1></td></tr>
<tr>
<td>
<%
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
loop
end if
rs.close
%>
</td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="1" align="center" bgcolor="#E3E3E3">
<tr>
<td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -