con_pris.asp

是个不错的文件代码,希望大家好好用,

		<td><img src='<%response.write joekoe_cms.web_dir_skin%>small/new.gif'></td>
<td>关键字：</td>
<form name=pris_sea_frm action='pris_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='dname'<%if sea_type="dname" then response.write " selected"%>>所在地区</option>
                <option value='types'<%if sea_type="types" 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 pris_sea();">&nbsp;</td></form>
<td><select onchange="if(this.options[this.selectedindex].value!=''){location=this.options[this.selectedindex].value;}">
<option value='pris_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='pris_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='pris_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='pris_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='pris_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='pris_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>
<script language=javascript>
<!--
function pris_sea()
{
  if (document.pris_sea_frm.keyword.value=="")
  {
    alert("搜索前请先输入要查询的 关键字 ！");
    return false;
  }
}
-->
</script>
<%
end sub

sub pris_list()
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
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()

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=rs("name")

  call pris_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 pagecute_fun(viewpage,thepages,pageurl)%></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

sub pris_nsort()
%>
<table cellspacing=1 cellpadding=4 width='100%'>
<tr><td width=288 height=25 align=left background='<%response.write joekoe_cms.web_dir_skin%>/bg_td.gif' border=0><b><font color=ffffff>&nbsp;<img src='<%response.write joekoe_cms.web_dir_skin%>small/m_pris.gif'> 行业分类</font></b></td></tr></table>
<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
  response.write "<tr><td><img src='"&joekoe_cms.web_dir_skin&"small/s_pris.gif'>&nbsp;&nbsp;<a href='pris_list.asp?c_id="&rs("c_id")&"'"
  if int(request.querystring("c_id"))=rs("c_id") then response.write " class=red"
  response.write ">"&rs("c_name")&"</a></td></tr>"
  rs.movenext
  loop
  rs.close
%>
</td></tr></table>
<%
end sub

sub pris_left_qyjz()
%>
<table cellspacing=1 cellpadding=2 width='100%'>
<tr><td width=288 height=25 align=left background='<%response.write joekoe_cms.web_dir_skin%>/bg_td.gif' border=0><b><font color=ffffff>&nbsp;<img src='<%response.write joekoe_cms.web_dir_skin%>small/m_pris.gif'> 企业性质</font></b></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=0&c_id=<%response.write cid%>"<%if types="0" then response.write " class=red"%>>行政机关</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=1&c_id=<%response.write cid%>"<%if types="1" then response.write " class=red"%>>社会团体</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=2&c_id=<%response.write cid%>"<%if types="2" then response.write " class=red"%>>事业单位</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=3&c_id=<%response.write cid%>"<%if types="3" then response.write " class=red"%>>国有企业</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=4&c_id=<%response.write cid%>"<%if types="4" then response.write " class=red"%>>三资企业</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=5&c_id=<%response.write cid%>"<%if types="5" then response.write " class=red"%>>集体企业</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=6&c_id=<%response.write cid%>"<%if types="6" then response.write " class=red"%>>乡镇企业</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp?types=7&c_id=<%response.write cid%>"<%if types="7" then response.write " class=red"%>>私营企业</a></td></tr>
 <tr><td align="center"><img src='<%response.write joekoe_cms.web_dir_skin%>small/top_pris.gif'>&nbsp;&nbsp;<a href="pris_list.asp"<%if types="" then response.write " class=red"%>>所有企业</a></td></tr>
 </table>
<%
end sub
'****************************************************
' 玫瑰情缘 2006v3.0      power by www.meigui8.cn
' email: [e-mail]  , [e-mail]
' web: http://www.meigui8.cn
' copyright (c) 2006 meigui8.cn all rights reserved.
'****************************************************
%>