config_down.asp

漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了页面底部的统计形式。 3、修改了“公告更新”栏目

<td></td>
<td><%
call down_new_hot("","本类排行","",sqladd,"hot",10,0,11,1,0)
'call down_pic("本类推荐",sqladd,"good",1,10)
%></td>
</tr>
<%
        rs2.movenext
      loop
      rs2.close:set rs2=nothing
    else
      sql2="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
      set rs2=conn.execute(sql2)
      if rs2.eof and rs2.bof then
        rs2.close:set rs2=nothing
        cid=0:sid=0
        call down_main():exit sub
      end if
      sqladd=" and c_id="&cid&" and s_id="&sid
%>
<tr align=center>
<td colspan=3><%call down_pic("本类推荐",sqladd,"good",5,20)%></td>
</tr>
<tr align=center valign=top>
<td><%call down_new_hot("jt0","<a href='down_list.asp?c_id="&cid&"'><font class="&sk_class&">"&rs2("c_name")&"</font></a> → <a href='down_list.asp?c_id="&cid&"&s_id="&sid&"'><font class="&sk_class&">"&rs2("s_name")&"</font></a>","<a href='down_list.asp?c_id="&cid&"&s_id="&sid&"&action=more'><font class="&sk_class&">更多软件</font></a>",sqladd,"new",20,0,20,1,8)%></td>
<td></td>
<td><%
call down_new_hot("","本类排行","",sqladd,"hot",20,0,11,1,0)
%></td>
</tr>
<%
      rs2.close:set rs2=nothing
    end if
  end if
end sub

sub down_more(c_num,tt)
  dim temp1,tim,cnum,sql2,mhead,name,c1,c2,sql,rs,cname,sname
  c1=web_var(web_color,5):c2=web_var(web_color,1)
  pageurl="?action=more&"
  keyword=code_form(request.querystring("keyword"))
  sea_type=trim(request.querystring("sea_type"))
  if sea_type<>"username" then sea_type="name"
  call cid_sid_sql(2,sea_type)
  
  temp1=vbcrlf&"<table border=0 width='100%' cellspacing=0 cellpadding=2><tr><td colspan=5 height=5></td></tr>" & _
	vbcrlf&"<tr><td colspan=5 height=1 background='images/bg_dian.gif'></td></tr>" & _
	vbcrlf&"<tr align=center height=20 valign=bottom bgcolor="&c1&">" & _
	vbcrlf&"<td width='5%'>序号</td>" & _
	vbcrlf&"<td width='53%'>软件名称</td>" & _
	vbcrlf&"<td width='20%'>整理日期</td>" & _
	vbcrlf&"<td width='12%'>推荐等级</td>" & _
	vbcrlf&"<td width='10%'>下载次数</td>" & _
	vbcrlf&"</tr>" & _
	vbcrlf&"<tr><td colspan=5 height=1 background='images/bg_dian.gif'></td></tr>"
  sql="select id,name,username,tim,counter,types from down where hidden=1 "&sqladd
  if cid>0 then
    sql=sql&" and c_id="&cid
    if sid>0 then
      sql=sql&" and s_id="&sid
      sql2="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
    else
      sql2="select c_name from jk_class where c_id="&cid
    end if
  end if
  sql=sql&" order by id desc"
  
  if cid>0 then
    set rs=conn.execute(sql2)
    if rs.eof and rs.bof then rs.close:set rs=nothing:call down_main():exit sub
    cname=code_html(rs("c_name"),1,0)
    if sid>0 then sname=code_html(rs("s_name"),1,0)
    rs.close
  else
    cname="搜索结果"
  end if
  mhead="<a href='down_list.asp?c_id="&cid&"'><b><font class="&sk_class&">"&cname&"</font></b></a>"
  if cid>0 and sid>0 then mhead=mhead&"&nbsp;<font class="&sk_class&">→</font>&nbsp;<a href='down_list.asp?c_id="&cid&"&s_id="&sid&"'><b><font class="&sk_class&">"&sname&"</font></b></a>"
  
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
    rssum=0
  else
    rssum=rs.recordcount
  end if
  call format_pagecute()
  if int(viewpage)>1 then
    rs.move (viewpage-1)*nummer
  end if
  for i=1 to nummer
    if rs.eof then exit for
    name=rs("name"):tim=rs("tim")
    temp1=temp1&vbcrlf&"<tr onmouseover=""javascript:this.bgColor='"&c1&"';"" onmouseout=""javascript:this.bgColor='"&c2&"';""><td>"&i+(viewpage-1)*nummer&".</td>" & _
	  vbcrlf&"<td><a href='down_view.asp?id="&rs("id")&"'"&atb&" title='软件名称："&code_html(name,1,0)&"<br>发 布 人："&rs("username")&"<br>整理时间："&tim&"'>"&code_html(name,1,c_num)&"</a></td>" & _
	  vbcrlf&"<td>"&time_type(tim,tt)&"</td>" & _
	  vbcrlf&"<td><img src='images/down/star"&rs("types")&".gif' border=0></td>" & _
	  vbcrlf&"<td align=center class=blue>"&rs("counter")&"</td></tr>" & _
	  vbcrlf&"<tr><td colspan=5 height=1 background='images/bg_dian.gif'></td></tr>"
    rs.movenext
  next
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"<tr><td colspan=5 height=25 valign=bottom>" & _
	vbcrlf&"本栏共有&nbsp;<font class=red>"&rssum&"</font>&nbsp;个软件&nbsp;" & _
	vbcrlf&"页次：<font class=red>"&viewpage&"</font>/<font class=red>"&thepages&"</font>&nbsp;" & _
	vbcrlf&"分页："&jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")& _
	vbcrlf&"</td></tr></table>"
  response.write "<tr><td colspan=3 align=center>"&kong&format_bar(mhead,temp1,sk_bar,0,0,"||","<a href='down_list.asp?c_id="&cid&"&s_id="&sid&"&action=more'><font class="&sk_class&">浏览更多</font></a>")&"</td></tr>"
