makelist.asp

很好的企业网站管理系统!可以适应各种不同的小型企业!

           shu=allshu/2
         end if
      end if
    end if
    for a=1 to shu                         
      lxty=lxty&"<tr>"
      for i=1 to 2
      aa=aa+1
      lxty=lxty&"<td>"&list_1(""&aa&"")&"</td>"
      if i=1 then
      lxty=lxty&"<td width=""5""></td>"
      end if
      next
      lxty=lxty&"</tr><tr><td  height=""1"" bgcolor=""#93bb00""></td><td width=""5"" height=""1""></td>"
      lxty=lxty&"<td height=""1"" bgcolor=""#93bb00""></td></tr><tr>"
        for i=1 to 2
        aaa=aaa+1
        lxty=lxty&"<td valign=""top"">"&list_3(""&aaa&"")&"<p align=""right"">"&list_2(""&aaa&"")&"</p></td>"
        if i=1 then
        lxty=lxty&"<td width=""5""></td>"
        end if
        next
      lxty=lxty&"</tr>"
     next
    lxty=lxty&"</table>"

    end if
if allshu="" then
lxtyv="暂无内容!"
else
lxtyv=lxtyv&"<table border=""0"" cellspacing=""0"" style=""border-collapse: collapse"" width=""100%"">"                        
    for s=1 to allshu
lxtyv=lxtyv&"<tr>"
      ss=ss+1
      lxtyv=lxtyv&"<td width=""98%"" >"&list_1(""&ss&"")&"</td></tr><tr><td width=""98%"" height=""1"" bgcolor=""#93bb00""></td></tr><tr>"
sss=sss+1
        lxtyv=lxtyv&"<td width=""98%"" valign=""top"">"&list_3(""&sss&"")&"<p align=""right"">"&list_2(""&sss&"")&"</td></tr>"
        next
    lxtyv=lxtyv&"</table>"

    end if
rs.close
''########读取本类排行榜
sql="select * from info where tid in("&sqqq&") order by hits desc"
rs.open sql,conn,1,1
if rs.eof then
Txtop="·还没有文章"
else
do while not rs.eof
filetop=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
if len(rs("Title"))>toplen then
titley=left(rs("Title"),toplen)&"..."
else
titley=rs("Title")
end if
h=h+1
if rs("dj")=6 then
Txtop=Txtop&"·<a target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/"&filetop&"-1.html"">"&xoyuTitle(titley)&"</a><br>"
else
Txtop=Txtop&"·<a target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/shownews.asp?id="&rs("id")&""">"&xoyuTitle(titley)&"</a><br>"
end if
if h>=topshu then exit do
rs.movenext
loop
h=0
end if
rs.close
'读取文章图片
       i=0
       sql="select * from info where tid in("&sqqq&") and pic<>'' order by date desc"
       rs.open sql,conn,1,1
       if rs.eof then
       image="还没有图片文章"
       else
       do while not rs.eof
       fileimg=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
       noid=noid&" and id<>"&rs("id")&""
       i=i+1
       image=image&"<td valign=""top"" align=""center"" nowrap width=""129"">"
       if rs("dj")=6 then
       image=image&"<a target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/"&fileimg&"-1.html"">"
       else
       image=image&"<a target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/shownews.asp?id="&rs("id")&""">"
       end if
       image=image&"<img src="""&rs("pic")&""" border=""0"" width="""&imagelen&""" height="""&imagewid&"""><br><img src=""about:blank"" border=""0"" width=""0"" height=""3""><br>"&rs("title")&"</a>"
       image=image&"</td>"
       if i>=imageshu then exit do
       rs.movenext
       loop
       image="<table><tr>"&image&"</tr></table>"
       end if
       rs.close
       
       p=0
       sql="select * from info where tid in("&sqqq&") and pic<>'' order by date desc"
       rs.open sql,conn,1,1
       if rs.eof then
       imagev="还没有图片文章"
       else
       do while not rs.eof
       fileimgv=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
       noid=noid&" and id<>"&rs("id")&""
       p=p+1
       if rs("dj")=6 then
       imagev=imagev&"<a target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/"&fileimgv&"-1.html"">"
       else
       imagev=imagev&"<a target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/shownews.asp?id="&rs("id")&""">"
       end if
       imagev=imagev&"<img  src="""&rs("pic")&""" border=""0"" width="""&imagevlen&""" height="""&imagevwid&"""><br>"&rs("title")&"</a><br><img alt=""about:blank"" width=""0"" height=""1""><br>"
       if p>=imagevshu then exit do
       rs.movenext
       loop
       end if
       rs.close
'读取文章列表
               
sql="select * from info where tid in("&sqqq&") order by date desc"
rs.open sql,conn,1,1
if rs.eof then
 lb=lb&"没有相关文章"
mpage=1
allshu=0
else
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount     '得到总页数
rs.move  (currentPage-1)*MaxPerPage
allshu=rs.recordcount
h=0
do while not rs.eof
h=h+1
titlez=rs("Title")
datetime1=month(rs("date"))&"/"&day(rs("date"))
  fileming1=year(rs("date"))&month(rs("date"))&day(rs("date"))&hour(rs("date"))&minute(rs("date"))&second(rs("date"))
  lb=lb&"<font color=""#C0C0C0"">["&datetime1&"]</font>"
  if rs("dj")=6 then
  lb=lb&"<a class=newsblue4 target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/"&fileming1&"-1.html"">"&xoyuTitle(titlez)&"</a>"
  else
  lb=lb&"<a class=newsblue4 target=_blank son=hint style=""behavior:url(../0007.htc)"" alt="&rs("Title")&" href=""../Html/shownews.asp?id="&rs("id")&""">"&xoyuTitle(titlez)&"</a>"
  end if
  lb=lb&"<font color=""#C0C0C0"">"&rs("hits")&"</font><br>"
