<!-- #include file="../../include/skin.asp" -->
<!-- #include file="../../include/jk_nsort.asp" -->
<!-- #include file="../../include/jk_page_cute.asp" -->
<!-- #include file="../../include/jk_mail.asp" -->
<!-- #include file="../../include/common_pris.asp" -->
<%
dim pageurl,nummer,sqladd,page,rssum,thepages,viewpage,id,c_id,username,keyword,sea_type,types
nummer=5
rssum=0
n_sort="pris"
index_url="pris"
tit_fir=format_menu(index_url)
id=trim(request.querystring("id"))
c_id=trim(request.querystring("c_id"))
if not(isnumeric(id)) then id=0
call cid_sid()
keyword=joekoe_cms.code_form(request.querystring("keyword"))
sea_type=trim(request.querystring("sea_type"))
types=trim(request.querystring("types"))
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel


sub pris_main(f_title,ft,c_num,f_num)
dim tmps,body,tmp_title,i,ii:ii=0
tmps=vbcrlf&"<tr><td align=left>" & _
vbcrlf&"<table cellspacing=1 cellpadding=4 align=left>" & _
vbcrlf&"<tr><td>"
  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
  sql="select top "&c_num&" id,c_id,name,counter from pris where hidden=1"&sql
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof 
  tmps=tmps&vbcrlf&"<tr>"
  for i=1 to 2
  if rs.eof then exit for
tmps=tmps&vbcrlf&"<td width='65%'>" & _
vbcrlf&""&img_skin(web_img_h)&"" & _
vbcrlf&"<a href='view.asp?c_id="&rs("c_id")&"&s_id="&sid&"&id="&rs("id")&"' alt='"&joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)&"' target=_blank>" & _
vbcrlf&""&joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,f_num),1)&"</a></td>" & _
  rs.movenext
  ii=ii+1
  next
tmps=tmps&vbcrlf&"</tr>"
  loop
  rs.close
tmps=tmps&vbcrlf&"</td></tr>" & _
vbcrlf&"<tr><td></td><td align=right valign=bottom><a href='list.asp?action="&ft&"' class=tims>more</a>&nbsp;</td></tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"</td></tr>"
call pris_center_table(f_title,tmps,1,"")
end sub

function pris_put()
  pris_put= "<a href='../user/put.asp?action=pris'><img src='../images/flea/pris_put.gif' alt='发布我的企业信息' border=0></a>" 
end function

sub pris_view()
dim tmps
  call joekoe_cms.exec("update pris set counter=counter+1 where id="&id,0)
  sql="select * from pris where id="&id
  set rs=joekoe_cms.exec(sql,1)
