config.asp

65353音乐网 v1.1

      sqladd=sqladd&" and "&sqladd_end
      sqladd_end=""
      mhead=mhead&"（关键字："&keyword&"）"
    end if
    pageurl=pageurl&"keyword="&server.urlencode(keyword)&"&sea_type="&sea_type&"&"
  case "hot"
    mhead=m_title&" → "&tit&"（最新"&m_nummer&"条）"
    sqladd=""
    sqladd_head=" top "&m_nummer
    sqladd_end=" counter desc,"
  case "pic"
    mhead=m_title&" → "&tit
    sqladd=" and ispic=1"
  case "good"
    mhead=m_title&" → "&tit
    sqladd=" and istop=1"
  case else
    sql="select c_name from jk_class where c_id="&cid
    sqladd=" and c_id="&cid
    if cint(sid)>0 then 
      sqladd=" and s_id="&sid
      sql="select jk_class.c_name,jk_sort.s_name from jk_sort inner join jk_class on jk_sort.c_id=jk_class.c_id where jk_sort.c_id="&cid&" and jk_sort.s_id="&sid
    end if
    set rs=joekoe_cms.exec(sql,1)
    if rs.eof then
      rs.close
      call news_list(6,30)
      exit sub
    end if
    cname=rs("c_name")
    if cint(sid)>0 then sname=rs("s_name")
    rs.close
    mhead=m_title&" → "&cname
    if sid>0 and sname<>"" then mhead=mhead&"&nbsp;→&nbsp;"&sname
  end select
  sql="select"&sqladd_head&" id,topic,tim,username,counter,ispic,tcolor from news where hidden=1"&sqladd&" order by "&sqladd_end&"id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if not rs.eof then rssum=rs.recordcount
  call format_pagecute()
  if cint(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  for i=1 to nums
    n_username=rs("username")
    n_topic=rs("topic")
    n_tim=rs("tim")
    n_tim=joekoe_cms.time_type(n_tim,1)
    tmp=tmp&news_topic_type(m_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),2,rs("tcolor"))
    rs.movenext
  next
  rs.close
  call news_center_table(mhead,tmp,1,1,"")
  if action<>"hot" then response.write news_list_pagecute(nummer,rssum,viewpage,thepages,pageurl)
end sub

sub news_list(n_num,c_num)
response.write "<table cellspacing=0 cellpadding=0 border=0  width='99%'>"
  dim nsid,nsname,srs,ssql,sqla,n_username,n_topic,n_tim,sid_num,tmp
  sid_num=0
  ssql="select s_id,s_name from jk_sort where c_id="&cid&" order by s_order"
  set srs=joekoe_cms.exec(ssql,1)
  do while not srs.eof
    sid_num=1
    nsid=srs("s_id")
    nsname=srs("s_name")
    sqla=" and s_id="&nsid
    sql="select top "&n_num&" id,topic,tim,username,counter,ispic,tcolor from news where hidden=1 and s_id="&nsid&" order by id desc"
    set rs=joekoe_cms.exec(sql,1)
    do while not rs.eof
      sid_num=2
      n_username=rs("username")
      n_topic=rs("topic")
      n_tim=rs("tim")
      n_tim=joekoe_cms.time_type(n_tim,1)
      tmp=tmp&news_topic_type(15,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),2,rs("tcolor"))
      rs.movenext
    loop
    rs.close
	response.write "<tr><td width='50%' valign='top' align='center'>"
    call news_center_table(nsname,tmp,1,1,"?action=more&c_id="&cid&"&s_id="&nsid)
	response.write "</td>"
    tmp=""
	srs.movenext
	if srs.eof then
	response.write "<td width='50%' valign='top' align='center'>&nbsp</td></tr>"
	exit do
	end if
	sid_num=1
    nsid=srs("s_id")
    nsname=srs("s_name")
    sqla=" and s_id="&nsid
    sql="select top "&n_num&" id,topic,tim,username,counter,ispic,tcolor from news where hidden=1 and s_id="&nsid&" order by id desc"
    set rs=joekoe_cms.exec(sql,1)
    do while not rs.eof
	  sid_num=2
      n_username=rs("username")
      n_topic=rs("topic")
      n_tim=rs("tim")
      n_tim=joekoe_cms.time_type(n_tim,1)
      tmp=tmp&news_topic_type(15,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),2,rs("tcolor"))
	        rs.movenext
    loop
    rs.close
	response.write "<td width='50%' valign='top' align='center'>"
    call news_center_table(nsname,tmp,1,1,"?action=more&c_id="&cid&"&s_id="&nsid)
	response.write "</td></tr>"
    tmp=""
    srs.movenext
  loop
  srs.close
  set srs=nothing
  response.write "</table>"
end sub