if h>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
set rs=nothing
set rsm=nothing
set rs_yl=nothing
set rs_info=nothing
conn.close
set conn=nothing
'#########读取页次
lb=lb&"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0""><tr><td width=""15%"" nowrap>页次：<b>"&currentPage&"</b>/<b>"&mpage&"</b> 每页<b>"&MaxPerPage&"</b> 文章数<b>"&allshu&"</b></td><td width=""65%"" nowrap><p align=""center"">"
pageno=currentPage
if cint(pageno)>1 then
lb=lb&"<a href=../list/list_"&tid&"_1.html title=""首页"">"
end if
lb=lb&"首页</a>&nbsp;"
if cint(pageno)>1 then
lb=lb&"<a href=../list/list_"&tid&"_"&pageno-1&".html title=""上页"">"
end if
lb=lb&"上页</a>"
pp=cint(pageno)-2            
  if pp<1 then            
  pp=1            
  end if            




lb=lb&"&nbsp;"
if cint(pageno)< mpage then
lb=lb&"<a href=../list/list_"&tid&"_"&pageno+1&".html title=""下页"">"
end if
lb=lb&"下页</a>&nbsp;"
if cint(pageno)< mpage then
lb=lb&"<a href=../list/list_"&tid&"_"&mpage&".html title=""末页"">"
end if
lb=lb&"末页</a></p></td><td width=""18%"" nowrap><table cellpadding=""0"" cellspacing=""0"">"
lb=lb&"<form onsubmit=""window.location=this.KKK2.options[this.KKK2.selectedIndex].value; return false;"">"
lb=lb&"<tr><td nowrap>到<select name=""select"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"
   for i=1 to mpage
      selected=""
      if currentpage=i then
          selected=" selected"
      end if
    lb=lb&"<option value=../list/list_"&tid&"_"&i&".html"&selected&">"&i&"</option>"
   next
lb=lb&"</select>页</td></td></tr></form></table></td></tr></table>"
 '################ 读取完成 ################
pencat=replace(pencat,"[TITLE]",thistitle)
pencat=replace(pencat,"[xoYu_NAME]",tname)
pencat=replace(pencat,"[xoYu_BJlist]",txlist)
pencat=replace(pencat,"[xoYu_BJTOP]",Txtop)
pencat=replace(pencat,"[xoYu_IMAGE]",image)
pencat=replace(pencat,"[xoYu_PIC]",imagev)
pencat=replace(pencat,"[xoYu_LIST]",lxty)
pencat=replace(pencat,"[xoYu_DANHANG]",lxtyv)
pencat=replace(pencat,"[xoYu_TYPEPIC]",TypePic)
pencat=replace(pencat,"[xoYu_SEARCH]",search)
pencat=replace(pencat,"[xoYu_LB]",lb)
pencat=replace(pencat,"[xoYu_TXT]",typetxt)
pencat=replace(pencat,"[xoYu_TYPE]",thistype)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("../list/list_"&tid&"_"&currentPage&".html"))
fout.Write pencat
fout.Writeline("")
fout.Writeline("<center><a title="""Powered By:xoYu CMS""" href=http://www.xoyu.com/><font color=#FAFAFA>xoYu CMS</font></a></center>") 
fout.Writeline("<!--Published Date:"&Now&"   Power by www.xoyu.com-->")
fout.Writeline("<!--2002～2003 Copyright by www.xoyu.com All Rights Reserved-->")
fout.close
set fso=nothing
set fout=nothing
'************** 生成HTML页 结束 ***************
%>