www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > include/function.tag.photo.asp
<% '┌──────────────────── 深度空间 深度学习 ──┐ '│过程名:getHTML_photoClass '│作 用:对应分类 子类的下载列表 '│参 数:iPlace 显示位置 ,topCount 显示条数 css1 css2 kuai 块名 列 每列 个数 '│说 明:需在文章头部包含 此过程自动添加 '│日 期:2009-6-27 '└──────────────────── www.deepstudy.cn ──┘ function getHTML_photoClass(class_ID,topCount,css1,css2,kuai,lie) dim sql,sql2,rs,rs2,strHTML : strHTML="" dim ge sql="select fclass_ID,ftip,fclassName from deep_photoClass where fisView=1 and fparentID=0 and fclass_ID="&class_ID&" order by forderId,fclass_ID" set rs=conn.execute(sql) if(rs.eof and rs.bof)then ' else 'kuai=0 ge=0 while(not rs.eof) kuai=kuai+1 if (kuai>3)then kuai=0 end if strHTML=strHTML&"<div class='"&css1&" bg-t-"&kuai&"'>" strHTML=strHTML&"<div class='"&css1&" bg-t-"&kuai&"-1'>"&rs("fclassName")&"</div>" strHTML=strHTML&"<div class='"&css1&" dl-d'>" sql2="select fclass_ID,ftip,fclassName from deep_photoClass where fisView=1 and fparentID="&rs("fclass_ID")&" order by forderId,fclass_ID" set rs2=conn.execute(sql2) if(rs2.eof and rs2.bof)then else while(not rs2.eof) ge=ge+1 if ((ge mod lie)=0) then strHTML=strHTML&"<div class='"&css2&" last'>" else strHTML=strHTML&"<div class='"&css2&"'>" end if strHTML = strHTML & "<dl>" strHTML = strHTML & "<dt><a href='photoClass.asp?id="& rs2("fclass_ID") &"' target=""_blank"" title='"& rs2("ftip")&"'>"& rs2("fclassName") &"</a></dt>" strHTML = strHTML & "<dd><ul>" '文章列表 top 8 sql_soft="select top "&topCount&" fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime from deep_photo where fisDeleted=0 and fisView=1 and fclass_ID="&rs2("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid desc" set rsSoft=conn.execute(sql_soft) if (rsSoft.eof and rsSoft.bof) then 'response.Write("没有对应内容") strHTML = strHTML & "没有对应内容" else while (not rsSoft.eof) 'strHTML = strHTML & "<li class='ellipsis'><a href='photo?id="& rsSoft("fid") &"' target='_blank' title='"& rsSoft("fTitle") &"时间:"& rsSoft("fUpdateTime")&"'>"& rsSoft("fTitle")&"</a></li>" strHTML=strHTML& "<li class='ellipsis'><a href='photo.asp?id="& rsSoft("fid") &"' target='_blank' title='"& rsSoft("fTitle") &vbcrlf&"作者:"& rsSoft("fAuthor")&vbcrlf &"时间:"& rsSoft("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rsSoft("fdayHits")&" 本周:"&rsSoft("fweekHits")&" 本月:"&rsSoft("fmonthHits")&" 总计:"& rsSoft("fHits")& "'>" strHTML=strHTML& rsSoft("fTitle")& "</a></li>" rsSoft.MoveNext wend end if rsSoft.close set rsSoft=nothing strHTML = strHTML & "<li class=""more""><a href='photoClass.asp?id="& rs2("fclass_ID")&"' target='_blank' title='点击查看更多["&rs2("fclassName") &"]'>更多..</a></li>" strHTML = strHTML & "</ul></dd></dl>" strHTML=strHTML&"</div>" rs2.moveNext wend end if rs2.close set rs2=nothing strHTML=strHTML&"</div>" strHTML=strHTML&"</div>" rs.moveNext wend end if rs.close set rs=nothing getHTML_photoClass=strHTML end function '┌──────────────────── 深度空间 深度学习 ──┐ '│过程名:getHTML_photoClassList '│作 用:对应分类 子类的下载列表 '│参 数:class_ID 对应分类id iPageSize 每页下载列表数 '│说 明:需在文章头部包含 此过程自动添加 '│日 期:2009-6-27 '└──────────────────── www.deepstudy.cn ──┘ function getHTML_photoClassList(class_ID,iPageSize) dim sql,sql2,rs,rs2,pSize,strHTML : strHTML="" dim ge sql="select fclass_ID,ftip,fclassName from deep_photoClass where fisView=1 and fclass_ID="&class_ID&" order by forderId,fclass_ID" set rs=conn.execute(sql) if(rs.eof and rs.bof)then ' else strHTML = strHTML & "<dl class='dl-countent'>" strHTML = strHTML & "<dt>"& rs("fclassName") &"</dt>" strHTML = strHTML & "<dd>" '文章列表 top 8 '--- 1 分页初始化 ----- Dim oPageMsSQL Set oPageMsSQL=new Deep_Page oPageMsSQL.pageSize=iPageSize '定义每页显示记录数 默认10条 oPageMsSQL.getConnection(conn) '当前页 if (Request.QueryString("page") <>"") then oPageMsSQL.currentPage=CInt(Request.QueryString("page")) End if 'sql="select * from tArticle" 'PageSQL( tableName, dataKeyField, wordField, whereCondition, orderByField) sql_soft=oPageMsSQL.PageSQL( "deep_photo", "fid", "fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime","fisDeleted=0 and fisView=1 and fclass_ID="&rs("fclass_ID") ,"fisOnTop desc,fUpdateTime desc,fid desc") '-----1 end------ Set rsSoft=conn.execute(sql_soft) 'sql_soft="select fid,fTitle,fAuthor,fHits,fdayHits,fweekHits,fmonthHits,fUpdateTime from deep_photo where fisDeleted=0 and fisView=1 and fclass_ID="&rs("fclass_ID")&" order by fisOnTop desc,fUpdateTime desc,fid desc" 'set rsSoft=server.CreateObject("adoDb.recordSet") 'rsSoft.open sql_soft,conn,1,1 if (rsSoft.eof and rsSoft.bof) then 'response.Write("没有对应内容") strHTML = strHTML & "没有对应内容" else strHTML = strHTML & "<ul class='classList'>" 'pSize=iPageSize '每页显示记录数 '--- 1 分页初始化 ----- 'call pageInit(rsSoft,pSize ,currentPage,pageSize) do while (not rsSoft.eof) '--- 2 循环处设界 ----- 'if (pageSize<=0)then exit do end if 'pageSize=PageSize-1 'strHTML = strHTML & "<li><a href='photo?id="& rsSoft("fid") &"' target='_blank' title='"& rsSoft("fTitle") &"时间:"& rsSoft("fUpdateTime")&"'>"& rsSoft("fTitle")&"</a></li>" strHTML=strHTML& "<li><a href='photo.asp?id="& rsSoft("fid") &"' target='_blank' title='"& rsSoft("fTitle") &vbcrlf&"作者:"& rsSoft("fAuthor")&vbcrlf &"时间:"& rsSoft("fUpdateTime")&vbcrlf &"浏览次数:今日:"&rsSoft("fdayHits")&" 本周:"&rsSoft("fweekHits")&" 本月:"&rsSoft("fmonthHits")&" 总计:"& rsSoft("fHits")& "'>" strHTML=strHTML& rsSoft("fTitle")& "</a></li>" rsSoft.MoveNext loop strHTML = strHTML & "</ul>" '--- 3 分页显示 ----- 'strHTML = strHTML & pagination(rsSoft ,currentPage) end if rsSoft.close set rsSoft=nothing '--- 2 分页导航 显示 ----- strHTML = strHTML & oPageMsSQL.PageNavigateUrl() Set oPageMsSQL=Nothing '-----2 end------ 'strHTML = strHTML & "<li class=""more""><a href='articleClass.asp?id="& rs("fclass_ID")&"' target='_blank' title='点击查看更多["&rs("fclassName") &"]'>更多..</a></li>" strHTML = strHTML & "</dd></dl>" end if rs.close set rs=nothing getHTML_photoClassList=strHTML end function %>