sub news_fpic(nt,t_num,n_num,c_num,n_title)
  dim tmp,temp,pid,nid,n_topic,n_username,n_tim
  sql="select top 1 id,topic,pic,tcolor from news where hidden=1 and ispic=1 order by id desc"
  set rs=joekoe_cms.exec(sql,1)
  if not rs.eof then
    n_topic=rs("topic")
    temp=format_pic_type(rs("pic"),n_topic,t_num,"view.asp?id="&rs("id"))
  end if
  rs.close
    tmp=tmp&"<tr>" & _
		 vbcrlf&"<td align=center width='30%'>"&temp&"</td>" & _
		 vbcrlf&"<td width='70%'>" & _
		 vbcrlf&"<table border=0>"
  sql="select top "&n_num&" id,username,topic,tim,counter,ispic,tcolor from news where hidden=1 and ispic=1"
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
  case "good"
    sql=sql&" and istop=1 order by id desc"
  case else
    sql=sql&" order by id desc"
  end select
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    n_username=rs("username")
    n_topic=rs("topic")
    n_tim=rs("tim")
    n_tim=joekoe_cms.time_type(n_tim,1)
    tmp=tmp&news_topic_type(c_num,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),1,rs("tcolor"))
    rs.movenext
  loop
  rs.close
    tmp=tmp&"</table></td></tr>"
  call news_center_table(n_title,tmp,1,1,"")
end sub

sub news_pic(nt,n_num,c_num,n_title)
  dim tmp,nid,per_num,n_topic
  per_num=100\n_num
    tmp=tmp&"<tr align=center>"
  sql="select top "&n_num&" id,topic,pic from news where hidden=1 and ispic=1"
  select case nt
  case "hot"
    sql=sql&" order by counter desc,id desc"
  case "good"
    sql=sql&" and istop=1 order by id desc"
  case else
    sql=sql&" order by id desc"
  end select
  set rs=joekoe_cms.exec(sql,1)  
  do while not rs.eof
    n_topic=rs("topic")
    tmp=tmp&"<td width='"&per_num&"%'>"&format_pic_type(rs("pic"),n_topic,c_num,"view.asp?id="&rs("id"))&"</td>"
    rs.movenext
  loop
  rs.close
	tmp=tmp&"</tr>"
  call news_center_table(n_title,tmp,1,1,"list.asp?action=pic")
end sub

sub news_main_list(n_num,c_num)
response.write "<table cellspacing=0 cellpadding=0 border=0  width='99%'>"
  dim ncid,ncname,crs,csql,sqla,n_username,n_topic,n_tim,tmp
  csql="select c_id,c_name from jk_class where nsort='"&n_sort&"' order by c_order"
  set crs=joekoe_cms.exec(csql,1)
  do while not crs.eof
    ncid=crs("c_id")
    ncname=crs("c_name")
    sqla=" and c_id="&ncid
    sql="select top "&n_num&" id,topic,tim,username,counter,ispic,tcolor from news where hidden=1 and c_id="&ncid&" order by id desc"
    set rs=conn.execute(sql)
    do while not rs.eof
      n_username=rs("username")
      n_topic=rs("topic")
      n_tim=rs("tim")
      n_tim=joekoe_cms.time_type(n_tim,1)
      tmp=tmp&news_topic_type(15,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),2,rs("tcolor"))
      rs.movenext
    loop
    rs.close
	response.write "<tr><td width='50%' valign='top' align='center'>"
    call news_center_table(ncname,tmp,1,1,"list.asp?action=more&c_id="&ncid)
	response.write "</td>"
    tmp=""
    crs.movenext
	if crs.eof then
	response.write "<td width='50%' valign='top' align='center'>&nbsp</td></tr>"
	exit do
	end if
	ncid=crs("c_id")
    ncname=crs("c_name")
    sqla=" and c_id="&ncid
    sql="select top "&n_num&" id,topic,tim,username,counter,ispic,tcolor from news where hidden=1 and c_id="&ncid&" order by id desc"
    set rs=conn.execute(sql)
    do while not rs.eof
      n_username=rs("username")
      n_topic=rs("topic")
      n_tim=rs("tim")
      n_tim=joekoe_cms.time_type(n_tim,1)
      tmp=tmp&news_topic_type(15,rs("id"),n_username,n_topic,n_tim,rs("counter"),rs("ispic"),2,rs("tcolor"))
      rs.movenext
    loop
    rs.close
	response.write "<td width='50%' valign='top' align='center'>"
    call news_center_table(ncname,tmp,1,1,"list.asp?action=more&c_id="&ncid)
	response.write "</td></tr>"
    tmp=""
	crs.movenext
  loop
  crs.close
  set crs=nothing
  response.write "</table>"
end sub
%>