tmps=vbcrlf&"<table cellspacing=1 cellpadding=4>" & _
vbcrlf&"<tr><td  align=center>" & _
vbcrlf&"  <table border=0 width='100%' class=tf>" & _
vbcrlf&"  <tr><td class=bw align=center><font size=3 class=blue><b><font class=red>["&rs("types")&"]</font>"&joekoe_cms.code_html(rs("name"),1,0)&"</b></font></td></tr>" & _
vbcrlf&"  </table>" & _
vbcrlf&"</td></tr>" & _
vbcrlf&"<tr><td height=1 background='images/bg_dian.gif'></td></tr>" & _
vbcrlf&"<tr><td  align=center>" & _
vbcrlf&"<table border=0 width='100%'>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td width='25%'>"&pic_fk(rs("pic"),2,"")&"</td>" & _
vbcrlf&"<td width='75%' valign=top>" & _
vbcrlf&"<table border=0 width='98%'>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td width='98%'>企业名称：<font class=red>"&rs("name")&"</font></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"<table border=0 width='98%'>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td width='50%'>企业性质：<font class=red>"&rs("types")&"</font></td>" & _
vbcrlf&"<td width='50%'>法人代表：<font class=red>"&rs("fname")&"</font></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td width='50%'>所在地区：<font class=red>"&rs("dname")&"</font></td>" & _
vbcrlf&"<td width='50%'>成立时间：<font class=red>"&rs("sname")&"</font></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td width='50%'>员工人数：<font class=red>"&rs("yname")&"</font>&nbsp;个人</td>" & _
vbcrlf&"<td width='50%'>注册资金：<font class=red>"&rs("price")&"</font>&nbsp;万人民币 </td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td width='50%'>浏览次数："&rs("counter")&"&nbsp;次</td>" & _
vbcrlf&"<td width='50%'>发布时间："&joekoe_cms.time_type(rs("tim"),4)&"</td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"<table border=0 width='98%' class=tf>" & _
vbcrlf&"<tr><td class=bw><font class=htd>"&joekoe_cms.code_html(rs("remark"),2,0)&"</font></td></tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"</td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"</td></tr>" & _
vbcrlf&"<tr><td class=trs>&nbsp;&nbsp;&nbsp;联系信息</td></tr>" 
if var_null(login_username)="" then
tmps=tmps&"<tr><td height=40  align=center>"&web_nologin&"</td></tr>"
else
tmps=tmps&vbcrlf&"<tr><td  align=right>" & _
vbcrlf&"<table border=0 width='99%' class=tf>" & _
vbcrlf&"  <tr><td>联系地址："&joekoe_cms.code_html(rs("address"),2,300)&"</td></tr>" & _
vbcrlf&" <tr><td width='65%'>联 系 人："&rs("nname")&"</td>" & _
vbcrlf&" <td width='35%'>发布人："&rs("username")&"</td></tr>" & _
vbcrlf&"<tr><td>联系电话："&rs("phone")&"</td>" & _
vbcrlf&"<td>邮政编码："&rs("yzbm")&"</td></tr>" & _
vbcrlf&"  <tr><td>电子邮件：<a href='mailto:"&rs("email")&"'>"&rs("email")&"</a></td><td>相关网址：<a href='"&rs("url")&"'>"&rs("url")&"</a></td></tr>" & _
vbcrlf&"  </table>" & _
vbcrlf&"</td></tr>" 
end if
tmps=tmps&vbcrlf&"<tr><td class=trs>&nbsp;&nbsp;&nbsp;给 "&rs("username")&" 发短信</td></tr>"
if var_null(login_username)="" then
tmps=tmps&vbcrlf&"<tr><td height=40  align=center>"&web_nologin&"</td></tr>"
else
tmps=tmps&vbcrlf& "<tr><td>"

if frm_chk() then
  dim accept_u,topic,word,found_err,types,isread,sendname,user_on
  accept_u=trim(request.form("accept_u"))
  topic=trim(request.form("topic"))
  word=trim(request.form("word"))
  found_err=""
  if true_accept(accept_u)=false then
     found_err=found_err&"+您输入的 <font class=red>收 件 人</font> 为空或不存在！<br>"
  end if
  if topic="" or len(topic)>20 then
     found_err=found_err&"+您输入的 <font class=red>短信主题</font> 为空或长度超过20！<br>"
  end if
  if word="" or len(word)>250 then
     found_err=found_err&"+您输入的 <font class=red>短信内容</font> 为空或长度超过250！<br>"
  end if
  if found_err<>"" then
     tmps=tmps&vbcrlf&"<tr><td  colspan=2 align=center height=200>"
      tmps=tmps&found_error(found_err,250)
      tmps=tmps&vbcrlf&"</td></tr>"
    response.write tmps
    exit sub
  end if
  types=1
  isread=0
  sendname="发送"
  sql="select top 1 l_username from user_login where l_username='"&accept_u&"'"
    set rs=joekoe_cms.exec(sql,1)
    if not rs.eof then
      user_on=rs(0)
    end if
  rs.close
  sql="select id,username from user_data where username='"&accept_u&"'"
    set rs=joekoe_cms.exec(sql,1)
    if  user_on=rs(1) then application(joekoe_cms.web_cookies&"_"&rs(0))=rs(0)
  rs.close
  sql="insert into user_mail(send_u,accept_u,topic,word,tim,types,isread) " & _
		"values ('"&login_username&"','"&accept_u&"','"&topic&"','"&word&"','"&joekoe_cms.now_time&"',"&types&","&isread&")"
  call joekoe_cms.exec(sql,0)
  call web_js_msg(1,"已成功"&sendname&"一条站内短信！","?id="&id&"")
  exit sub
end if
tmps=tmps&"<table border=0 width='100%' cellspacing=0 cellpadding=4>" & _
vbcrlf&"<form name=write_frm action='?action="&action&"&id="&id&"' method=post onsubmit=""javascript:frm_submitonce(this);"">" & _
vbcrlf&"<input type=hidden name=chk value='yes'>" & _
vbcrlf&"<input type=hidden name=send value=''>" & _
vbcrlf&"<tr >" & _
vbcrlf&"<td width='20%'>收 件 人：</td>" & _
vbcrlf&"<td width='80%'>" & _
vbcrlf&"<table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&"<tr><td><input type=text name=accept_u value='"&rs("username")&"' size=30 maxlength=20>"&redx&"<=20</td><td>"&friend_select()&"</td>" & _
vbcrlf&"</tr></table>" & _
vbcrlf&"</td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td>短信主题：</td>" & _
vbcrlf&"<td><input type=text name=topic value='关于企业信息（"&joekoe_cms.code_html(rs("name"),1,8)&"）' size=60 maxlength=20></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr >" & _
vbcrlf&"<td class=htd>短信内容：<br>EM贴图支持<br>UBB不支持<br>HTML不支持<br>长度<=250字节</td>" & _
vbcrlf&"<td><textarea name=word rows=7 cols=60>有关您发的信息“"&rs("name")&"”，我很感兴趣。请问怎么联系你最为方便！</textarea></td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr>" & _
vbcrlf&"<td colspan=2 align=center>"&jk_em("write_frm","word")&"</td>" & _
vbcrlf&"</tr>" & _
vbcrlf&"<tr class=trb><td height=30 colspan=2 align=center><input type=submit value='发送短信'>　　<input type=reset value='重新填写'>　　<input type=button value='返回上页' onclick=""javascript:history.back(1);""></td></tr>" & _
vbcrlf&"</form></table>"
%>
<script language=javascript>
  function do_accept(addaccept)
  {
  	if (addaccept!="")
  	{ document.write_frm.accept_u.value=addaccept; }
  }
</script>
<%
tmps=tmps&"</td></tr>"
end if
tmps=tmps&vbcrlf&"</table>" 
call pris_center_table("企业浏览",tmps,0,"")

tmps=vbcrlf& review_type(n_sort,id,joekoe_cms.web_path&"pris/view.asp?id="&id,1,username)
call pris_center_table("相关评论",tmps,0,"")
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='' >选择我的好友</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 pris_left(f_title,ft,c_num,f_num)
dim tmps,body,tmp_title
 tmps=tmps&vbcrlf&"<table cellspacing=0 cellpadding=1 class=table>" & _
              vbcrlf&"<tr><td></td></tr>" & _
              vbcrlf&"<tr ><td align=center>" & _
              vbcrlf&"  <table border=0 cellspacing=0 cellpadding=2 width='100%'>"
  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
  sql="select top "&c_num&" id,c_id,name,counter from pris where otim>"&price_head&now_ymd&price_head&" and hidden=1"&sql
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof 
tmps=tmps&vbcrlf&"<tr><td>" & _
vbcrlf&""&img_skin(web_img_h)&"" & _
vbcrlf&"<a href='view.asp?c_id="&rs("c_id")&"&s_id="&sid&"&id="&rs("id")&"' alt='"&joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,0),1)&"' target=_blank>" & _
vbcrlf&""&joekoe_cms.code_js(joekoe_cms.code_html(rs("name"),1,f_num),1)&"</a></td></tr>" & _
  rs.movenext
  loop
  rs.close
tmps=tmps&vbcrlf&"<tr><td align=right valign=bottom><a href='list.asp?action="&ft&"' class=tims>more</a>&nbsp;</td></tr>" & _
vbcrlf&"</table></td></tr></table>"
call pris_left_table(f_title,tmps,0,"")
end sub

sub pris_search()
	dim tmps,types_temp,action_temp,selected_temp
	select case types
	case "0","1","" 
		types_temp=" class=red"
		types_temp=" class=red"
		types_temp=" class=blue"
	end select
	select case sea_type
	case "name","price","nname","username""phone","url","email","remark" 
		selected_temp=" selected"
	end select
    select case action
	case "","counter","tim","id","id","id"
		action_temp=" selected"
	end select
