📄 index_mb.asp
字号:
<%
if MDBpath="" then
MDBpath="admin/"
end if
set rs_type=server.CreateObject("ADODB.RecordSet")
set rs=server.CreateObject("ADODB.RecordSet")
%>
<!--#include file="admin/mdb_path_info.asp"-->
<%
i=0
sql="select top 10 id,title,tid,date from info order by date desc"
rs.open sql,conn,1,1
if rs.eof then
infolist="<tr><td width=""100%"" colspan=""2"">·还没有文章</td></tr>"
else
do while not rs.eof
infolist=infolist&"<tr><td width=""100%"" colspan=""2"" nowrap valign=""top""><font color=""#42a5f7"" face=""Wingdings"">v</font><a href=""info/"&rs("id")&".htm"">"&rs("title")&"</a></td></tr>"
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
rs2=conn.execute("select count(*) from info where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())")
shuinfo=rs2(0)
conn.close
set conn=nothing
%>
<!--#include file="admin/mdb_path_down.asp"-->
<%thisfile="index"
''''分隔游戏娱乐
YXid=9 '游戏娱乐ID号
rs.open ("select id from downtype where ts like '"&YXid&",%'"),conn,1,1
if not rs.eof then
do while not rs.eof
NoYXid=NoYXid&""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
''''分隔游戏娱乐
''''分隔电子书库
SKid=11 '电子书库ID号
rs.open ("select id from downtype where ts like '"&SKid&",%'"),conn,1,1
if not rs.eof then
do while not rs.eof
NoSKid=NoSKid&""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
''''分隔电子书库
%>
<html>
<head>
<title>香巴拉 软件下载</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" text="#000000">
<!--#include file="in_top.asp"-->
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td width="156" valign="top" bgcolor="#F7F7F7">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" bgcolor="#999999">
<img border="0" src="images/d_1.gif" width="13" height="13" align="absmiddle">
<font color="#FFFFFF"><FONT color=#ffffff><B>推荐软件</B></FONT>
<FONT color=#FFFF00>Cool！</FONT></font></td>
</tr>
<tr>
<td width="100%"><script language=javascript src="ads/js_index_left.js"></script></td>
</tr>
</table>
</td>
<td width="4"><img src="about:blank" width="4" height="1"></td>
<td width="590" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="TABLE-LAYOUT: fixed; border-collapse: collapse" width="100%" bgcolor="#FAFAFA">
<tr height="112">
<%
i=0
sql="select top 5 id,tid,cxn,cxv,pic from down where pic<>'' and show=1 order by date desc"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
noid=noid&" and id<>"&rs("id")&""
i=i+1
response.write"<td width=""95"" align=""center"" valign=""top"" nowrap>"
response.write"<a target=""_blank"" href=""soft/"&rs("id")&".htm"">"
response.write"<img alt="""&rs("cxn")&" "&rs("cxv")&""" src="""&rs("pic")&""" border=""0"" width=""95"" height=""75""><br><img src=""about:blank"" border=""0"" width=""0"" height=""3""><br>"&left(rs("cxn")&" "&rs("cxv"),30)&"</a>"
response.write"</td>"
if i>=3 then exit do
rs.movenext
loop
end if
rs.close
%>
<%for i=0 to 5-i%>
<td width="95" align="center" valign="top" nowrap>
<a href="help/adv.htm" target="_blank">
<img src="ads/gg95x75.gif" border="0" width="95" height="75"></a><br><img src="about:blank" border="0" width="0" height="3"><br>
特价广告位招租<br>OICQ:1423288</td>
<%next%>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" height="2">
<tr>
<td width="100%"></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="410" valign="top">
<table border="0" cellspacing="0" style="TABLE-LAYOUT: fixed; border-collapse: collapse" width="100%">
<tr>
<td width="50%" bgcolor="#FFEEAA">
<b>
近期热点<font color="#FFFFFF"> <img border="0" src="images/hot.gif"></font></b></td>
<td width="50%" bgcolor="#FFEEAA">
</td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#B5CFE7" height="1"></td>
</tr>
<tr>
<td width="100%" colspan="2" height="2"></td>
</tr>
<tr>
<td width="100%" colspan="2">
<font face=Wingdings>v</font><a target="_blank" href="http://czy888.126.com/product.asp?id=/25B3B98B-728C-40EC-BA7E-1FA7A788A903/"><font color="#FF0000">企能客户管理软件</font><font color="#000000"> - 客户管理、销售管理、活动管理，销售让软件帮忙!</font></a><br>
<font face=Wingdings>v</font><a target="_blank" href="http://czy888.126.com/product.asp?id=/34540F50-BE83-41B4-91F2-E6901EFE6513/"><font color="#FF0000">Windows优化大师</font><font color="#000000"> - 从桌面到网络,从注册表清理到垃圾文件扫除,从...</font></a><br>
<font face=Wingdings>v</font><a target="_blank" href="http://czy888.126.com/product.asp?id=/43C2ED21-64BD-49FF-B067-B0856B6D0751/"><font color="#FF0000">网际快车FlashGet</font><font color="#000000"> - 快速下载文件和下载后轻易管理已下载的文件...</font></a><br>
<font face=Wingdings>v</font><a target="_blank" href="http://czy888.126.com/product.asp?id=/BBB8F51D-CDD1-4C7B-8986-1FF6D2F519F2/"><font color="#FF0000">终级上网提速</font><font color="#000000"> - 功能强大的网络系统终级优化工具.</font></a><br>
<font face=Wingdings>v</font><a target="_blank" href="http://czy888.126.com/product.asp?id=/2093BD12-FD46-43BA-AA3C-81BF17DC5474/"><font color="#FF0000">播音大师</font><font color="#000000"> - 一个定时播音、定时开关机的自动播音软件,可以控制...</font></a><br></td>
</tr>
</table>
</td>
<td width="5" valign="top"><img src="about:blank" width="5" height="1"></td>
<td width="175" valign="top" bgcolor="#F7F7F7">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" bgcolor="#42A5F7" height="20">
<img border="0" src="images/d_file.gif" align="absmiddle" width="15" height="14"><font color="#FFFFFF"><b>更新通告
<%=year(date())%>年<%=month(date())%>月<%=day(date())%>日</b></font></td>
</tr>
<tr>
<td width="100%">
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="95%" height="88">
<tr>
<td width="100%" nowrap colspan="2"><a href="new/n0.htm">软件总数</a>：<font color="red"><%
shu=0
sql="select count(*) from down where year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
</tr>
<tr>
<td width="50%" nowrap><a href="new/n1.htm">国产软件</a>：<font color="red"><%
shu=0
sql="select count(*) from down where cd='国产软件' and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
<td width="50%" nowrap><a href="new/n7.htm">在线电影</a>：<font color="red"><%
shu=0
sql="select count(*) from down where (gs=1 or gs=2) and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
</tr>
<tr>
<td width="50%" nowrap><a href="new/n2.htm">国外软件</a>：<font color="red"><%
shu=0
sql="select count(*) from down where cd='国外软件' and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
<td width="50%" nowrap><a href="new/n8.htm">精彩动画</a>：<font color="red"><%
shu=0
sql="select count(*) from down where gs=3 and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
</tr>
<tr>
<td width="50%" nowrap><a href="new/n3.htm">汉化补丁</a>：<font color="red"><%
shu=0
sql="select count(*) from down where cd='汉化补丁' and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
<td width="50%" nowrap><a href="new/n5.htm">特别软件</a>：<font color="red"><%
shu=0
sql="select count(*) from down where cd='特别软件' and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
</tr>
<tr>
<td width="50%" nowrap><a href="info/index.htm">资讯中心</a>：<font color="red"><%=shuinfo%></font></td>
<td width="50%" nowrap><a href="new/n6.htm">程序源码</a>：<font color="red"><%
shu=0
sql="select count(*) from down where cd='程序源码' and year(date)&month(date)&day(date)=year(date())&month(date())&day(date())"
rs2=conn.execute(sql)
shu=rs2(0)%><%=shu%></font></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellspacing="0" style="border-collapse: collapse" cellpadding="0" height="1">
<tr>
<td width="100%"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750">
<tr>
<td width="156" valign="top" bgcolor="#F7F7F7">
<table border="0" cellpadding="2" cellspacing="0" style="TABLE-LAYOUT: fixed; border-collapse: collapse" width="100%">
<tr>
<td width="100%" bgcolor="#999999"><font color="#FFFF00">→</font><font color="#FFFFFF"><b> 本周下载排行榜</b></font></td>
</tr>
<tr>
<td width="100%" height="485" valign="top">
<%
i=0
sql="select top 18 cxn,cxv,id,tid from down where tid<>118 and date>Now()-7 order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
response.write"还没有软件"
else
do while not rs.eof
response.write"·<a href=""soft/"&rs("id")&".htm"">"&rs("cxn")&" "&rs("cxv")&"</a><br>"
i=i+1
if i>=18 then exit do
rs.movenext
loop
end if
rs.close
%>
</td>
</tr>
</table>
</td>
<td width="4"><img src="about:blank" width="4" height="1"></td>
<td width="590" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="410" valign="top" rowspan="2">
<table border="0" cellspacing="0" style="TABLE-LAYOUT: fixed; border-collapse: collapse" width="100%" cellpadding="0">
<tr>
<td width="50%" bgcolor="#FFEEAA" height="20">
<b>
<font color="#FFFFFF"> <a href="new/n1.htm"><font color="#000000">国产软件</font></a></font></b></td>
<td width="50%" bgcolor="#FFEEAA">
<p align="right">[<a href="help/up.htm"><font color="#FF0000">发布您的软件</font></a>]</td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#B5CFE7" height="1"></td>
</tr>
<%
i=0
sql="select top 16 cxn,cxv,id,tid,date from down where cd='国产软件' and tid<>118 and tid not in("&NoYXid&") and tid not in("&NoSKid&") order by date desc"
rs.open sql,conn,1,1
if rs.eof then%>
<tr><td width="100%" colspan="2">还没有软件</td></tr>
<%
else
do while not rs.eof
%><tr><td width="100%" colspan="2" nowrap valign="top">
<font color="#42a5f7" face="Wingdings">v</font><FONT color="#999999">[<%
rs_type.open "select tname from downtype where id="&rs("tid"),conn,1,1
if not rs_type.EOF then
TN=split(rs_type("tname"),"|")
response.write"<a href=""sort/"&rs("tid")&"_1.htm"">"&TN(ubound(TN)-1)&"</a>"
end if
rs_type.close
%>]</FONT><a href="soft/<%=rs("id")%>.htm"><%=rs("cxn")&" "&rs("cxv")%></a><font color="#999999">(<%=month(rs("date"))%>月<%=day(rs("date"))%>日)</font>
</td></tr>
<%
i=i+1
if i>=16 then exit do
rs.movenext
loop
end if
rs.close
%>
<tr>
<td width="100%" colspan="2"><p align="right">
<a href="new/n1.htm">【更多更新->】</a></td>
</tr>
<tr>
<td width="50%" bgcolor="#FFEEAA" height="20">
<b>
<font color="#FFFFFF"> <a href="new/n2.htm"><font color="#000000">国外软件</font></a></font></b></td>
<td width="50%" bgcolor="#FFEEAA">
</td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#B5CFE7" height="1"></td>
</tr>
<tr>
<td width="100%" colspan="2" nowrap valign="top">
<%
i=0
sql="select top 16 cxn,cxv,id,tid,date from down where cd='国外软件' and tid<>118 and tid not in("&NoYXid&") and tid not in("&NoSKid&") order by date desc"
rs.open sql,conn,1,1
if rs.eof then
%>
<tr><td width="100%" colspan="2">还没有软件</td></tr>
<%
else
do while not rs.eof
%><tr><td width="100%" colspan="2" nowrap valign="top">
<font color="#42a5f7" face="Wingdings">v</font><FONT color="#999999">[<%
rs_type.open "select tname from downtype where id="&rs("tid"),conn,1,1
if not rs_type.EOF then
TN=split(rs_type("tname"),"|")
response.write"<a href=""sort/"&rs("tid")&"_1.htm"">"&TN(ubound(TN)-1)&"</a>"
end if
rs_type.close
%>]</FONT><a href="soft/<%=rs("id")%>.htm"><%=rs("cxn")&" "&rs("cxv")%></a><font color="#999999">(<%=month(rs("date"))%>月<%=day(rs("date"))%>日)</font>
</td></tr>
<%
i=i+1
if i>=16 then exit do
rs.movenext
loop
end if
rs.close
%>
<tr>
<td width="100%" colspan="2">
<p align="right"><a href="new/n2.htm">【更多更新->】</a></td>
</tr>
<%
i=0
rs.open sql,conn,1,1
if rs.eof then
%>
<%
else
do while not rs.eof
%><%
i=i+1
if i>=10 then exit do
rs.movenext
loop
end if
rs.close
%>
</table>
</td>
<td width="5" valign="top" rowspan="2"><img src="about:blank" width="5" height="1"></td>
<td width="175" valign="top" bgcolor="#F7F7F7">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
<td width="100%" bgcolor="#42A5F7">
<font color="#FFFF00">→ </font><font color="#FFFFFF"><b>最新推荐</b></font></td>
</tr>
<tr>
<td width="100%">
<p align="center"><%
i=0
sql="select top 5 id,tid,cxn,cxv,pic from down where pic<>'' and show=1"&noid&" order by date desc"
rs.open sql,conn,1,1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -