www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > include/function.tag.soft.asp
<%
'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_softClass
'│作 用：对应分类 子类的下载列表
'│参 数：iPlace 显示位置 ,topCount 显示条数 css1 css2 kuai 块名 列 每列 个数
'│说 明：需在文章头部包含 此过程自动添加
'│日 期：2009-6-27
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_softClass(class_ID,topCount,css1,css2,kuai,lie)
dim sql,sql2,rs,rs2,strHTML : strHTML=""
dim ge
sql="select fclass_ID,ftip,fclassName from deep_softClass 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_softClass 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='softClass.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_soft 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='soft.asp?id="& rsSoft("fid") &"' target='_blank' title='"& rsSoft("fTitle") &"时间："& rsSoft("fUpdateTime")&"'>"& rsSoft("fTitle")&"</a></li>"
strHTML=strHTML& "<li class='ellipsis'><a href='soft.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='softClass.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_softClass=strHTML
end function
'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：getHTML_softClassList
'│作 用：对应分类 子类的下载列表
'│参 数：class_ID 对应分类id iPageSize 每页下载列表数
'│说 明：需在文章头部包含 此过程自动添加
'│日 期：2009-6-27
'└──────────────────── www.deepstudy.cn ──┘
function getHTML_softClassList(class_ID,iPageSize)
dim sql,sql2,rs,rs2,pSize,strHTML : strHTML=""
dim ge
sql="select fclass_ID,ftip,fclassName from deep_softClass 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_Soft", "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_Soft 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='soft.asp?id="& rsSoft("fid") &"' target='_blank' title='"& rsSoft("fTitle") &"时间："& rsSoft("fUpdateTime")&"'>"& rsSoft("fTitle")&"</a></li>"
strHTML=strHTML& "<li><a href='soft.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_softClassList=strHTML
end function
%>