tmps=tmps&vbcrlf&"<table cellspacing=0 cellpadding=0 width=98% ><tr>" & _
vbcrlf&"<td>关键字：</td>" & _
vbcrlf&"<form name=pris_sea_frm action='list.asp?' method=get>" & _
vbcrlf&"<input type=hidden name=c_id value='"&cid&"'>" & _
vbcrlf&"<input type=hidden name=s_id value='"&sid&"'>" & _
vbcrlf&"<input type=hidden name=action value='"&action&"'>" & _
vbcrlf&"<input type=hidden name=types value='"&types&"'>" & _
vbcrlf&"<td>" & _
vbcrlf&"<input type=text name=keyword value='"&keyword&"' size=20 maxlength=20></td>" & _
vbcrlf&"<td><select name=sea_type size=1>" & _ 
vbcrlf&"<option value='name'"&selected_temp&" selected>企业名称</option>" & _
vbcrlf&"<option value='dname'"&selected_temp&">所在地区</option>" & _
vbcrlf&"<option value='types'"&selected_temp&">企业性质</option>" & _
vbcrlf&"<option value='username'"&selected_temp&">发布用户</option>" & _
vbcrlf&"<option value='phone'"&selected_temp&">联系电话</option>" & _
vbcrlf&"<option value='url'"&selected_temp&">联系地址</option>" & _
vbcrlf&"<option value='email'"&selected_temp&">电子邮件</option>" & _
vbcrlf&"<option value='remark'"&selected_temp&">企业说明</option>" & _
vbcrlf&"</select></td>" & _
vbcrlf&("<td><input type=submit value='搜索' onclick=""javascript:return pris_sea();"">&nbsp;</td></form>" & _
vbcrlf&"<td><select onchange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">" & _
vbcrlf&"<option value='list.asp?c_id="&cid&"&s_id="&sid&"&action=new&types="&types&"&keyword="&keyword&"&sea_type="&sea_type&"'"&action_temp&">默认排序</option>" & _
vbcrlf&"<option value='list.asp?c_id="&cid&"&s_id="&sid&"&action=counter&types="&types&"&keyword="&keyword&"&sea_type="&sea_type&"'"&action_temp&">人气排序</option>" & _
vbcrlf&"<option value='list.asp?c_id="&cid&"&s_id="&sid&"&action=tim&types="&types&"&keyword="&keyword&"&sea_type="&sea_type&"'"&action_temp&">时间排序</option>" & _
vbcrlf&"<option value='list.asp?c_id="&cid&"&s_id="&sid&"&action=id&types="&types&"&keyword="&keyword&"&sea_type="&sea_type&"'"&action_temp&">先后排序</option>" & _
vbcrlf&"<option value='list.asp?c_id="&cid&"&s_id="&sid&"&action=hot&types="&types&"&keyword="&keyword&"&sea_type="&sea_type&"'"&action_temp&">热门企业</option>" & _
vbcrlf&"<option value='list.asp?c_id="&cid&"&s_id="&sid&"&action=good&types="&types&"&keyword="&keyword&"&sea_type="&sea_type&"'"&action_temp&">推荐企业</option>" & _
vbcrlf&"</select></td></tr></table>") 
%>	
<script language=javascript>
	<!--
	function pris_sea()
	{
	  if (document.pris_sea_frm.keyword.value=="")
	  {
		alert("搜索前请先输入要查询的 关键字 ！");
		return false;
	  }
	}
	-->
	</script>
	<%
	call pris_center_table("企业搜索",tmps,0,"")
end sub

sub pris_list()
dim tmps,t_color:t_color=" class=tims"
pageurl="?c_id="&cid&"&s_id="&sid&"&action="&action&"&"
if types<>"" then
   pageurl=pageurl&"types="&types&"&"
   if types="0" then
      types="行政机关"
   else
   end if
  if types="1" then
      types="社会团体"
   else
   end if
 if types="2" then
      types="事业单位"
   else
   end if
if types="3" then
      types="国有企业"
   else
   end if
if types="4" then
      types="三资企业"
   else
   end if
if types="5" then
      types="集体企业"
   else
   end if
if types="6" then
      types="乡镇企业"
   else
   end if
if types="7" then
      types="私营企业"
   else
   end if
if types="8" then
      types="海外集团"
   else
   end if
sqladd=sqladd&" and types='"&types&"'"
end if

call cid_sid_sql(2,sea_type)

sql="select * from pris where 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()
tmps=vbcrlf&"<table border=0 width='100%'><tr><td>" & _
vbcrlf&"</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) 
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"
tmps=tmps&vbcrlf&"<tr><td colspan=2 height=23  background='../images/flea/bar.gif'>" & _
vbcrlf&"<table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
vbcrlf&"<tr><td>&nbsp;"&img_skin(web_img_h)&"<b>" & _
vbcrlf&"<b>&nbsp;<a href='view.asp?c_id="&cid&"&s_id="&sid&"&id="&rs("id")&"' target=_blank>"&joekoe_cms.code_html(rs("name"),1,0)&"</a></b>" 
if rs("pic")<>"" then 
tmps=tmps&vbcrlf&"'&nbsp;<img border=0 src='"&joekoe_cms.web_dir_skin&"small/img.gif' align=absmiddle alt='有图片'>'</td>" 
end if
tmps=tmps&vbcrlf&"<td align=right class=tims><font"&t_color&">"&joekoe_cms.time_type(rs("tim"),4)&"</font>&nbsp;&nbsp;</td></tr>" & _
vbcrlf&"    </table>" & _
vbcrlf&"  </td></tr>" & _
vbcrlf&"  <tr><td colspan=2 align=center >" & _
vbcrlf&"    <table border=0 width='99%' class=bw>" & _
vbcrlf&"    <tr><td class=tf><font class=htd>"&joekoe_cms.code_html(rs("remark"),1,150)&" <font class=gray>[<a href='javascript:;' onclick=""javascript:open_view('view.asp?c_id="&cid&"&s_id="&sid&"&id="&rs("id")&"',1);"" alt='点击浏览更详细的信息'>详细信息</a>]</font></font></td></tr>" & _
vbcrlf&"    </table>" & _
vbcrlf&"  </td></tr>" & _
vbcrlf&"  <tr class=bg><td colspan=2 align=center>" & _
vbcrlf&"    <table border=0 width='99%'>" & _
vbcrlf&"    <tr>" & _
vbcrlf&" <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
tmps=tmps&vbcrlf&" <font class=gray>注册登陆后查看更详细的信息</font>" 
 else
tmps=tmps&vbcrlf&"电子邮件：<a href='mailto:"&rs("email")&"'>"&rs("email")&"</a>&nbsp;电话："&rs("phone")&""
 end if
tmps=tmps&vbcrlf&" </td></tr>" & _
vbcrlf&"</table></td></tr>" & _
vbcrlf&"<tr><td background='images/bg_dian.gif' height=1></td></tr>"
  rs.movenext
next
rs.close:set rs=nothing
tmps=tmps&vbcrlf&"<tr><td height=30>" & _
vbcrlf&"  <table border=0 width='100%' cellspacing=1 cellpadding=4 class=bg_2>" & _
vbcrlf&"  <tr valign=bottom><td width='50%'>共有<font class=red>"&rssum&"</font>条信息，每页<font class=red>"&nummer&"</font>条，页次：<font class=red>"&viewpage&"</font>/<font class=red>"&thepages&"</font></td>" & _
vbcrlf&"  <td align=right>"&pagecute_fun(viewpage,thepages,pageurl)&"</td></tr>" & _
vbcrlf&"  </table>" & _
vbcrlf&"  <table border=0 width='100%' cellspacing=0 cellpadding=4 >" & _
vbcrlf&"  <tr><td colspan=2 class=trs>&nbsp;信息列表说明</td></tr>" & _
vbcrlf&"  <tr>" & _
vbcrlf&"  <td colspan=2>"&joekoe_cms.js_put("document.write(img_skin('h_'));",1)&"标有<img border=0 src='"&joekoe_cms.web_dir_skin&"small/img.gif' align=absmiddle>&nbsp;表示该条信息有图片说明， 联系方式以及部分功能要 <a href='register.asp'>注册</a> 并 <a href='login.asp'>登陆</a> 才可正常浏览和使用！</td></tr>" & _
vbcrlf&"  <tr><td colspan=2>"&joekoe_cms.js_put("document.write(img_skin('h_'));",1)&"时间颜色说明： <font class=red>"&joekoe_cms.time_type(joekoe_cms.now_time,4)&"</font> 表示今天发布的信息， <font class=blue>"&joekoe_cms.time_type(DateAdd("d", -3, joekoe_cms.now_time),4)&"</font> 表示三天内发布的信息。</td>" & _
vbcrlf&"  </tr>" & _
vbcrlf&"</table>" & _
vbcrlf&"</table>"
call pris_center_table("企业列表",tmps,0,"")
end sub

