<% Response.Buffer = true Response.ExpiresAbsolute=now()-1 Response.Expires=0 Response.CacheControl="no-cache" %> <% if Not ChkPost then response.redirect ("../../login/chklogin.asp?login=4") response.end end if %>

商务助手首页

发布商业信息

查看商业往来

我订阅的信息

我的会员资料

我的自助网站

帮助

<% set rs=conn.execute("select * from emailorder where gsid="&session("id")&"") if rs.eof or rs.bof then response.redirect("../../login/chklogin?login=4") else %>

您已经成功订阅了以下供求速配信息！

<% orderbuy=rs("buyorder") if orderbuy<>"" then if instr(orderbuy,",")>0 then Arrob=split(orderbuy,",") for i=0 to ubound(Arrob) %> <% next j=i else %> <% end if end if %> <% ordersale=rs("saleorder") if ordersale<>"" then if instr(ordersale,",")>0 then Arros=split(ordersale,",") for i=0 to ubound(Arros) %> <% next else %> <% end if end if %>

序号	我感兴趣的产品	我订阅的信息类型	删除
<%=i+1%>	<%=Arrob(i)%>	求购
1	<%=orderbuy%>	求购
<% if orderbuy<>"" then if instr(orderbuy,",")>0 then response.write j+i+1 else response.write j+i+2 end if else response.write i+1 end if %>	<%=Arros(i)%>	供应
<% if orderbuy<>"" then if instr(orderbuy,",")>0 then response.write j+1 else response.write"2" end if else response.write"1" end if %>	<%=ordersale%>	供应

您的电子邮箱：<%=rs("email")%>

<% end if %>

订阅指南：即日起，我们会在第一时间内把您订阅的供求速配信息发送到您的邮箱。如果发现接收不正常或者有其他的建议，请立即和我们联系！

<% rs.close set rs=nothing conn.close set conn=nothing %>