?? showclass1.asp
字號:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
if request("action")="short" then
session("short")="short"
elseif request("action")="short2" then
session("short")="short2"
end if
if request("action")="open" then
session("short")=""
end if
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 "showname"
order_name="showname"
case "hot"
order_name="hot"
case "dateandtime"
order_name="dateandtime"
case "hits"
order_name="hits"
case "orders"
order_name="orders"
case "size"
order_name="size"
case else
order_name="id"
updown="desc"
end select
set rs=server.createobject("adodb.recordset")
dim classid,Nclassid
dim classname,Nclassname
if request("classid")="" then
' classid=""
' classname="所有作品 "
'classid="classid=14 and "
classid=""
sql="select class from Aclass"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "還沒有任何欄目，請到管理頁面添加"
response.end
else
classname=rs("class")
end if
rs.close
else
classid="classid="&cstr(request("classid"))&" and "
sql="select class from Aclass where classid="&cstr(request("classid"))
rs.open sql,conn,1,1
classname=rs("class")
rs.close
end if
if request("Nclassid")="" then
Nclassid=""
Nclassname="所有作品 "
else
Nclassid=" Nclassid="&cstr(request("Nclassid"))&" and "
sql="select ANclass.Nclass,Aclass.class from ANclass,Aclass where ANclass.classid=Aclass.classid and ANclass.Nclassid="&cstr(request("Nclassid"))
rs.open sql,conn,1,1
classname=rs("class")
Nclassname=rs("Nclass")
rs.close
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天幕動漫</title>
<LINK rel="stylesheet" href="style.css">
<script language="JavaScript">
<!--
function Showvote(id)
{
var filename="vote2.asp?id="+id;
window.open(filename,"顯示窗口","scrollbars=yes,width=378,height=180");
}
function tofriend(id)
{
var filename="tofriend.asp?id="+id;
window.open(filename,"顯示窗口","scrollbars=yes,width=433,height=330");
}
//-->
</SCRIPT>
<script type="text/javascript">
<!--
document.onmouseover = handleOver;
document.onmouseout = handleOut;
function handleOver() {
el = window.event.srcElement;
if (el.tagName == "IMG") { //Check if over image
if ((el.getAttribute("oversrc") != null) && (el.getAttribute("oversrc") != "")) { //check if valid overSrc
el.srcBackup = el.src; //Back up the src
el.src = el.getAttribute("oversrc");
}
}
}
function handleOut() {
el = window.event.srcElement;
if (el.tagName == "IMG") { //Check if over image
if ((el.getAttribute("oversrc") != null) && (el.getAttribute("oversrc") != "") && (el.srcBackup != null)) { //Also check for valid backup
el.src = el.srcBackup;
}
}
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" topmargin="0">
<!--#include file="webtop.asp"-->
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" background="images/bg1.gif">
<tr>
<td width="760" colspan="5">
</td>
</tr>
<tr>
<td width="27"> </td>
<td width="495" valign="top">
<table width="495" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" background="images/zbg-2.gif">
<tr>
<td align=left width="100%" valign="top" height="118">
<%
if request("Nclassid")="" then
sql="select id,filename,filename1,filename2,showname,note,images,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where "&classid&" stop=0 "
sql=sql&" order by "&order_name&" "&updown
else
sql="select id,filename,filename1,filename2,showname,images,note,dayhits,weekhits,lasthits,hits,dateandtime,hot,system,size,orders from download where "&classid&" "&Nclassid&" stop=0 "
sql=sql&" order by "&order_name&" "&updown
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<table><tr><td border='0' width='100%' height='100%' cellspacing='1' cellpadding='0' bgcolor='#FFFFFF'><p align='center'><li> 沒有或沒有找到 flash 作品！</p></td></tr></table>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"showclass.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"showclass.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"showclass.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
%>
<table border="0" width="495" cellspacing="0" cellpadding="0" align="center" height="71">
<%if request("updown")="" then%>
<%else%>
<%end if%>
<%do while not rs.eof%>
<tr>
<td width="495" valign="top">
<table border=0 cellpadding=0 cellspacing=0 width="495">
<tr>
<td width="495">
<center>
<table border="0" cellpadding="0" cellspacing="6" style="border-collapse: collapse" width="90%">
<tr>
<td width="134">
<table border="0" cellspacing="0" style="border-collapse: collapse" width="113" align="center">
<tr>
<td width="113" height="103" background="images2/tdi.gif">
<p align="center"><a href="javascript://" onClick="window.open('view.asp?id=<%=rs("id")%>');" ><IMG src="<%=rs("images")%>" width="100" height="75" border="0"></a><br>
</td>
</tr>
</table>
</td>
<td width="361">
<table border="0" cellpadding="0" cellspacing="3" style="border-collapse: collapse" width="100%">
<tr>
<td width="14%">作 品：</td>
<td width="36%"><FONT color=#00a0e><B><%=rs("showname")%></b></font></td>
<td width="13%">歌 手：</td>
<td width="37%"><%if rs("note")="(無)" then%>無歌手<%else%><a href="http://www.7k7k.com/query.asp?keyword=<%=rs("note")%>"><%=rs("note")%></a><%end if%></td>
</tr>
<tr>
<td width="14%">大 小：</td>
<td width="36%"><%=rs("size")%></td>
<td width="13%">觀 看：</td>
<td width="37%">( <font color="#ff0000"><b><%=rs("hits")%></b></font> ) 次</td>
</tr>
<tr>
<td width="14%">原 創：</td>
<td width="36%"><a href="mailto:<%=rs("filename2")%>"><%=rs("filename1")%></td>
<td width="13%">評 價：</td>
<td width="37%"><%for imghot=1 to rs("hot")%><font color="#fd9720">★</font> <%next%></td>
</tr>
<tr>
<td width="17%">類別：</td>
<td width="34%"><%=classname%></td>
<td width="16%"><%if rs("hot")>3 then%><font color=red>推 薦</font> <%end if%></td>
<td width="33%"> </td>
</tr>
<tr>
<td width="100%" colspan="4">
<p align="right"><a href="javascript://" onClick="window.open('view.asp?id=<%=rs("id")%>');" ><img border="0" src="images/goon.gif" width="40" height="18" alt="點擊觀看"></a> <a href="javascript:Showvote('<%=rs("id")%>')"><img border="0" src="images/pl.gif" width="25" height="18" alt="評論打分"></a> <a href="http://mysms.tom.com/smslist/smsearch.php?inc=3&keyword=<%=rs("showname")%>&user_id=59856" target="_blank"><img src="images/sms.gif" width="27" height="18" border="0" alt="下載鈴聲"></a></td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</td>
</tr>
</table>
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
<tr>
<td height="1" align="center"><img border="0" src="images/xian.gif" width="493" height="7"></td>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -