www.gusucode.com > 维六酷博客管理系统 1.1源码程序 > tool.asp
<!-- #include file="conn.asp" -->
<!--#include file="include.asp"-->
<!-- #include file="inc/function.asp" -->
<!--#include file="inc/asppage.asp"-->
<%
Dim categoryStr,cid,pass
pass=RequestQueryNum("pass")
cid=RequestQueryNum("cid")
If pass<>1 And pass<>2 then
Set rs=conn.Execute("Select top 8 * From favoritecategory order by cindex desc, id asc")
Do While Not rs.eof
categoryStr=categoryStr&"<a href='?cid="& rs("id") &"'class=""STYLE2"">"
If cid=rs("id") Then
categoryStr=categoryStr&"<strong class=""white"">"
End If
categoryStr=categoryStr&rs("category")
If cid=rs("id") Then
categoryStr=categoryStr&"</strong>"
End If
categoryStr=categoryStr&"</a> "
rs.MoveNext
Loop
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>让我更出色_工具箱</title>
<link href="css/css.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
background-color: #000000;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
color: #FFFFFF;
}
.STYLE3 {
color: #abe300;
font-weight: bold;
}
.STYLE4 {color: #999999}
.STYLE5 {
color: #FFFFFF;
font-weight: bold;
}
.STYLE6 {
color: #ABE300;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="right"><img src="images/aboutme_r1_c6.jpg" width="276" height="55" border="0" usemap="#Map2"><map name="Map2"><area shape="rect" coords="144,26,211,43" href="default.asp"><area shape="rect" coords="212,26,266,42" href="link.asp"></td>
</tr>
<tr>
<td align="right"><table width="100%" height="294" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table width="91%" height="60" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="left"><img src="images/tool_r2_c3.jpg" width="113" height="48"></td>
</tr>
</table>
<!--start-->
<%If pass=1 Or pass=2 then%>
<table width="91%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="left" width="22"><img src="images/tool_r6_c2.jpg" width="17" height="18"></td>
<td align="left" width="100"><span class="STYLE6">网络硬盘</span></td>
<td align="left"> <a href="tool.asp">返回</a></td>
</tr>
</table>
<%else%>
<table width="91%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="22" align="left"><img src="images/tool_r4_c2.jpg" width="17" height="18"></td>
<td width="60" align="left"><span class="STYLE3">收藏夹</span></td>
<%If cid<>0 then%>
<td align="center" width="100" > <a href="tool.asp">返回</a></td>
<%End If%>
<td align="right"><span class="STYLE4"><%=categoryStr%></span></td>
</tr>
</table>
<%End if%>
<%
If pass=1 Or pass=2 Then
Call showfile()
else
If cid=0 then%>
<table width="91%" height="118" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" align="left">
<table width="93%" height="61" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
Set rs=conn.Execute("Select top 8 * From favorite order by top desc, id desc")
For i = 1 To 8
If rs.eof Then
Response.Write "<td></td>"
Exit for
End If
%>
<td align="left" width="50%" height="20"><a href="<%=rs("url")%>" target="_blank"><%=rs("title")%></a></td>
<%
If i Mod 2 = 0 Then Response.Write "</tr></tr>"
rs.MoveNext
Next
%>
</tr>
</table>
</td>
</tr>
</table>
<table width="91%" height="20" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="left" width="22"><img src="images/tool_r6_c2.jpg" width="17" height="18"></td>
<td align="left" width="60"><span class="STYLE6">网络硬盘</span></td>
<td align="left"> </td>
</tr>
</table>
<table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><table width="93%" height="51" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="left"><a href="?pass=1">公开文件下载</a></td>
</tr>
<tr>
<td align="left"><a href="?pass=2">未公开文件下载（需要提取码）</a></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table>
<%
Else
Call morefav()
End If
End If
%>
<!--end-->
</td>
<td width="38%"><img src="images/tool_r1_c8.jpg" width="386" height="267"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td height="8"></td></tr>
<tr>
<td width="44%" rowspan="3" valign="bottom"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="67%"><img src="images/tool_r9_c1.jpg" width="292" height="143"></td>
<td width="33%" rowspan="2"><img src="images/tool_r9_c6.jpg" width="145" height="256"></td>
</tr>
<tr>
<td><img src="images/tool_r10_c1.jpg" width="292" height="113"></td>
</tr>
</table></td>
<td width="56%"><img src="images/Articlemuen.jpg" width="563" height="60" border="0" usemap="#Map"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r1_c1.jpg" width="563" height="93"></td>
</tr>
<tr>
<td><img src="images/aboutme2_r3_c1.jpg" width="563" height="103"></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map"><area shape="rect" coords="13,25,77,54" href="aboutme.asp">
<area shape="rect" coords="82,17,141,43" href="Article.asp">
<area shape="rect" coords="153,17,221,45" href="Multimedia.asp">
<area shape="rect" coords="230,23,292,49" href="photo.asp">
<area shape="rect" coords="301,29,379,53" href="tool.asp">
<area shape="rect" coords="394,22,461,50" href="book.asp">
</map>
</body>
</html>
<%
Sub morefav()
%>
<table width="84%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
If cid<>0 Then
sql="Select * From favorite Where categoryid="& cid
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=16 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Response.Write "<td></td>"
Exit for
End If
%>
<td align="left" width="50%" height="20">
<a href="<%=rs("url")%>" target="_blank"><%=rs("title")%></a></td>
<%
If i Mod 2 = 0 Then Response.Write "</tr></tr>"
rs.MoveNext
Next
%>
<tr>
<td colspan="2" height="25" align="center"><span class="STYLE3"><%mypage.showpage() %></span></td>
</tr>
<%
End If
%>
</table>
<%
End Sub
'showfiles
Sub showfile()
%>
<table width="84%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
If pass<>0 Then
If pass=1 Then
sql="Select * From file Where password='' and isshow=1 order by id desc"
ElseIf pass=2 Then
sql="Select * From file Where password<>''and isshow=1 order by id desc"
End If
'Response.Write sql
'Response.end
Set mypage=new xdownpage '创建对象
mypage.getconn=conn '得到数据库连接
mypage.getsql=sql
mypage.pagesize=16 '设置每一页的记录条数据为5条
set rs=mypage.getrs() '返回Recordset
for i=1 to mypage.pagesize
If rs.eof Then
Response.Write "<td></td>"
Exit for
End If
%>
<td align="left" width="50%" height="20">
<a href="down.asp?id=<%=rs("id")%>" target="_blank"><%=rs("filename")&"."&getExt(rs("path"))%></a></td>
<%
If i Mod 2 = 0 Then Response.Write "</tr></tr>"
rs.MoveNext
Next
%>
<tr>
<td colspan="2" height="25" align="center"><span class="STYLE3"><%mypage.showpage() %></span></td>
</tr>
<%
End If
%>
</table>
<%
End Sub
%>