<!-- #include file="../../include/skin.asp" -->
<!-- #include file="../../include/jk_nsort.asp" -->
<!-- #include file="../../include/jk_keyes.asp" -->
<%

dim titt,col_num,types
col_num=4
cid=0
sid=0
n_sort="gall"
index_url="gallery"
tit_fir=format_menu(index_url)
index_url="gallery"
titt=tit_fir
types=trim(request.querystring("types"))
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel

sub vouch_end()
  if isarray(sort_dim) then erase sort_dim
end sub

sub vouch_left()
titt="精彩推荐"
  dim tmp1,body
    tmp1=CMS_Skin.GetDB("vouch_tool")
  tmp1=Replace(tmp1,"{$web_skin}",joekoe_cms.web_dir_skin)
 call vouch_left_table(titt,tmp1,0,"")
end sub

sub vouch_load(t1,t2,t3)

end sub

sub vouch_left_sort(nsn,ntt)
  dim tmp1,surl,body
  surl="gallery.asp?types="&types&"&"
  if types="web" then surl="website.asp?"
  tmp1=nsort_left_type(surl,ntt)
  call vouch_left_table(nsn,tmp1,0,"") 
end sub

sub vouch_search(stit,s_type,s_types)
  dim tmp1,surl,body
  surl="gallery.asp"
  tmp1=vbcrlf&"<table border=0>" & _
       vbcrlf&"<form name=vouch_sea_frm action='"&surl&"' method=get onsubmit=""javascript:frm_submitonce(this);"">" & _
       vbcrlf&"<input type=hidden name=action value='search'>" & _
       vbcrlf&"<input type=hidden name=types value='"&s_types&"'>" & _
       vbcrlf&"<tr>" & _
       vbcrlf&"<td>"&img_skin("new")&"</td>" & _
       vbcrlf&"<td width=5>"&select_type(stit,0,0)&"</td>" & _
       vbcrlf&"<td><select name=sea_type size=1><option value='topic'>"&stit&"标题</option><option value='keyes'>关键字</option><option value='username'>发布人</option></select></td>" & _
       vbcrlf&"<td><select name=sea_term sizs=1><option value='all'>满足所有条件</option><option value='only'>满足一个条件</option></seelct></td>" & _
       vbcrlf&"<td><input type=text name=keyword size=18 maxlength=20 alt='多个关键字请用 空格 格开' class=bg_search></td>" & _
       vbcrlf&"<td><input type=submit class=btn value='搜索' onclick=""javascript:return search_chk('"&stit&"');""></td>" & _
       vbcrlf&"</form>" & _
       vbcrlf&"</tr>" & _
       vbcrlf&"</table>"
  call vouch_center_table(stit&"-搜索",tmp1,0,"")   
end sub

sub vouch_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("vouch_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 vouch_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("vouch_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
%>
