📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
dim keyword
dim sql
dim rs
dim updown
dim order_name
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=1 and "
sql="select class from Dclass where classid=1"
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 Dclass 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 DNclass.Nclass,Dclass.class from DNclass,Dclass where DNclass.classid=Dclass.classid and DNclass.Nclassid="&cstr(request("Nclassid"))
rs.open sql,conn,1,1
classname=rs("class")
Nclassname=rs("Nclass")
rs.close
end if
%>
<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><%=classname%>|http://www.softicq.com</title>
</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: 17px; top: 5px"><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: 172px; top: 5px"><img src="ad.gif" width="468" height="60"></div>
<div id="Layer3" style="position:absolute; width:106px; height:54px; z-index:3; left: 661px; top: 9px">
<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=100% align=center> <font size="1"><a href="default.asp"><img src="home.gif" width="16" height="16" border="0"></a></font>
<%
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="1"><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">
<center>
<table border="0" width=763 align=center cellspacing="0" cellpadding="1" background="../images/bg_flower.gif" bgcolor="#FFFFFF">
<tr>
<td 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>
<tr>
<td> </td>
</tr>
<tr>
<td>
<!--#include file="all.asp"-->
</td>
</tr>
</table>
</td>
<td width="10" valign="top"> </td>
<td width="583" valign="top">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="50%"><a href=default.asp>下载分类</a>>><a href='index.asp?classid=<%=request("classid")%>'><%=classname%></a>>>
<%=Nclassname%><br><br></td>
<td width="16%" align=right>
<form action="index.asp" method=get>
<select name="classid" size="1" style='background-color:#CCCCFF' onchange='javascript:submit()'>
<%
sql="select class,classid from Dclass"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<option value="">Not Record!</option>
<%else%>
<%
do while not rs.eof
%>
<option <%if request("classid")<>"" then%><%if cint(rs("classid"))=cint(request("classid")) then%> selected <%end if%><%end if%>value="<%=rs("classid")%>"><%=rs("class")%></option>
<%
rs.movenext
loop
end if
rs.close
%>
</select>
</form>
</td>
<td width=19%>
<form action="index.asp" method=get>
<select name="Nclassid" size="1" style='background-color:#CCCCFF' onchange='javascript:submit()'>
<%
if request("classid")="" then
sql="select Nclass,Nclassid from DNclass"
else
sql="select Nclass,Nclassid from DNclass where classid="&request("classid")
end if
rs.open sql,conn,1,1
if rs.bof and rs.eof then
%>
<option value="">Not Record!</option>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -