index.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
 <%
      call checkuser("ds")
   %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>
      
      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD width="10%"><IMG height=32 src="../images/myemail.gif" 
            border=0></TD>
              <TD width="90%" background="../images/info_bg.gif">&nbsp;</TD>
        </TR></TBODY></TABLE>
 <TABLE class=content_border cellSpacing=0 cellPadding=0 width=100% 
border=0>
        <TBODY>
        <TR>
          <TD align=middle><BR>
            <TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
              <TBODY>
<%
sql="select * from Yixiang_emailorder where gsid="&session("id")&""
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1
	if not rs.eof then 
		if rs("orderflag")=0 then 
		EmailTitle="<span style='color:red'>(你的邮件未激活)&nbsp;请进入邮箱"&rs("email")&"激活</span>"
		
  	end if
	
	end if 
 				
%>
              <TR>
                <TD class=C bgColor=#d8ebff><STRONG>浏览按关键字订阅的信息</STRONG><%=EmailTitle%></TD>
                      <TD class=C align=right bgColor=#d8ebff><IMG height=9            src="../../images/indexpoint.gif" width=5>
<%
if rs.eof or rs.bof then
response.write"<A href='orderbegin.asp'>按关键字订阅 </A>"
else
response.write"<A href='ordermodify_begin.asp'>修改关键字 </A>"
end if
%>				  
</TD></TR>
<TR><TD class="C lh15" bgColor=#f4faff colSpan=2>
<%
 if rs.eof then
response.write"<p align=center>您尚未按关键字订阅信息</p>"
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

rs.close
set rs=nothing
conn.close
set conn=nothing
%> 
 </TD></TR></TBODY></TABLE>
<BR><BR><BR>
<TABLE width="98%" 
              border=0 align="center" cellPadding=0 cellSpacing=0 class=bdr1>
  <TBODY>
              <TR>
                <TD>
                  <TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=lh15>
<FONT color=#666666>订阅指南：我们每天将新增加的供求信息，按照会员订阅的类别或者关键字，分买/卖，直接通过电子邮件发送给会员。如果您业务繁忙，外出频繁，不能每日登录<%=webname%>，此项服务最有帮助！</font>
                </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<BR><BR><BR></TD></TR></TBODY></TABLE>
<BR>
<BR>
</TABLE>