con_web.asp

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

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

dim n_name
cid=0
sid=0
n_sort="shop"
index_url="shop"
tit_fir=format_menu(index_url)
m_channel=index_url
web_img_m="m_"&m_channel
web_img_h="h_"&m_channel

sub shop_load(t1,t2,t3)
  response.write joekoe_cms.js_put(joekoe_cms.web_dir&"style/con_shop.js",0)
end sub

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

function fm_discount(dvar)
  if dvar>=100 then
    fm_discount="不打折"
    exit function
  end if 
  fm_discount=cstr(dvar/10)&"折"
end function

sub shop_search()
  response.write shop_bar_top("产品搜索",0,3)
  response.write ukong
%>
<table border=0>
<form name=shop_sea_frm action='shop_list.asp' method=get onsubmit="javascript:frm_submitonce(this);">
<input type=hidden name=action value='search'>
<tr>
<td><%response.write img_skin("new")%></td>
<td width=5></td>
<td><%response.write select_type("产品",0,0)%></td>
<td width=5></td>
<td><select name=sea_type sizs=1><option value='name'>产品名称</option><option value='price'>产品价格</option><option value='brand'>产品品牌</option><option value='serial'>产品编号</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>
<%    
  response.write shop_bar_end("",0)
end sub

function shop_bar_top(tvar,tt,ttype)
  dim w_wid,temp1
  w_wid="70"
  if len(tvar)>8 then w_wid="240"
  if len(tvar)>20 then w_wid="400"
  temp1=temp1&vbcrlf&"<table border=0 cellspacing=1 cellpadding=0 width='100%' bgcolor='#990000'>" & _
              vbcrlf&"<tr><td height=29 background='/skin/aouoo_skin/index/bar_bg.jpg'>" & _
              vbcrlf&"  <table border=0 cellspacing=0 cellpadding=0 width='100%'>" & _
              vbcrlf&"  <tr height=29>" & _
              vbcrlf&"  <td>&nbsp;&nbsp;<img src='/skin/aouoo_skin/index/class3_gold.gif' align='absmiddle' />&nbsp;<font color='#FFFFFF'>"&tvar&"</font></td>" & _
        vbcrlf&"  </tr>" & _
        vbcrlf&"  </table>" & _
        vbcrlf&"</td></tr>" & _
              vbcrlf&"<tr><td align=center>"
  if tt=1 then temp1=temp1&vbcrlf&"  <table border=0 width='100%'>"
  shop_bar_top=temp1
end function

function shop_bar_end(mvar,tt)
  dim temp1
  if tt=1 then temp1=temp1&vbcrlf&"  </table>"
  temp1=temp1&vbcrlf&"</td></tr>"
  if mvar<>"" then temp1=temp1&vbcrlf&"<tr><td align=right>"&mvar&"&nbsp;&nbsp;</td></tr>"
  temp1=temp1&vbcrlf&"</table>"
  shop_bar_end=temp1
end function

function shop_topic_type(b_c_num,b_id,b_topic,b_tim)
  dim n_url,n_jt
  n_url="shop_cast.asp?action=view&id="&b_id
  n_jt=img_skin(web_img_h)
  shop_topic_type="<tr><td>"&n_jt&"<a href='"&n_url&"' alt='公告标题："&joekoe_cms.code_html(b_topic,1,0)&"<br>发布时间："&b_tim&"' target=_blank>"&joekoe_cms.code_html(b_topic,1,b_c_num)&"</a></td></tr>"
end function

function shop_list_type(n_id,n_name,n_smallimg,n_brand,n_price,n_price_now,n_discount,n_is_emoney,n_emoney,n_remark_2,n_stock)
  dim temp1,s_pic
  s_pic=n_smallimg
  if s_pic="" or s_pic="http://" then
  s_pic="upload/no_pic.gif"
  else
  if instr(s_pic,"://")<1 then
  s_pic=joekoe_cms.web_upload&s_pic
  end if
  end if
  temp1=temp1&vbcrlf&"<td>" & _
              vbcrlf&"<table width='662' border='0' align='center' cellpadding='5' cellspacing='1' bgcolor='#cccccc'><tr>" & _
              vbcrlf&"<td width='193' bgcolor='#FFFFFF' align=center><img src='/"&s_pic&"' width=158 height=122 border=0></td><td width='466' bgcolor='#FFFFFF'>" & _
              vbcrlf&"<TABLE width='100%' border=0 bgcolor='#F4F4F4' cellpadding='2' cellspacing='1><TR bgcolor='#FFFFFF'><TD colSpan=2 height=26><strong>"&n_name&"</strong></FONT></TD></TR><TR bgcolor='#FFFFFF'><TD width='39%'>推荐等级：<FONT class=red>"&n_brand&"</font></TD>" & _
              vbcrlf&"<TD width='61%' rowSpan=5 style=""line-height:14pt""><FONT class=htd>名称：&nbsp;时代数据 - "&n_name&"<BR>"&n_remark_2&"</TD></TR><TR bgcolor='#FFFFFF'><TD>商品价格：<FONT class=red>"&n_price_now&"</FONT> 元</TD></TR><TR bgcolor='#FFFFFF'><TD>商品原价："&n_price&" 元 <FONT class=red2>"&n_discount&"</FONT></TD></TR><TR bgcolor='#FFFFFF'><TD>商品库存："&n_stock&"</TD></TR><TR bgcolor='#FFFFFF'><TD>立即购买&nbsp;[<a href='/support/remiog.asp' target=_blank><font color='#0000ff'>查看汇款方式</font></a>]</TD></TR></TABLE></td></tr></table>" & _
              vbcrlf&"</td>"
  shop_list_type=temp1
end function

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