sub pris_left_qy()
dim wdim,tmps,types_temp
tmps=tmps&vbcrlf&"<table cellspacing=1 cellpadding=2 width='100%'>" & _
vbcrlf&"<tr><td><b></td></tr>"
  wdim=split(pris_dim(0),"|")
  for i=0 to ubound(wdim)
  tmps=tmps&vbcrlf&" <tr><td align=center><img src='"&joekoe_cms.web_dir_skin&"small/top_pris.gif'>&nbsp;&nbsp;<a href='list.asp?types="&right(wdim(i),len(wdim(i))-instr(wdim(i),":"))&"&c_id="&cid&"'>"&right(wdim(i),len(wdim(i))-instr(wdim(i),":"))&"</td></tr>"
  next
  erase wdim

 tmps=tmps&vbcrlf&"<tr><td align=center><img src='"&joekoe_cms.web_dir_skin&"small/top_pris.gif'>&nbsp;&nbsp;<a href='list.asp'"&types_temp&" class=red>所有企业</a></td></tr>" & _
 vbcrlf&"<tr><td align=center>"&pris_put()&"</td></tr>"&_
 vbcrlf&"</table>"
call pris_left_table("企业类型",tmps,0,"")
end sub

sub pris_nsort()
dim tmps
tmps=tmps&vbcrlf&"<table cellspacing=1 cellpadding=4 width='100%'>" & _
vbcrlf&"<tr><td width=288 align=left></td></tr></table>" & _
vbcrlf&"<table cellspacing=1 cellpadding=2>" 

  sql="select * from jk_class where nsort='pris'"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
  tmps=tmps&vbcrlf&"<tr><td><img src='"&joekoe_cms.web_dir_skin&"small/s_pris.gif'>&nbsp;&nbsp;<a href='list.asp?c_id="&rs("c_id")&"'"
  if int(request.querystring("c_id"))=rs("c_id") then tmps=tmps&vbcrlf& " class=red"
  tmps=tmps&vbcrlf&">"&rs("c_name")&"</a></td></tr>"
  rs.movenext
  loop
  rs.close
tmps=tmps&vbcrlf&"</td></tr></table>"
call pris_left_table("企业分类",tmps,0,"")
end sub

sub pris_center_table(tit,body,tt,ttype)
  dim w_wid,tmp1
  w_wid="70"
  if len(tit)>8 then w_wid="240"
  if len(tit)>20 then w_wid="400"
  if tt=1 then body="<table border=0 width='100%'>"&body&"</table>"
  tmp1=CMS_Skin.GetDB("pris_center")
  tmp1=Replace(tmp1,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp1=Replace(tmp1,"{$img}",img_skin(web_img_m))
  tmp1=Replace(tmp1,"{$tit}",tit)
  tmp1=Replace(tmp1,"{$body}",body)
  tmp1=Replace(tmp1,"{$mores}","")
  tmp1=Replace(tmp1,"{$ends}","")
  tmp1=Replace(tmp1,"{$ukong}",CMS_Skin.skukong)
  Response.Write (Vbcrlf&tmp1)
end sub

sub pris_left_table(tit,body,tt,ttype)
  dim w_wid,tmp1
  w_wid="70"
  if len(tit)>8 then w_wid="240"
  if len(tit)>20 then w_wid="400"
  if tt=1 then body="<table border=0 width='100%'>"&body&"</table>"
  tmp1=CMS_Skin.GetDB("pris_left")
  tmp1=Replace(tmp1,"{$web_skin}",joekoe_cms.web_dir_skin)
  tmp1=Replace(tmp1,"{$img}",img_skin(web_img_m))
  tmp1=Replace(tmp1,"{$tit}",tit)
  tmp1=Replace(tmp1,"{$body}",body)
  tmp1=Replace(tmp1,"{$mores}","")
  tmp1=Replace(tmp1,"{$ends}","")
  tmp1=Replace(tmp1,"{$ukong}",CMS_Skin.skukong)
  Response.Write (Vbcrlf&tmp1)
end sub
%>