con_vouch.asp

..不怎么明白。不知道这个市什么只想下个服务端

<!-- #include file="../../include/skin.asp" -->
<!-- #include file="../../include/jk_nsort.asp" -->
<!-- #include file="../../include/jk_keyes.asp" -->
<%
'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************

dim titt,col_num,types
col_num=4
cid=0
sid=0
n_sort="gall"
index_url="vouch"
tit_fir=format_menu(index_url)
index_url="vouch"
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()
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)&"精彩推荐"%></td></tr>
<tr class=bg_td><td align=center>
  <table border=0 cellspacing=2 cellpadding=4 width='60%'>
  <tr><td><%response.write img_skin(web_img_m)%><a href='gallery.asp?types=paste'<%if types="paste" then response.write " class=red"%>>精彩贴图</a></td></tr>
  <tr><td><%response.write img_skin(web_img_m)%><a href='gallery.asp?types=flash'<%if types="flash" then response.write " class=red"%>>精彩Flash</a></td></tr>
  <tr><td><%response.write img_skin(web_img_m)%><a href='gallery.asp?types=film'<%if types="film" then response.write " class=red"%>>精彩视频</a></td></tr>
  <tr><td><%response.write img_skin(web_img_m)%><a href='website.asp'<%if types="web" then response.write " class=red"%>>推荐网站</a></td></tr>
  </table>
</td></tr>
</table>
<%
  response.write ukong
end sub

sub vouch_load(t1,t2,t3)

end sub

sub vouch_left_sort(nsn,ntt)
%>
<table cellspacing=1 cellpadding=4 class=table>
<tr><td class=td0>&nbsp;<%response.write img_skin(web_img_m)&nsn%></td></tr>
<tr class=bg_td><td align=center>
<%response.write nsort_left_type("gallery.asp?types="&types&"&",ntt)%>
</td></tr>
</table>
<%
  response.write ukong
end sub

sub vouch_search(stit,s_type,s_types)
  dim surl:surl="gallery.asp"
  if int(s_type)=1 then surl="website.asp"
%>
<table border=0>
<form name=vouch_sea_frm action='<% response.write surl %>' method=get onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=action value='search'>
<input type=hidden name=types value='<%response.write s_types%>'>
<tr>
<td><%response.write img_skin("new")%></td>
<td width=5><%response.write select_type(stit,0,0)%></td>
<td></td>
<td width=5></td>
<td><select name=sea_type sizs=1><option value='topic'><%response.write stit %>标题</option><option value='username'>发布人</option></seelct></td>
<td width=5></td>
<td><select name=sea_term sizs=1><option value='all'>满足所有条件</option><option value='only'>满足一个条件</option></seelct></td>
<td width=5></td>
<td><input type=text name=keyword value='请输入关键字' onfocus="if (value =='请输入关键字'){value =''}" onblur="if (value ==''){value='请输入关键字'}" size=15 maxlength=20 title='多个关键字请用 空格 格开'></td>
<td width=5></td>
<td><input type=submit value='搜索'></td>
</tr></form></table>
<%
end sub

'****************************************************
' Web: http://www.aouoo.com , http://www.aouoo.net
' Copyright (C) 2007 Aouoo.com All Rights Reserved.
'****************************************************
%>