📄 default.asp
字号:
<!--#include file="conn.asp"-->
<%
dim rs
dim sql
set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="软件icq,http://www.softicq.com">
<LINK href="style.css" rel=stylesheet>
<title>雅客精彩信息综合网—k666软件园—程序演示！http://www.k66k.com ! http://vv66.net ! http://vv66.com !</title>
<SCRIPT>
window.open ("http://vv66.com","sec")
</SCRIPT>
</head>
<body leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<table width="100%" border="0" bgcolor="#CCCCFF">
<tr>
<td height="66" width="15%">
<div id="Layer1" style="position:absolute; width:90px; height:62px; z-index:1; left: 18px; top: 38px"><img src="logo.jpeg" width="88" height="60"></div>
</td>
<td height="66" width="85%">
<div id="Layer2" style="position:absolute; width:469px; height:61px; z-index:2; left: 188px; top: 40px"><img src="ad.gif" width="468" height="60"></div>
<div id="Layer3" style="position:absolute; width:106px; height:61px; z-index:3; left: 664px; top: 40px">
<div align="center"><font size="2"><a href="default.asp" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://www.softicq.com');"><font face="仿宋_GB2312, 黑体, 宋体, 新宋体, 楷体_GB2312">设为首页</font></a></font><font face="仿宋_GB2312, 黑体, 宋体, 新宋体, 楷体_GB2312"><br>
<a href="javascript:window.external.AddFavorite('http://www.softicq.com','www.softicq.com')"><font size="2">加入收藏夹</font></a></font><br>
<a href="about.asp" target="_blank"><font face="仿宋_GB2312, 黑体, 宋体, 新宋体, 楷体_GB2312" size="2">关于本站</font></a><br>
<font face="仿宋_GB2312, 黑体, 宋体, 新宋体, 楷体_GB2312" size="2"><a href="mailto:webmaster@softicq.com">与我联系</a></font></div>
</div>
</td>
</tr>
</table>
<hr>
<table border="0" align=center width="763" bgcolor="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" bgcolor=#CCCCFF height="33" style="border-bottom-style: solid;border-color:#183ead;border-width:1px">
<TABLE bgColor=#CCCCFF border=0 cellPadding=1 cellSpacing=0 width="100%">
<TR>
<TD width=50% align=center> <font size="1"> <a href="default.asp"><img src="home.gif" width="16" height="16" border="0"></a>
<%
sql="select class,classid from Dclass"
rs.open sql,conn,1,1
do while not rs.eof
%>
|<a href="index.asp?classid=<%=rs("classid")%>"><%=rs("class")%></a>|
<%
rs.movenext
loop
rs.close
%>
|<font size="2"><a href="bbs/default.asp" target="_blank">softicq论坛</a></font></font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="761" colspan="5"> </td>
</tr>
</table>
<div align="center">
<table border="0" width=763 align=center cellspacing="0" cellpadding="1" background="../images/bg_flower.gif" bgcolor="#FFFFFF">
<tr>
<td width="10" valign="top"></td>
</tr>
</table>
</div>
<table border="0" width="763" align=center bgcolor="#FFFFFF" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="19%" valign=top>
<table border="0" width="150" cellspacing="0" cellpadding="1">
<tr>
<td>
<!--#include file="day.asp"-->
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<!--#include file="week.asp"-->
</td>
</tr>
</table>
</td>
<td width="61%" valign=top>
<table border="0" width="98%" cellspacing="0" cellpadding="1" align=center>
<tr>
<td>
<TABLE bgColor=#817af3 border=0 cellPadding=1 cellSpacing=0 width="100%">
<TR>
<TD>
<TABLE border=0 cellPadding=3 cellSpacing=0 width="100%">
<TR>
<TD style="border-bottom-style: solid;border-color:#817af3;border-width:1px" bgcolor="#CCCCFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="95%" align=center bgcolor="#CCCCFF">本站新进软件</td>
</tr>
</table>
</TD></TR>
<TR bgColor=#ffffff>
<TD> <font style=line-height:150%>
<%
sql="select top 15 "
sql=sql&"download.id,download.showname,download.dateandtime,download.hits,download.classid,download.Nclassid,DNclass.Nclass "
sql=sql&" from download,DNclass where download.stop=0 and download.Nclassid=DNclass.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%>
[<a href='index.asp?classid=<%=rs("classid")%>&Nclassid=<%=rs("Nclassid")%>'><%=rs("Nclass")%></a>]
<a href="list.asp?id=<%=rs("id")%>"><%=rs("showname")%></a>
(
<%if rs("dateandtime")=date() then%>
<font color=red><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font>
<%else%>
<font color='#999999'><%=month(rs("dateandtime"))%>月<%=day(rs("dateandtime"))%>日</font>
<%end if%>
,<font color=green><%=rs("hits")%></font>) <br>
<%
rs.movenext
loop
end if
rs.close
%>
</font> </TD>
</TR></TABLE></TD></TR></TABLE>
</td>
</tr>
<tr>
<td>
</td>
</tr>
<tr>
<td>
<TABLE bgColor=#817af3 border=0 cellPadding=1 cellSpacing=0 width="99%">
<TR>
<TD>
<TABLE border=0 cellPadding=3 cellSpacing=0 width="100%">
<TR>
<TD style="border-bottom-style: solid;border-color:#817af3;border-width:1px" bgcolor="#CCCCFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="75%" align=center>软件详细分类</td>
<td width="25%" align=center><font color="#330066"><a href="admin/admin.asp">自由添加软件</a></font></td>
</tr>
</table>
</TD></TR>
<TR bgcolor="#fffff0">
<TD>
<font style=line-height:150%>
<%
sql="select class,classid from Dclass"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "没有任何分类"
else
do while not rs.eof
%>
<a href="index.asp?classid=<%=rs("classid")%>"><%=rs("class")%></a><br>
<%
sql1="select Nclass,Nclassid,classid from DNclass where classid="&rs("classid")
rs1.open sql1,conn,1,1
do while not rs1.eof
%><a href="index.asp?classid=<%=rs1("classid")%>&Nclassid=<%=rs1("Nclassid")%>"><%=rs1("Nclass")%></a>
<%
rs1.movenext
loop
rs1.close
%>
<br><br>
<%
rs.movenext
loop
end if
rs.close
%>
</font>
</TD></TR></TABLE></TD></TR></TABLE>
</td>
</tr>
</table>
</td>
<td width="20%" valign=top>
<table border="0" width="150" cellspacing="0" cellpadding="1">
<tr>
<td>
<TABLE bgColor=#817af3 border=0 cellPadding=1 cellSpacing=0 width="100%">
<TR>
<TD>
<TABLE border=0 cellPadding=3 cellSpacing=0 width="100%">
<TR>
<TD style="border-bottom-style: solid;border-color:#817af3;border-width:1px" bgcolor="#CCCCFF">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="5%"><img border="0" src="images/0037.gif"></td>
<td width="95%"> 热门推荐</td>
</tr>
</table>
</TD></TR>
<TR bgColor=#ffffff>
<TD>
<font style=line-height:150%>
<%
sql="select top 10 id,showname from download where hots=1"
sql=sql&" order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
没有推荐
<%else%>
<%do while not rs.eof%>
<a href="list.asp?id=<%=rs("id")%>"><%=rs("showname")%></a><br>
<%
rs.movenext
loop
end if
rs.close
%>
</font>
</TD></TR></TABLE></TD></TR></TABLE>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<!--#include file="all.asp"-->
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td background=images/bg02.gif height=1>
</td>
</tr>
<tr>
<td width="100%">
<!--#include file="myads.asp"--></td>
</tr>
</table>
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -