<% 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&"" If cid=rs("id") Then categoryStr=categoryStr&"" End If categoryStr=categoryStr&rs("category") If cid=rs("id") Then categoryStr=categoryStr&"" End If categoryStr=categoryStr&"  " rs.MoveNext Loop End If %> 墨默工具箱
<%If pass=1 Or pass=2 then%>
<%else%> <%If cid<>0 then%> <%End If%>
<%=categoryStr%>
<%End if%> <% If pass=1 Or pass=2 Then Call showfile() else If cid=0 then%>
<% 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 "" Exit for End If %> <% If i Mod 2 = 0 Then Response.Write "" rs.MoveNext Next %>
" target="_blank"><%=rs("title")%>
公开文件下载
未公开文件下载（需要提取码）
 
<% Else Call morefav() End If End If %>
<% Sub morefav() %> <% 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 "" Exit for End If %> <% If i Mod 2 = 0 Then Response.Write "" rs.MoveNext Next %> <% End If %>
" target="_blank"><%=rs("title")%>
<%mypage.showpage() %>
<% End Sub 'showfiles Sub showfile() %> <% 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 "" Exit for End If %> <% If i Mod 2 = 0 Then Response.Write "" rs.MoveNext Next %> <% End If %>
" target="_blank"><%=rs("filename")&"."&getExt(rs("path"))%>
<%mypage.showpage() %>
<% End Sub %>