end sub

sub down_sea()
  dim temp1,nid,nid2,rs,sql,rs2,sql2
  temp1=vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 align=center>" & _
        vbcrlf&"<script language=javascript><!--" & _
        vbcrlf&"function down_sea()" & _
        vbcrlf&"{" & _
        vbcrlf&"  if (down_sea_frm.keyword.value==""请输入关键字"")" & _
        vbcrlf&"  {" & _
        vbcrlf&"    alert(""请在搜索软件前先输入要查询的 关键字 ！"");" & _
        vbcrlf&"    down_sea_frm.keyword.focus();" & _
        vbcrlf&"    return false;" & _
        vbcrlf&"  }" & _
        vbcrlf&"}" & _
        vbcrlf&"--></script>" & _
        vbcrlf&"<form name=down_sea_frm action='down_list.asp' method=get onsubmit=""return down_sea()"">" & _
        vbcrlf&"<input type=hidden name=action value='more'><tr><td height=3></td></tr>" & _
        vbcrlf&"<tr><td>" & _
        vbcrlf&"  <table border=0><tr>" & _
        vbcrlf&"  <td><select name=sea_type sizs=1><option value='name'>软件名称</option><option value='username'>发布人</option></seelct></td>" & _
        vbcrlf&"  <td><input type=text name=keyword value='请输入关键字' onfocus=""if (value =='请输入关键字'){value =''}"" onblur=""if (value ==''){value='请输入关键字'}"" size=12 maxlength=20></td>" & _
        vbcrlf&"  </tr></table>" & _
        vbcrlf&"</td></tr><tr><td>" & _
        vbcrlf&"  <table border=0><tr>" & _
        vbcrlf&"  <td><select name=c_id sizs=1><option value=''>请选择软件类别</option>"
  sql="select c_id,c_name from jk_class where nsort='"&n_sort&"' order by c_order,c_id"
  set rs=conn.execute(sql)
  do while not rs.eof
    nid=int(rs(0))
    temp1=temp1&vbcrlf&"<option value='"&nid&"' class=bg_2"
    if cid=nid then temp1=temp1&" selected"
    temp1=temp1&">"&rs(1)&"</option>"
    sql2="select s_id,s_name from jk_sort where c_id="&nid&" order by s_order,s_id"
    set rs2=conn.execute(sql2)
    do while not rs2.eof
      nid2=rs2(0)
      temp1=temp1&vbcrlf&"<option value='"&nid&"&s_id="&nid2&"'"
      if sid=nid2 then temp1=temp1&" selected"
      temp1=temp1&">　"&rs2(1)&"</option>"
      rs2.movenext
    loop
    rs2.close:set rs2=nothing
    rs.movenext
  loop
  rs.close:set rs=nothing
  temp1=temp1&vbcrlf&"</select></td>" & _
        vbcrlf&"  <td><input type=image src='images/small/search_go.gif' border=0></td>" & _
        vbcrlf&"  </tr></table>" & _
        vbcrlf&"</td></tr>" & _
        vbcrlf&"</form><tr><td height=1></td></tr></table>"
  response.write kong&format_bar("<font class="&sk_class&"><b>软件搜索</b></font>",temp1,sk_bar,0,0,"||","")
end sub
%>