📄 emailorder.asp
字号:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../head.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=778 border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=150>
<SCRIPT LANGUAGE='JavaScript' SRC='../images/left.js' TYPE='text/javascript'></script>
<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=150
background=../images/leftmanu_bg.gif>
<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD width=150
background=../images/leftmanu_topbg.gif><IMG height=30
src="../images/leftmanu_top.gif"
width=150></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=150 border=0>
<TBODY>
<TR>
<TD class=leftmenu1
onclick="location.href='../index.asp'"><IMG
height=18 src="../images/leftmanu_home.gif" width=16
align=absMiddle> 商务助手首页</TD></TR><TR>
<TD class=leftmenu1
onclick=javascript:menu_display(table1,img1);><IMG id=img1
height=16 src="../images/fold_2.gif" width=16
align=absMiddle> 发布商业信息</TD></TR>
<TBODY id=table1><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../tradeinfo/add_info.asp">发布供求信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../tradeinfo/edit.asp">管理供求信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../productshow/add_product.asp">发布产品信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../productshow/edit.asp">管理产品信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../corporation/company_edit.asp">公司介绍</A> </TD>
</TR></TBODY>
<TBODY>
<TR>
<TD class=leftmenu1 onclick=menu_display(table2,img2)><IMG
id=img2 height=16 src="../images/fold_2.gif" width=16
align=absMiddle> 查看商业往来</TD></TR>
<TBODY id=table2><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../getprice/receivemessagelist.asp">我收到的留言</A></TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../getprice/sendmessagelist.asp">我发出的留言</A> </TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../getprice/sendnewmessage.asp">发新留言</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu3 height=29><IMG src="../images/minus.gif">
<A
class=linkstyle3
href="index.asp"><STRONG>我订阅的信息</STRONG></a> <IMG src="../images/now.gif"></TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../myfriend/index.asp">我的商业伙伴</A> </TD>
</TR></TBODY>
<TR>
<TD class=leftmenu1 onclick=menu_display(table3,img3)><IMG
id=img3 height=16 src="../images/fold_1.gif" width=14
align=absMiddle> 我的会员资料</TD>
</TR>
<TBODY id=table3 style="DISPLAY: none"><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../modify/modify_info.asp">修改注册信息</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../modify/modify_pass.asp">修改密码</A> </TD>
</TR><!-- 正常情况下 -->
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../modify/modify_mine.asp">修改个人简介</A> </TD>
</TR></TBODY>
<TR>
<TD class=leftmenu1 onclick=menu_display(table4,img4)><IMG
id=img4 height=16 src="../images/fold_1.gif" width=14
align=absMiddle> 我的自助网站</TD>
</TR>
<TBODY id=table4 style="DISPLAY: none">
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../corporation/webmod.asp">网站模板选择</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../corporation/cimg_add.asp?id=<%=session("id")%>">上传营业执照</A> </TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../feedback/contact_edit.asp?id=<%=session("id")%>">客户反馈管理</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../work/work.asp">发布招聘信息</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../work/edit.asp">管理招聘信息</A></TD>
</TR>
<TR>
<TD class=leftmenu2><IMG src="../images/plus.gif"> <A
class=linkstyle2
href="../../companyweb.asp"
target=_blank>浏览我的网站</A></TD>
</TR></TBODY>
<TBODY>
<TR>
<TD class=leftmenu1
onclick="javascript:window.open('../../help/index.asp')"><IMG
id=img5 src="../images/leftmenu_help.gif"
align=absMiddle> 帮助</TD></TR></TBODY></TABLE>
<IMG height=6
src="../images/leftmanu_bottom.gif" width=150><BR><BR>
<!--#include file="../guestsubmit.asp"-->
<BR><BR></TD></TR>
</TABLE><BR><BR><BR></TD>
<TD
style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(../images/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff"
vAlign=top align=middle width=628>
<TABLE cellSpacing=0 cellPadding=0 width=628 border=0>
<TBODY>
<TR>
<TD width=459><IMG height=30
src="../images/leftmanu_top1.gif" width=459></TD>
<TD vAlign=top width=141
background=../images/top_nav_bg2.gif></TD>
<TD width=28><IMG height=30 src="../images/top_nav_5.gif"
width=28></TD></TR></TBODY></TABLE><BR>
<TABLE cellSpacing=0 cellPadding=0 width=578 border=0>
<TBODY>
<TR>
<TD><IMG height=32 src="../images/myemail.gif" width=578
border=0></TD>
</TR></TBODY></TABLE>
<TABLE class=content_border cellSpacing=0 cellPadding=0 width=578
border=0>
<TBODY>
<TR>
<TD align=middle><BR>
<TABLE cellSpacing=0 cellPadding=5 width="95%" border=0>
<TBODY>
<TR>
<TD class=C bgColor=#d8ebff><STRONG>浏览按关键字订阅的信息</STRONG></TD>
<TD class=C align=right bgColor=#d8ebff><IMG height=9
src="../../images/indexpoint.gif" width=5> <A
href="ordermodify_begin.asp">修改关键字 </A></TD>
</TR>
<TR>
<TD class="C lh15" bgColor=#f4faff colSpan=2>
<%
maxperpage=20
sql="select * from emailorder where gsid="&session("id")&""
set rs=conn.execute(sql)
if rs.eof or rs.bof then
response.write"您尚未按关键字订阅信息"
else
buyorder=rs("buyorder")
saleorder=rs("saleorder")
if buyorder<>"" then
if instr(buyorder,",")>0 then
Arrbuyorder=split(buyorder,",")
for i=0 to ubound(Arrbuyorder)
response.write"<a href='emailorder.asp?type=buy&keywords="&Arrbuyorder(i)&"'>求购"&Arrbuyorder(i)&"</a> "
next
else
response.write"<a href='emailorder.asp?type=buy&keywords="&buyorder&"'>求购"&buyorder&"</a> "
end if
end if
if saleorder<>"" then
if instr(saleorder,",")>0 then
Arrsaleorder=split(saleorder,",")
for i=0 to ubound(Arrsaleorder)
response.write"<a href='emailorder.asp?type=sale&keywords="&Arrsaleorder(i)&"'>供应"&Arrsaleorder(i)&"</a> "
next
else
response.write"<a href='emailorder.asp?type=sale&keywords="&saleorder&"'>供应"&saleorder&"</a>"
end if
end if
end if
%>
</TD></TR></TBODY></TABLE>
<BR><BR>
<%
if not(rs.eof and rs.bof) then
type1=replace_text(request("type"))
keywords=replace_text(request("keywords"))
select case type1
case "buy"
sql1="select info.info_id,info.showname,corporation.flag from info,corporation where info.type='买' and (info.keywords like '%"&keywords&"%' or info.showname like '%"&keywords&"%' or info.content like '%"&keywords&"%') and corporation.id=info.gsid order by info.dateandtime desc"
case "sale"
sql1="select info.info_id,info.showname,corporation.flag from info,corporation where info.type='卖' and (info.keywords like '%"&keywords&"%' or info.showname like '%"&keywords&"%' or info.content like '%"&keywords&"%') and corporation.id=info.gsid order by info.dateandtime desc"
case else
response.Redirect("../../login/chklogin.asp?login=4")
end select
'response.write sql1
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql1,conn,1,1
if rs1.eof then
response.write"<font color=red>暂无信息</font>"
else
%>
<TABLE cellSpacing=0 cellPadding=0 width="90%" border=0>
<TBODY>
<TR>
<TD bgColor=#9ec5ff>
<TABLE cellSpacing=1 cellPadding=5 width="100%" border=0>
<TBODY>
<TR>
<TD class=C align=middle bgColor=#d8ebff>您订阅的
<%
select case type1
case "buy"
response.write"<FONT color=#ff6600>求购 <STRONG>"&keywords&"</STRONG></FONT>"
case "sale"
response.write"<FONT color=#ff6600>供应 <STRONG>"&keywords&"</STRONG></FONT>"
case else
response.Redirect("../../login/chklogin.asp?login=4")
end select
%>
的最新信息共有 <STRONG><%=rs1.recordcount%></STRONG> 条</TD></TR>
<TR>
<TD align=middle bgColor=#f4faff><BR>
<TABLE cellSpacing=0 cellPadding=0 width="95%"
border=0><TBODY>
<TR>
<%
do while not rs1.eof
%>
<TD class=C vAlign=top width="3%">·<BR><BR></TD>
<TD class=C vAlign=top width="43%"><A class=f3
href="<%select case type1
case "buy"
response.write"../../seller/info.asp?info_id="&rs1("info_id")&""
case "sale"
response.write"../../tradeinfo/info.asp?info_id="&rs1("info_id")&""
case else
response.Redirect("../../login/chklogin.asp?login=4")
end select%>"
target=_blank><%=replace(rs1("showname"),keywords,"<FONT color=red>"&keywords&"</FONT>")%></A>
<%if rs1("flag")=1 then response.write"<IMG alt='诚信通会员' src='../../tradeinfo/images/trustpass_logo_min.gif' align=absMiddle border=0>"%> <BR></TD>
<TD class=C width="6%"> </TD>
<%
a=a+1
if a=2 then
response.Write"</tr>"
a=0
end if
b=b+1
if b>=maxperpage then exit do
rs1.movenext
loop
if rs1.recordcount>20 then
response.write"<TR align=right><TD class=C colSpan=5><IMG height=9 src='../../images/indexpoint.gif' width=5>"
select case type1
case "buy"
response.write" <A href='../../search/searchbuy.asp?keywords="&keywords&"&sortid=' target='_blank'>更多求购<FONT color=#ff6600>"&keywords&"</FONT>信息</A>"
case "sale"
response.write" <A href='../../search/searchsale.asp?keywords="&keywords&"&sortid=' target='_blank'>更多供应<FONT color=#ff6600>"&keywords&"</FONT>信息</A>"
case else
response.Redirect("../../login/chklogin.asp?login=4")
end select
response.write" </TD></TR>"
end if
%>
</TBODY></TABLE><BR></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%
end if
end if
%>
<BR><BR>
<A class=C href="#top">回到页首</A>
<BR><BR><BR><BR></TD></TR></TBODY></TABLE>
<BR><BR>
</TABLE><IMG
height=10 src="../images/bottom.gif" width=778><BR>
<!--#include file="../end.asp"-->
<%
rs1.close
rs1=nothing
rs.close
set rs=nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -