?? 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優(yōu)化大師</font><font color="#000000"> - 從桌面到網(wǎng)絡(luò),從注冊表清理到垃圾文件掃除,從...</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">網(wǎng)際快車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">終級上網(wǎng)提速</font><font color="#000000"> - 功能強大的網(wǎng)絡(luò)系統(tǒng)終級優(yōu)化工具.</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"> - 一個定時播音、定時開關(guān)機的自動播音軟件,可以控制...</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">軟件總數(shù)</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">國產(chǎn)軟件</a>：<font color="red"><%
shu=0
sql="select count(*) from down where cd='國產(chǎn)軟件' 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">國產(chǎn)軟件</font></a></font></b></td>
<td width="50%" bgcolor="#FFEEAA">
<p align="right">[<a href="help/up.htm"><font color="#FF0000">發(fā)布您的軟件</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='國產(chǎn)軟件' 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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -