con_flea.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

<%end if%>
<tr><td class=td>&nbsp;<%response.write img_skin(web_img_m)%>相关评论</td></tr>
</table>
<%
end sub

function friend_select()
  	dim rsf,ttt,temp1
  	temp1=vbcrlf&"<select name=friend_select size=1 onchange=""javascript:do_accept(this.options[this.selectedIndex].value);"">" & _
		vbcrlf&"<option value='' class=bg_td>选择我的好友</option>"
  	set rsf=joekoe_cms.exec("select username2 from user_friend where username1='"&login_username&"' order by id",1)
  	do while not rsf.eof
    		ttt=rsf(0)
    		temp1=temp1&vbcrlf&"<option value='"&ttt&"'>"&ttt&"</option>"
    	rsf.movenext
  	loop
  	rsf.close
  	set rsf=nothing
  	temp1=temp1&vbcrlf&"</select>"
  	friend_select=temp1
end function

sub flea_list_type()
dim t_color:t_color=" class=tims"
if DateDiff("d",rs("tim"),joekoe_cms.now_time)<3 then t_color=" class=blue"
if DateDiff("d",rs("tim"),joekoe_cms.now_time)<1 then t_color=" class=red"
%>
<tr><td colspan=2 height=23  background="images/flea/bar.gif">
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr><td>&nbsp;
<%response.write img_skin(web_img_h)%>
<b>&nbsp;<a href="flea_view.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&id=<%=rs("id")%>" target=_blank><%response.write joekoe_cms.code_html(rs("name"),1,0)%></a></b><%if rs("pic")<>"" then response.write "&nbsp;<img border=0 src='"&joekoe_cms.web_dir_skin&"small/img.gif' align=absmiddle alt='有图片'>"%></td>
<td align=right class=tims><font<%response.write t_color%>><%response.write joekoe_cms.time_type(rs("tim"),4)%></font>&nbsp;&nbsp;</td></tr>
    </table>
  </td></tr>
  <tr><td colspan=2 align=center class=bg_td>
    <table border=0 width='99%' class=bw>
    <tr><td class=tf><font class=htd><%response.write joekoe_cms.code_html(rs("remark"),1,150)%> <font class=gray>[<a href='javascript:;' onclick="javascript:open_view('flea_view.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&id=<%=rs("id")%>',1);" alt='点击浏览更详细的信息'>详细信息</a>]</font></font></td></tr>
    </table>
  </td></tr>
  <tr class=bg><td colspan=2 align=center>
    <table border=0 width='99%'>
    <tr>
 <td align=right>联系人：<a href='user_view.asp?username=<%=rs("username")%>'alt='查看 <%=rs("username")%> 详细信息' target=_blank><%=rs("nname")%></a>&nbsp;
 <%if var_null(login_username)="" then%>
 <font class=gray>注册登陆后查看更详细的信息</font>
 <%else%>
 电子邮件：<a href='mailto:<%=rs("email")%>'><%=rs("email")%></a>&nbsp;电话：<%=rs("phone")%>
 <%end if%>
 </td></tr>
</table></td></tr>
<tr><td background="images/bg_dian.gif" height=1></td></tr>
<%
end sub

sub flea_left(f_title,ft,c_num,f_num)
  select case ft
  case "hot"
    sql=" order by counter desc,id desc"
  case "good"
    sql=" and isgood=1 order by id desc"
  case else
    sql=" order by id desc"
  end select
%>
<table class=table>
<tr><td class=td>&nbsp;<%response.write img_skin(web_img_m)%>&nbsp;<%response.write f_title%></td></tr>
<tr class=bg_td><td>
<table border=0 cellspacing=0 cellpadding=2 width='100%'>
<%
  sql="select top "&c_num&" id,c_id,name,counter from flea where otim>"&price_head&now_ymd&price_head&" and hidden=1"&sql
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof 
%>
<tr><td>
<%response.write img_skin(web_img_h)%>
<a href="flea_view.asp?c_id=<%response.write rs("c_id")%>&s_id=<%response.write sid%>&id=<%response.write rs("id")%>" alt='<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)%>' target=_blank>
<%response.write joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,f_num),1)%></a></td></tr>
<%
  rs.movenext
  loop
  rs.close
%>
<tr><td align=right valign=bottom><a href="flea_list.asp?action=<%response.write ft%>" class=tims>more</a>&nbsp;</td></tr>
</table></td></tr></table>
<%
end sub

sub flea_search()
%>
<table width="100%" border=0>
<tbody>
<tr>
<td class=bg_2 valign=bottom align=center>
<table width="100%" align=center border=0 class=bg_td>
<tr height=23>
<%
  sql="select * from jk_class where nsort='flea'"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
  response.write "<td align=center valign=middle><a href='flea_list.asp?c_id="&rs("c_id")&"'"
  if int(cid)=rs("c_id") then response.write " class=red"
  response.write ">"&rs("c_name")&"</a></td>"
  rs.movenext
  loop
  rs.close
%>
</tr></table></td></tr>
<tr><td background="images/bg_dian.gif" height=1></td></tr>
<tr><td align=middle class=bg_tds height=30>
<table cellspacing=0 cellpadding=2 width="100%" border=0>
<tr align=middle>
<td>【<a href="flea_list.asp?types=0&c_id=<%response.write cid%>"<%if types="0" then response.write " class=red"%>>供方信息</a>】</td>
<td>【<a href="flea_list.asp?types=1&c_id=<%response.write cid%>"<%if types="1" then response.write " class=red"%>>求方信息</a>】</td>
<td>【<a href="flea_list.asp"<%if types="" then response.write " class=blue"%>>所有信息</a>】</td>
<td>关键字：</td>
<form name=flea_sea_frm action='flea_list.asp?' method=get>
<input type=hidden name=c_id value='<%response.write cid%>'>
<input type=hidden name=s_id value='<%response.write sid%>'>
<input type=hidden name=action value='<%response.write action%>'>
<input type=hidden name=types value='<%response.write types%>'>
<td>
<input type=text name=keyword value='<%response.write keyword%>' size=12 maxlength=20></td>
<td><select name=sea_type size=1> 
<option value='name'<%if sea_type="name" then response.write " selected"%> selected>信息标题</option>
<option value='price'<%if sea_type="price" then response.write " selected"%>>价格</option>
<option value='nname'<%if sea_type="nname" then response.write " selected"%>>联系人</option>
<option value='username'<%if sea_type="username" then response.write " selected"%>>发布用户</option>
<option value='phone'<%if sea_type="phone" then response.write " selected"%>>联系电话</option>
<option value='url'<%if sea_type="url" then response.write " selected"%>>联系地址</option>
<option value='email'<%if sea_type="email" then response.write " selected"%>>电子邮件</option>
<option value='remark'<%if sea_type="remark" then response.write " selected"%>>信息说明</option>
</select></td>
<td><input type=submit value='搜索' onclick="javascript:return flea_sea();">&nbsp;</td></form>
<td><select onchange="if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}">
<option value='flea_list.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=new&types=<%response.write types%>&keyword=<%response.write keyword%>&sea_type=<%response.write sea_type%>'<%if action="" then response.write " selected"%>>默认排序</option>
<option value='flea_list.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=counter&types=<%response.write types%>&keyword=<%response.write keyword%>&sea_type=<%response.write sea_type%>'<%if action="counter" then response.write " selected"%>>人气排序</option>
<option value='flea_list.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=tim&types=<%response.write types%>&keyword=<%response.write keyword%>&sea_type=<%response.write sea_type%>'<%if action="tim" then response.write " selected"%>>时间排序</option>
<option value='flea_list.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=id&types=<%response.write types%>&keyword=<%response.write keyword%>&sea_type=<%response.write sea_type%>'<%if action="id" then response.write " selected"%>>先后排序</option>
<option value='flea_list.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=hot&types=<%response.write types%>&keyword=<%response.write keyword%>&sea_type=<%response.write sea_type%>'<%if action="id" then response.write " selected"%>>热门信息</option>
<option value='flea_list.asp?c_id=<%response.write cid%>&s_id=<%response.write sid%>&action=good&types=<%response.write types%>&keyword=<%response.write keyword%>&sea_type=<%response.write sea_type%>'<%if action="id" then response.write " selected"%>>推荐信息</option>
</select></td></tr></table></td></tr><tbody></table>
<script language=javascript>
<!--
function flea_sea()
{
  if (document.flea_sea_frm.keyword.value=="")
  {
    alert("搜索前请先输入要查询的 关键字 ！");
    return false;
  }
}
-->
</script>
<%
end sub

sub flea_list()
pageurl="?"
if types<>"" then
   pageurl=pageurl&"types="&types&"&"
   if types="0" then
      types="供方"
   else
      types="求方"
   end if
sqladd=sqladd&" and types='"&types&"'"
end if

call cid_sid_sql(2,sea_type)

sql="select * from flea where otim>"&price_head&now_ymd&price_head&" and hidden=1"&sqladd
select case action
case "counter"
  sql=sql&" order by counter desc,id desc"
case "tim"
  sql=sql&" order by tim desc"
case "id"
  sql=sql&" order by id"
case "hot"
  sql=sql&" order by counter desc,id desc"
case "good"
  sql=sql&" and isgood=1 order by id desc"
case else
  sql=sql&" order by id desc"
end select

set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not(rs.eof and rs.bof) then
  rssum=rs.recordcount
end if
call format_pagecute()

response.write "<table border=0 width='100%'><tr><td class=td>&nbsp;"&img_skin(web_img_m)&""
response.write"信息列表</td></tr>"

if int(viewpage)>1 then
  rs.move (viewpage-1)*nummer
end if
for i=1 to nummer
  if rs.eof then exit for
  dim nid,name
  nid=rs("id"):name=joekoe_cms.code_html(rs("name"),1,0)

  call flea_list_type()

  rs.movenext
next
rs.close:set rs=nothing
%>
<tr><td class=bg_tds height=30>
  <table border=0 width='100%' cellspacing=1 cellpadding=4 class=bg_2>
  <tr valign=bottom><td width='50%'>共有<font class=red><%response.write rssum%></font>条信息，每页<font class=red><%response.write nummer%></font>条，页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font></td>
  <td align=right>分页：<% response.write jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")%> </td></tr>
  </table>
  <table border=0 width='100%' cellspacing=0 cellpadding=4 class=bg_td>
  <tr><td colspan=2 class=td>&nbsp;<%response.write img_skin(web_img_m)%>信息列表说明</td></tr>
  <tr>
  <td colspan=2><%response.write joekoe_cms.js_put("document.write(img_skin('h_'));",1)%>标有<img border=0 src='<%response.write joekoe_cms.web_dir_skin%>small/img.gif' align=absmiddle>&nbsp;表示该条信息有图片说明， 联系方式以及部分功能要 <a href='register.asp'>注册</a> 并 <a href='login.asp'>登陆</a> 才可正常浏览和使用！</td></tr>
  <tr><td colspan=2><%response.write joekoe_cms.js_put("document.write(img_skin('h_'));",1)%>时间颜色说明： <font class=red><%response.write joekoe_cms.time_type(joekoe_cms.now_time,4)%></font> 表示今天发布的信息， <font class=blue><%response.write joekoe_cms.time_type(DateAdd("d", -3, joekoe_cms.now_time),4)%></font> 表示三天内发布的信息。</td>
  </tr>
</table>
</table>
<%
end sub
%>