📄 index.asp
字号:
<!--#include file="db/user.asp" -->
<!--#include file="top.asp" -->
<%
search=request.form("search")
tpe=request("type")
searchtype=request("searchtype")
if search<>"" then
if searchtype="0" then
response.write "请选择搜索范围"
response.end
end if
end if
If request.querystring("page")="" Then
absPageNum = 1
else
absPageNum=cint(request.querystring("page"))
end if
RecordPerPage = 5
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.CacheSize = RecordPerPage
if tpe<>"" and search="" then
sql="SELECT * FROM download where sortcount="&tpe&" order by time desc"
elseif search<>"" and searchtype<>"0" then
sql="select * from download where "&searchtype&" like '%"&search&"%' order by time desc"
else
sql="SELECT * FROM download order by time desc"
end if
rs.OPEN sql, Conn,1,1
rs.PageSize = RecordPerPage
Tol = rs.PageCount
If Not(rs.EOF) Then
rs.AbsolutePage = absPageNum
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title>
<LINK href="style.css" type=text/css rel=STYLESHEET>
</head>
<BODY background="images/bg3.gif" leftMargin=0 topMargin=5 rightMargin=0 marginwidth="0"
marginheight="0" id=all oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
<div align="center"> <center> <table width="760" height="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> <td width="23" height="474" rowspan="2" background="images/bg1.gif"></td>
<td width="201" height="474" rowspan="2" valign="top"><TABLE WIDTH=194 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR>
<TD COLSPAN=3> <IMG SRC="images/down1_1.jpg" WIDTH=194 HEIGHT=49 ALT=""></TD>
</TR>
<TR>
<TD ROWSPAN=6> <IMG SRC="images/down1_2.jpg" WIDTH=13 HEIGHT=620 ALT=""></TD>
<TD width="167" height="181"><form action='http://3niao.com/home/UserChkLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>
<p> 用户名:
<input type="text" name="T1" size="11">
<br>
密 码:
<input type="text" name="T2" size="11">
<br>
Cookie:
<select name=CookieDate>
<option selected value=0>不保存</option>
<option value=1>保存一天</option>"
<option value=2>保存一月</option>
<option value=3>保存一年</option>
</select>
<br>
<a href="http://www.3niao.com/home/UserReg.asp" target="_blank">新用户注册</a>
<a href="http://3niao.com/home/GetPassword.asp" target="_blank">
忘记密码</a><br>
<input type="submit" value="提交" name="B1">
<input type="reset" value="全部重写" name="B2">
</p>
</form></TD>
<TD ROWSPAN=6> <IMG SRC="images/down1_4.jpg" WIDTH=14 HEIGHT=620 ALT=""></TD>
</TR>
<TR>
<TD> <IMG SRC="images/down1_5.jpg" WIDTH=167 HEIGHT=63 ALT=""></TD>
</TR>
<TR>
<TD width="167" height="71">本类总数/程序总数：<font color=#ff3399><%=rs.recordcount%>/
<%
Set rsall = Server.CreateObject("ADODB.Recordset")
sqlall="SELECT * FROM download"
rsall.OPEN sqlall, Conn,1,1
%>
<%=rsall.recordcount%></font>
<%
rsall.close
set rsall=nothing
%>
</TD>
</TR>
<TR>
<TD> <IMG SRC="images/down1_7.jpg" WIDTH=167 HEIGHT=75 ALT=""></TD>
</TR>
<TR>
<TD width="167" height="213" valign="top"><script language="JavaScript" src="zoom.asp?name=down&st=<%=request("type")%>&wz=1"></script>
<!--webbot bot="HTMLMarkup" startspan -->
<script language="JavaScript" src="zoom.asp?name=alldown&wz=1"></script>
</TD>
</TR>
<TR>
<TD> <IMG SRC="images/down1_9.jpg" WIDTH=167 HEIGHT=17 ALT=""></TD>
</TR>
</TABLE></td>
<td width="511" height="95"> <div align="right"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="490" height="86">
<param name="movie" value="images/top.swf"> <param name="quality" value="high">
<embed src="images/top.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="490" height="86"></embed></object>
</div></td><td width="25" height="474" rowspan="2" background="images/bg1.gif"></td></tr>
<tr> <td width="511" height="508" valign="top"> <table width="99%" height="198" border="0" align="center" cellspacing="0">
<tr> <td height=198 valign=top> <%
if rs.eof and rs.bof then
response.write "<p align='center'>无内容</p>"
else
For absRecordNum = 1 to rs.PageSize%> <table border=0 cellpadding=3 cellspacing=0 style='border-collapse: collapse' width=100%>
<tr> <td width=100%> <hr size="1" color="#EFEFEF"> </td></tr> <tr> <td width=100%></td></tr>
<tr> <td width=100%> <table border=0 cellpadding=3 cellspacing=0 style='border-collapse: collapse' width=101%>
<tr>
<td width=47% colspan=2><font color="#ff3399"><a href='./show.asp?id=<%=rs("id")%>' target=_blank><%=rs("name")%></a> </font></td>
<td width=53% colspan=2 align=right class=p1><font color="#ff3399"><%=rs("big")%>┃<%=rs("sort")%>
<%if rs("demo")<>"" then%>
<a class=p1 href='<%=rs("demo")%>' target=_blank>演示</a>
<%else%>
演示</font> <font color="#ff3399">
<%end if%>
</font></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width=15% align=center>更新日期</td>
<td width=32%><%=rs("time")%></td>
<td width=17% align=center>推荐程度</td>
<td width=36%> <img src='./images/<%=rs("commend")%>' width=55 height=12>
<%=rs("downcount")%>/<%=rs("count")%> </td>
</tr>
<tr bgcolor="#efefef">
<td width=100% colspan=4 bgcolor="#FFFFFF" style='table-layout: fixed; word-break: break-all; text-indent: 40; line-height: 130%'>
<%
kao=rs("show")
if len(kao)>20 then
kao=left(kao,20) & "..."
response.write kao
else
response.write kao
end if
%> </td>
</tr>
</table></td></tr> </table><%
rs.movenext
If rs.EOF Then
Exit For
End If
Next
end if
%> <table border=0 cellpadding=3 cellspacing=0 style='border-collapse: collapse' width=100%>
<tr> <td width=100% align=center class=shadow2> </td></tr> <tr> <td width=100% align=center class=shadow2>
<%
for ppages=1 to rs.pagecount
if ppages=cint(absPageNum) then
%> <font color=#000000>[<%=ppages%>]</font> <%
else
if tpe="" then
%> <a href='index.asp?page=<%=ppages%>'>[<%=ppages%>]</a> <% elseif tpe<>"" then%>
<a href='index.asp?type=<%=tpe%>&page=<%=ppages%>'>[<%=ppages%>]</a> <%
end if
end if
next
%> <%if tpe="" then%> <a title='下一页' href='index.asp?page=<%=abcd%>'>[>]</a>
<%elseif tpe<>"" then%> <a title='下一页' href='index.asp?type=<%=tpe%>&page=<%=abcd%>'>[>]</a>
<%
end if
%> </td></tr> </table><%if tpe<>"" then%> <%end if%> <%if tpe="" then%> <%end if%>
<p> <hr size="1" color="#EFEFEF"> <br> </p></tr> </table>
<div align="center"><a href="http://www.3niao.com/" target="_blank"><IMG SRC="http://www.3niao.com/2004/banner/da.jpg" ALT="" border="0"></a></div></td>
</tr> <tr> <td height="34" colspan="4" background="images/footbg.gif"><div align="center">3鸟设社[色彩连视版]精典符号下载</div></td></tr>
<tr valign="top" bgcolor="#FFFFFF"> <td height="65" colspan="4"> <table width="760" height="65" border="0" align="center" cellspacing="0">
<tr>
<td width="404" height="65" background="images/footgb1.gif"> </td>
<td width="352" valign="top"><div align="right"><IMG SRC="images/foot.jpg" WIDTH="250" HEIGHT="60"></div></td></tr>
</table></td></tr> </table></center></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -