📄 test.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>
<title>7k7k.com - 去看去看</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="#6BC331" topmargin="0" style="text-align: center">
<!--#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-2.gif">
<tr>
<td width="760" colspan="3">
<img border="0" src="images2/bg.gif" width="760" height="27"></td>
</tr>
<tr>
<td width="27"> </td>
<td width="717" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="717">
<tr>
<td width="15" valign="top">
</td>
<td width="154" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" height="273">
<tr>
<td width="100%"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="165" align="center">
<tr><td width="100%"><img border="0" src="images2/tuijian.gif" width="164" height="57"></td><%
sql="select top 8 "
sql=sql&"download.id,download.showname,download.dateandtime,download.hits,download.hots,download.classid,download.Nclassid,ANclass.Nclass "
sql=sql&" from download,ANclass where download.hots=1 and download.Nclassid=ANclass.Nclassid "
sql=sql&" order by download.id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>没有推荐作品<%else%>
<%do while not rs.eof%><tr><td width="100%" background="images/topbg.gif" height="20"> ·<a href="javascript://" onClick="window.open('view.asp?id=<%=rs("id")%>');" ><%=rs("showname")%></a> (<%=rs("hits")%>)</td></tr><%
rs.movenext
loop
end if
rs.close
%>
</table></td>
</tr>
<tr>
<td width="100%" height="5"></td>
</tr>
<tr>
<td width="100%"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="165" align="center">
<tr><td width="100%"><img border="0" src="images2/top10.gif" width="164" height="57"></td></tr>
<%
sql="select top 8 "
sql=sql&" download.id,download.showname,download.dateandtime,download.hits,download.classid,download.Nclassid,ANclass.Nclass"
sql=sql&" from download,ANclass where download.stop=0 and download.Nclassid=ANclass.Nclassid "
sql=sql&" order by download.hits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<%else%>
<%i=0
do while not rs.eof%><tr><td width="100%" background="images/topbg.gif" height="20"> ·<a href="javascript://" onClick="window.open('view.asp?id=<%=rs("id")%>');" ><%=rs("showname")%></a> (<%=rs("hits")%>)</td></tr><%
i=i+1
if i>=15 then exit do
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
</tr>
<tr>
<td width="100%" height="5"></td>
</tr>
<tr>
<td width="100%" align="center"><script language=javascript src="http://usms.tom.com/js/search_1.js?tom_user_id=59856"></script><script language="javascript" src="vote/votedy.asp"></script></td>
</tr>
<tr>
<td width="100%"><p align="center" style="line-height: 150%"><a target="_blank" href="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"><font color="#ff0000"><u>看不见作品？<br>请下载插件。</u></font></a><br>
<a target="_blank" href="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"><img border="0" src="images/install_now_flash.gif" width="115" height="30"></a></td>
</tr>
</table></td>
<td width="533" valign="top" align="center"><table width="495" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse">
<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 "<li> 此栏暂无作品，有问题请联系 Oicq:52747"
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -