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

📄 default.asp

📁 ASP源程序采用天空软件小偷中心核件制成
💻 ASP
📖 第 1 页 / 共 3 页
字号:
<!--#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
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">

<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 language=JavaScript>
function moveOn(url)
<!--
{
	var detail = window.open(url, "detail", "scrollbars=auto,width=298,height=240");
}

function MM_displayStatusMsg(msgStr) { //v2.0
  status=msgStr;
  document.MM_returnValue = true;
}
//-->
</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" onUnload="leave()">
<!--#include file="webtop1.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="963" bgcolor="#FFFFFF">
      <tr>
        <td width="750" colspan="2">
         </td>
        <td width="206">
         </td>
      </tr>
      <tr>

        <td width="26" valign="top"> </td>
        <td width="505" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="727">
          <tr>
            <td width="12" height="165">
            <p align="right">
            <img border="0" src="images2/k1.gif" width="4" height="165"></td>
            <td width="713" background="images2/bdi.gif"><table border=0 cellpadding=0 cellspacing=0 width="706" align="center">
              <tr><%
  dim rs
  set rs = server.createobject("adodb.recordset")
%> 
<%
	sql="select top 5 * from download where images<>'' order by id desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>
                <td width="160"><li>没有推荐作品<%else%>
<%do while not rs.eof%><td width="542" valign="top"><A href="view.asp?id=<%=rs("id")%>"><IMG class="border" src="<%=rs("images")%>" width="100" height="75" border="1"></A><p style="line-height: 200%"><FONT color=#00a0e><b><%=rs("showname")%></b></FONT>/<FONT color=#ff0000><%=Month(rs("DateAndTime"))%>.<%=Day(rs("DateAndTime"))%></FONT><br>
                <a target="_blank" title="下载铃声" href="http://mysms.tom.com/smslist/smsearch.php?inc=3&keyword=<%=rs("showname")%>&user_id=59856">
                <img border="0" src="images2/s1.gif" width="16" height="16"></a>
                <a title="投票点评" href="javascript:Showvote('<%=rs("id")%>')">                                  
                <img border="0" src="images2/s2.gif" width="16" height="16"></a>
                <a title="送给好友" href="javascript:tofriend('<%=rs("id")%>')">                                  
                <img border="0" src="images2/s3.gif" width="16" height="16"></a>
                <font color="#596F04">Size:<%=rs("size")%></font></td><%                                  
	rs.movenext
	loop
	end if
	rs.close
%></tr>
            </table></td>
            <td width="4">
            </td>
          </tr>
        </table>
         
        </td>
        <td width="205" valign="top">
          <table border="0" cellpadding="0" cellspacing="0" width="200">
            <tr>
            <td width="230" colspan="2">
            <img border="0" src="images2/gonggao.gif" width="115" height="35"></td>
            </tr>
            <tr>
            <td width="230" colspan="2">
            <table class="p1" border="0" cellpadding="0" style="border-collapse: collapse" width="100%" cellspacing="1">
              <tr>
                <td width="14%">
                <img border="0" src="images2/j.gif" width="15" height="15"></td>
                <td width="86%"><script language=javascript>
document.write("<a href=\"http://sendto.163.com:88/recommend.php?ID=506497&referer="+parent.location+"&parentTitle="+document.title+"parentTitleEnd\" target=OpenWindow>向朋友推荐本站</a>");
</script></td>
              </tr>
              <tr>
                <td width="14%">
                <img border="0" src="images2/j.gif" width="15" height="15"></td>
                <td width="86%">[<font color="#0000FF">5-25</font>] <a href="mailto:fly@jsmail.com.cn">诚招各类合作伙伴。</a></td>                                  
              </tr>
              <tr>
                <td width="14%">
                <img border="0" src="images2/j.gif" width="15" height="15"></td>
                <td width="86%">[<font color="#0000FF">5-11</font>] 本站新域名启用。</td>                                  
              </tr>
            </table>
            </td>
            </tr>
            <tr>
            <td width="134">
            <p align="center"><a target="_blank" href="http://usms.tom.com/smslist/sms_1_2_46_0_1.htm?user_id=59856&F5F5F5:F5F5F5&http://www.7k7k.com/images2/smslogo.gif&user_logo=http://www.7k7k.com/images2/smslogo.gif&bt=color_pic&special_flag=1"><img height="60" hspace="12" src="images2/sms/200305131.gif" width="80" vspace="5" border="0"></a></td>
            <td width="94">
            <p align="center"><a target="_blank" href="http://usms.tom.com/smslist/sms_1_2_46_0_1.htm?user_id=59856&F5F5F5:F5F5F5&http://www.7k7k.com/images2/smslogo.gif&user_logo=http://www.7k7k.com/images2/smslogo.gif&bt=color_pic&special_flag=1"><img height="60" hspace="7" src="images2/sms/200305132.gif" width="80" vspace="5" border="0"></a></td>
            </tr>
          </table>
        </td>
      </tr>
      </table>
    </td>
  </tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="864" align="center" height="26">
  <tr>
    <td width="862" height="26">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="963" height="1" bgcolor="#FFFFFF">

⌨️ 快捷键说明

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